Metin karakterleri silmek

[balca]

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.

 

[mehmett]

Sn balca, aşağıdaki kodu deneyin.

[vb:1:ebc2688780]Sub Verisil()
Range("B6").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="ANA HESAP"
Range("B6890").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.AutoFilter
Range("A1").Select
End Sub[/vb:1:ebc2688780]

 

[Merhum İdris SERDAR]

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

End Sub

Bu şekilde deneyin.

 

[balca]

Teşekkürler arkadaşlar.

Sayın Mehmett'in kodları işimi gördü. Sağolun iyiki varsınız..