Satır Sil makrosu

[sirkülasyon]

Es Selamün Aleyküm
Excel sayfasında E13 : E4298 arasında
1 - J1 hücresine MERKEZ yazarsam ne kadar MERKEZ olan hücre var ise o satırların onaylı olarak tamamı silinsin.
2 - J1 hücresine TAŞRA yazarsam ne kadar TAŞRA olan hücre var ise o satırların onaylı olarak tamamı silinsin.
3 - Arada hiç veri girişi olmayan boş satırlarda silinsin.
makro kodu için yardımcı olabilir misiniz?
Saygı ve hürmetlerimle

 

[turist]

Aşağıdaki kodu deneyin.

Sub Sil()
Dim i As Long
Dim sonsatir As Long: sonsatir = Cells(Rows.Count, 3).End(xlUp).Row
For i = sonsatir To 13 Step -1
If Cells(i, 3) = "" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub

 

[sirkülasyon]

Üstad
Teşekkür eder, saygı ve hürmetlerimi sunarım.

 

[Mahmut Bayram]

Es Selamün Aleyküm

Ve Aleyküm Selam

 

[turist]

Üstad
Teşekkür eder, saygı ve hürmetlerimi sunarım.

Sağ olun, iyi çalışmalar.