macro ile satır silme

[ThEeNCi]

Sub x_Olan_Satırı_Sil()
son = Cells(Rows.Count, "F").End(xlUp).Row
For i = son To 2 Step -1
If InStr(1, Cells(i, "F"), "*") > 0 Then
Cells(i, "f").EntireRow.Delete
End If
Next i
End Sub



arkadaşlar bu formulün daha hızlı çalışanı varmı * olan hücredeki satırı silme

 

[leumruk]

arkadaşlar bu formulün daha hızlı çalışanı varmı * olan hücredeki satırı silme

Merhaba,
Örnek dosya ekleyin üzerinde çalışalım.

 

[Seyit Tiken]

ActiveCell.EntireRow.Delete

Bu şekilde deneyiniz.

 

[ThEeNCi]

teşekürler

 

[baybedros]

merhaba, ben A20 sütunundan itibaren "sil" yazısına tıkladığımda o satırın b20-e20 aralığındaki verilerin silinmesini istiyorum yardımcı olur musunuz ?