سلام خدمت اساتید گرامی
یه لیست داریم که با تکست باکس از ستون B که نام طرف حساب است فیلتر میشه
و ستون A که شماره است
حالا میخوایم ردیفی که از لیست باکس انتخاب می کنیم از شیت حذف بشه
ممنون میشم راهنمایی کنید
فایل پیوست:
یه لیست داریم که با تکست باکس از ستون B که نام طرف حساب است فیلتر میشه
و ستون A که شماره است
حالا میخوایم ردیفی که از لیست باکس انتخاب می کنیم از شیت حذف بشه
ممنون میشم راهنمایی کنید
فایل پیوست:
کد PHP:
Private Sub AddCmd_Click()
ListBox1.Clear
Dim d As Range
For Each d In Sheet2.Range("b2:b20")
If d.Value <> "" And d = ComboBox1.Text Then
ListBox1.AddItem d.Value
For i = 0 To 9
ListBox1.List(ListBox1.ListCount - 1, i) = d.Offset(0, i).Text
Next i
End If
Next d
End Sub
Private Sub ClearCmd_Click()
Dim i As Integer
For Each d In Sheets(2).Range("a2:a20")
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
If d.Text = ListBox1.List(i) Then
Sheet2.Rows(d.Row).Delete shift:=xlUp
ListBox1.RemoveItem ListBox1.ListIndex
Exit For
End If
End If
Next i
Next d
End Sub
کامنت