Değerli üstadlar
Data adlı sayfamda bir takım veriler var(Firma isimleri) Bunları List box dan çağırdığımda istediğim Firma ismini "AB1" e yazdırdıktan sonra onları "A" sütununda bulup silmesini istiyorum.
Bunun için aşağıdaki makroyu yazdım. Ama önce 8 adet kayıt siliyor sonra 4 sonra 2 ve sürekli yeniden işlemi tekrarlamam gerekiyor.
Makromda nerede hata yapıyorum ?
Private Sub ListBox1_Click()
Range("AB1").Value = ListBox1.Text
Dim i As Integer
Range("A1").Select
For i = 1 To 500
If Cells(i, "A").Text = Range("AB1") Then Rows(i).Delete
Next i
End Sub
Yardımlarınız için şimdiden teşekkürler.
Data adlı sayfamda bir takım veriler var(Firma isimleri) Bunları List box dan çağırdığımda istediğim Firma ismini "AB1" e yazdırdıktan sonra onları "A" sütununda bulup silmesini istiyorum.
Bunun için aşağıdaki makroyu yazdım. Ama önce 8 adet kayıt siliyor sonra 4 sonra 2 ve sürekli yeniden işlemi tekrarlamam gerekiyor.
Makromda nerede hata yapıyorum ?
Private Sub ListBox1_Click()
Range("AB1").Value = ListBox1.Text
Dim i As Integer
Range("A1").Select
For i = 1 To 500
If Cells(i, "A").Text = Range("AB1") Then Rows(i).Delete
Next i
End Sub
Yardımlarınız için şimdiden teşekkürler.
