- Katılım
- 2 Ocak 2022
- Mesajlar
- 83
- Excel Vers. ve Dili
- 2007Türkçe
Merhaba,
Listbox1 içerisine additem ile alına veriler textbox2 değerine göre çoklu seçiliyor.
seçilen veriler sayfa12 ve listbox1 den silinecek. Sayfadan silebiliyorum, ancak
listbox1 içerisinden silerken hata veriyor. Doğru şekilde yazamadım.
İlgili kodları aşağıya ekledim.
Bu kodlara istediğim düzenleme yapılabilir mi? Teşekkür ederim.
ListBox1.MultiSelect = 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = TextBox2.Text Then
ListBox1.Selected(i) = True
End If
Next
For z = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(z) = True Then
Sayfa12.Cells(z + 2, 7) = "x"
End If
Next
For c = Sayfa12.Range("A150000").End(xlUp).Row To 2 Step -1
If Sayfa12.Cells(c, 7) = "x" Then
Sayfa12.Rows(c).Delete
=================================================
LİSTBOX1 DEN DE SİLECEK KOMUTLARI BURAYA DOĞRU EKLEYEMEDİM.
=================================================
End If
ListBox2.Clear
Next
End Sub
Listbox1 içerisine additem ile alına veriler textbox2 değerine göre çoklu seçiliyor.
seçilen veriler sayfa12 ve listbox1 den silinecek. Sayfadan silebiliyorum, ancak
listbox1 içerisinden silerken hata veriyor. Doğru şekilde yazamadım.
İlgili kodları aşağıya ekledim.
Bu kodlara istediğim düzenleme yapılabilir mi? Teşekkür ederim.
ListBox1.MultiSelect = 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = TextBox2.Text Then
ListBox1.Selected(i) = True
End If
Next
For z = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(z) = True Then
Sayfa12.Cells(z + 2, 7) = "x"
End If
Next
For c = Sayfa12.Range("A150000").End(xlUp).Row To 2 Step -1
If Sayfa12.Cells(c, 7) = "x" Then
Sayfa12.Rows(c).Delete
=================================================
LİSTBOX1 DEN DE SİLECEK KOMUTLARI BURAYA DOĞRU EKLEYEMEDİM.
=================================================
End If
ListBox2.Clear
Next
End Sub