Mizanda hesap kodu üç'ten fazla olan hanelileri makroyla kaldırılması

[1903emre34@gmail.com]

Merhaba,

Ana hesap olmayan hesap kodlarının, (1000000, 102000199 1020000399 vs ) satırlardan silinmesini istiyorum, istenen sayfa2'de yapılmıştır.


http://s2.dosya.tc/server5/mmhchr/hesap1.zip.html

 

[Asri]

Merhaba,

Ana hesap olmayan hesap kodlarının, (1000000, 102000199 1020000399 vs ) satırlardan silinmesini istiyorum, istenen sayfa2'de yapılmıştır.
http://s2.dosya.tc/server5/mmhchr/hesap1.zip.html

Ana hesapların 3 hane olduğu varsayılmıştır.
Belki de zaten 3 haneden farklı olmuyordur. : ))

Sub althesapsil()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   For i = sonsatir To 7 Step -1
      veri = Cells(i, "A").Value
      If Len(veri) <> [COLOR=Red]3[/COLOR] Then Rows(i).Delete
   Next i
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub

 

[1903emre34@gmail.com]

Teşekkürler,

iyi çalışmalar