Bul ve Sil

[balca]

Arkadaşlar merhaba;
Bir sütun içinde alt alta veriler mevcut a2:a--- değişebilir.
Tabii b,c,d sütunlarındada veriler mevcut. Burada yapmak istediğim A sütunu içinde
metin olarak gördüklerinin o satınının tamamen silinmesi.
Yani Kısaca a2 hücresinden başlamak üzere a--- (sonu belli olmuyor) metin olarak ne görüyorsa o satırı komple silinecek
doğal olarak silinen satır komple silineceğinden b,c,d, de silinmiş olacak

 

[Haluk]

Günaydın,

Sub Test()
    Dim NoA As Long, i As Long
    NoA = Cells(65536, 1).End(xlUp).Row
    For i = NoA To 2 Step -1
        If Not IsNumeric(Cells(i, 1)) Then Rows(i).Delete
    Next
End Sub

 

[balca]

Günaydın; ;-)

Kodlar için teşekkür ederim. Bu kodlar ile A sütunundaki metin karakterler siliniyor. (boş oluyor) Gerçi önemli değil de kodlara ufak bir ilave ile boş olan satırların tümünü sildirebilirmiyiz.

 

[Haluk]

Sub Test()
    Dim NoA As Long, i As Long
    NoA = Cells(65536, 1).End(xlUp).Row
    For i = NoA To 2 Step -1
        If Not IsNumeric(Cells(i, 1)) Or Cells(i, 1) = Empty Then Rows(i).Delete
    Next
End Sub

 

[balca]

Harikasınız !!! :hihoho: :hihoho:

Tam istediğim gibi oldu ellerinize sağlık.. (İyiki varsınız..)

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

[vb:1:77e154ddf9]Sub metinsil()
Columns("A:A").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End Sub
[/vb:1:77e154ddf9]

 

[balca]

Arkadaşlar çok teşekkür ediyorum.

 

[balca]

Sayın Haluk;

Sizin verdiğiniz kodlar ile (şu an çok iyi çalışıyor problem yok) TOPLAM yazanları silmeden nasıl yaptırabilirim?

Sub Test()
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 Cells(i, 1) = Empty Then Rows(i).Delete
Next
End Sub

 

[Haluk]

        If Not (IsNumeric(Cells(i, 1)) Or UCase(Cells(i, 1)) = "TOPLAM") Or Cells(i, 1) = Empty Then Rows(i).Delete

 

[balca]

İşlem tamam

Çok teşekkür ederim.