برای حذف سطر از لیست باکس کد زیر را نوشتم فقط دوستان عزیز کد زیر را بررسی کنید چرا عمل نمیکنه ممنون
کد:
On Error Resume Next
If UserForm2.ListBox1.ListIndex < 0 Then
d = MsgBox("موردی یافت نشد, vbOKOnly + vbInformation, "...")
Exit Sub
End If
Dim n As Integer
d = MsgBox("آیا مطمئن به حذف هستید", vbYesNo + vbCritical, "حذف اطلاعات...")
If d = vbYes Then
n = UserForm2.ListBox1.List(ListBox1.ListIndex, 0)
Dim c As Range
For Each c In Sheet3.Range("b2:b2000")
If c.Value <> "" And c.Value = n Then
Sheet3.Rows(c.Row).Delete Shift:=xlUp
ListBox1.RemoveItem (UserForm2.ListBox1.ListIndex)
Exit For
End If
Next c
End If
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)