Userformdan sahife de uyan satırları toplu silme hk.

[kemal turan]

Merhaba,
Aşağıdaki kod ile Userform dan sahifede silme işlemi yapıyorum.
Fakat kritere uyan satırların bir atlayarak yarısını siliyor.
Örnek: F sutununda 1 den 10 ncu satıra kadar textbox 1e uyan 1-3-5-7-9 u siliyor.
Dosyada 1 nci sutundan gözlemleyebilirsiniz.
Teşekkür ederim.

 

[YUSUF44]

Cepten baktığımdan dosyanızı inceleyemedim ama tahminen silme işlemi döngüyle yapılıyordur ve döngü de yukardan aşağı doğru yani artarak gidiyordur. Satır silme işlemlerinde hata olmaması için döngü aşağıdan yukarıya yani azalarak olmalıdır.

For i = 2 to 50 yerine

For i = 50 to 2 Step -1 şeklinde olmalı.

 

[kemal turan]

İyi geceler Yusuf hocam,
Kodumuz

Set s1 = ThisWorkbook.Worksheets("VERITABANI")
Dim bul As Range
For Each bul In s1.Range("F2:F" & s1.Range("F65536").End(3).Row)
If bul.Text = TextBox1.Text Then
bul.EntireRow.Delete
End If
Next bul

 

[kemal turan]

Merhaba,
Yusuf hocam araştırma neticesinde bulduğum aşağıdaki farklı kod ile sorunu çözdüm.
Teşekkür ederim.

Set s1 = ThisWorkbook.Worksheets("VERITABANI")
For i = Range("A65536").End(3).Row To 1 Step -1
If s1.Range("f" & i) = TextBox1.Text Then
Rows(i).Delete
End If
Next i

Selematle kalınız.

 

[YUSUF44]

Benim verdiğim kod da esasen bu şekildeydi. Aklın yolu bir