A sütünü içindeki satırların verileri aynı satırların silinmesi

[avcikurt]

Arkadaşlar yardım lütfen örneğin a sutunun içindeki aa-ba-bb-cb-cc verisi bulunan satırları silerek satırları yukarı ötölemek İstiyorum mokro ile şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip deneyiniz.

Sub TekrarlariSil()
Dim i As Long
For i = [a65536].End(3).Row To 2 Step -1
    If Application.WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) > 1 Then Rows(i).Delete
Next i
End Sub

 

[avcikurt]

olmadı

verilen makro tamamını siliyor beceremedim

 

[Necdet]

Örnek dosya ekler misiniz?

 

[avcikurt]

mesala şu dosya

Arkadaşlar yardım lütfen örneğin J sutunun içindeki aa-ba-bb-cb-cc verisi bulunan satırları silerek satırları yukarı ötölemek İstiyorum mokro ile şimdiden teşekkürler.

 

[Necdet]

Keşke örnek dosya ile sorunuzu sorsaydınız, şimdiye kadar çoktan çözülürdü.

Option Compare Text
Sub SatirSil()
Dim i As Long
Application.ScreenUpdating = False
For i = [J65536].End(3).Row To 4 Step -1
    If Cells(i, "J") = "aa" Or _
       Cells(i, "J") = "ba" Or _
       Cells(i, "J") = "bb" Or _
       Cells(i, "J") = "cb" Or _
       Cells(i, "J") = "cc" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub

 

[avcikurt]

Ellerin dert görmesin

Hay ellerin dert görmesin levent kardeş çok sağ olasın

 

[Necdet]

Levent kardeş sağolsun valla, iyi arkadaştır.

 

[Serdar SELEN]

Hahahahahaha süperdi hocam

 

[Necdet]

.

 

[avcikurt]

gaf yaptım sanırım necdet bey emeği geçen herkeze teşekkür

 

[Necdet]

gaf yaptım sanırım necdet bey emeği geçen herkeze teşekkür

Rica ederim gaf olarak düşünmedim, espri katayım dedim sadece

Siz levent derken bende Levent beyi anmış oldum sayenizde