karakter uzunluğuna göre hücre-satır silme

[redghost]

merhaba arkadaşlar. karakter uzunluğuna göre nasıl hücre yada satır silebilirim excel de?

teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız. A sütunun da uzunluğu 3 olan satırları siler.

Sub SartliSil()
 
    Dim i As Long
 
    For i = 1 To Cells(Rows.Count, "[COLOR=red]A[/COLOR]").End(xlUp).Row
        If Len(Cells(i, "[COLOR=red]A[/COLOR]")) = [COLOR=blue]3[/COLOR] Then
            [COLOR=darkgreen]Rows(i).Delete Shift:=xlUp[/COLOR]
        End If
    Next i
 
End Sub

Hücre silmek için ise,

Rows(i).Delete Shift:=xlUp

yerine;

Cells(i, "A").ClearContents

yazarsınız.

 

[redghost]

Merhaba,

Module kopyalarak çalıştırınız. A sütunun da uzunluğu 3 olan satırları siler.

Sub SartliSil()
 
    Dim i As Long
 
    For i = 1 To Cells(Rows.Count, "[COLOR=red]A[/COLOR]").End(xlUp).Row
        If Len(Cells(i, "[COLOR=red]A[/COLOR]")) = [COLOR=blue]3[/COLOR] Then
            [COLOR=darkgreen]Rows(i).Delete Shift:=xlUp[/COLOR]
        End If
    Next i
 
End Sub

Hücre silmek için ise,

Rows(i).Delete Shift:=xlUp

yerine;

Cells(i, "A").ClearContents

yazarsınız.

teşekkürler. hızınıza hayran olmamak elde değil

 

[redghost]

yalnız hocam makineyi kitliyor çalıştırdığım zaman

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KARAKTER_UZUNLUĞUNA_GÖRE_SATIR_SİL()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    For X = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
        If Len(Cells(X, "A")) = 3 Then Rows(X).Delete
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub