ثبت نام دوره آموزش اکسل پیشرفته فرساران

نویسنده موضوع: کمک :) در جستجو در همه شیت ها و حذف  (دفعات بازدید: 318 بار)

naser1357

  • کاربر فعال
  • ***
  • ارسال: 165
  • جمع امتیازها: +3/-1
می خواهم با وارد کردن شما ره کارگاه ، از همه شیت ها حذف شود

 کانال آموزش اکسل

کانال یوتیوب فیلم های آموزش اکسل فرساران

به رایگان در یوتیوب فیلم های آموزشی کلاسهای اکسل مهندس فرشید میدانی را مشاهده نمایید.


ORDOUEI

  • کاربر تازه‌وارد
  • *
  • ارسال: 8
  • جمع امتیازها: +1/-0
با سلام کد زیر استفاده شود
Private Sub CommandButton3_Click()

  Application.ScreenUpdating = False
'excel.saeed@gmail.com
Dim i As Integer

X = Sheets.Count
 
Dim ss1 As String

  ss1 = TextBox1.Value

For o = X To 1 Step -1

Worksheets(o).Activate

last = Cells(Rows.Count, "A").End(xlUp).Row 'Delete rows
   

    For i = last To 2 Step -1

     ' "B" Soton jostejo textbox
' harf (B) ba Harf Soton mored nazar taviz shavad
     
 If (Cells(i, "B").Value) = ss1 Then

               
                Cells(i, "B").EntireRow.Delete
        End If
 
  Next i

Next o
 
 Application.ScreenUpdating = True


End Sub

naser1357

  • کاربر فعال
  • ***
  • ارسال: 165
  • جمع امتیازها: +3/-1
ضمن س‍اس. اما چگونه هر تکس باکسی اضافه می کنم بدون اینکه برایش کدی را در نظر بگیرم خودکار تکمیل می شود؟ کدوم قسمت کد فوق به تکمیل خودکار تکس باکسهاس

ORDOUEI

  • کاربر تازه‌وارد
  • *
  • ارسال: 8
  • جمع امتیازها: +1/-0
با سلام
شما در یوزرفرم تکس باکس داشتید و یک دکمه تکس باکس 1 و کد را در یک دکمه وارد نمایید.
موفق باشید