Makro ile Seçili Satırı Silme

[Katip36]

İyi çalışmalar kolay gelsin.
Elimde Personellerin isim listesinin olduğu bir excel var. 33-13-Fark olmak üzere 3 farklı sayfadan oluşuyor. sadece 33 sayfasına veri girişi yapıyorum.
Makro ile tüm sayfalardaki sadece belirlediğim satırı silmek istiyorum. Örneğin a1 hücresine 5 yazıp makroyu çalıştırdığımda 5. satırı tamamen silecek. Ama tüm sayfalardan, yani 33-13-Fark sayfalarından.

 

[muratboz06]

Sub SatirSil()
Dim ws As Worksheet
If IsEmpty(ThisWorkbook.Worksheets("Sayfa1").Range("A1")) = False And IsNumeric(ThisWorkbook.Worksheets("Sayfa1").Range("A1")) = True Then
For Each ws In ThisWorkbook.Worksheets
ws.Rows(ThisWorkbook.Worksheets("Sayfa1").Range("A1")).EntireRow.Delete
Next ws
MsgBox "İşlem tamamlandı.", vbOKOnly
End If
End Sub

 

[Katip36]

Öncelikli olarak, özel sebeplerden dolayı bir süredir giriş yapamadım. bu yüzden geri dönüş için geciktiğim için kusura bakmayın.
Yardımınız için teşekkür ederim.