Arkadaşlar merhaba;
Ekte örneği bulunan çalışmamda b,c,d kolonlarındaki (ayni zamanda bunlar a kolonundaki ANA HESAP karşısına geliyor) yeşil ile renklendirdiğim yerleri makro ile nasıl silebilirim.
Sub sil()
Dim NoA As Long, i As Long
NoA = Cells(65536, 1).End(xlUp).Row
For i = NoA To 6 Step -1
If Not (IsNumeric(Cells(i, 1)) Or UCase(Cells(i, 1)) = "ANA HESAP") Or Cells(i, 1) = Empty Then Rows(i).Delete
If Not IsNumeric(Cells(i, 1)) Or Cells(i, 1) = Empty Then Rows(i).Delete
Next
Range("D6").Select
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.