Hücredeki 10 karakterden aşağısını silme.

[myoverusedpasport]

Merhaba bir hücrede 10 taneden az sayı veya harf varsa o hücreyi silmek istiyorum nasıl yapabilirim ?

 

[Ömer]

Merhaba,

A sütunu için:

Sub Sartli_Sil()
    
    Dim i As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" And Len(Cells(i, "A")) < 10 Then
            Cells(i, "A").ClearContents
        End If
    Next i
    
End Sub

.

 

[myoverusedpasport]

Çok teşekkürler. Merak ettiğim birkaç soru daha var bu konu altında sorabilir miyim başlık mı açmam gerekir ?

 

[Ömer]

Makroyu çalıştırmak için;

Linkteki #4. mesajda açıklama yazmıştım.

http://www.excel.web.tr/f14/excelde-iki-sayy-girerek-arasyndaki-sayylary-yazdyrma-t162312.html

Aynı konuyla ilgili değilse, konu bütünlüğünü korumak için yeni konu açmanızı rica ederim.

.