Tekrarlayan başlıkları makro ile silmek

[Ersen]

Arkadaşlar ekli dosyada anlaşılacağı üzere elimde bir liste var 1. satırda görülen başlıklar değişik sayıda satırlar işlendikten sonra tekrar etmekte. Otomatik alınan bir liste olduğu için 1. satırdaki başlıklar muhafaza edilecek ve alt satırlarda ne kadar başlıkla aynı olan satırlar varsa tamamen (satır olarak) silinecek. (Özetle 1. satır hariç “M.İ.F NO.” İle başlayan satırlar silinecek)

Forumdaki silme örnekleri 1. satırdakini de siliyordu işe yarar bir çözüm bulamadım. Yardımcı olacak arkadaşlara teşekkür ederim.

 

[hamitcan]

Bu işlemi verileri süzerek kolayca yapabilirsiniz.

 

[Ersen]

ben makro ile tek tıklamayla silmek istiyorum,ilginiz için teşekkürler

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Sub sil()
For i = 2 To [A65536].End(3).Row
If Cells(i, 1).Text = "M.İ.F NO." Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Sub

 

[Ersen]

Aşağıdaki kodu dener misin ?

Sub sil()
For i = 2 To [A65536].End(3).Row
If Cells(i, 1).Text = "M.İ.F NO." Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Sub

Çok teşekkür ederim. Sağolun.

 

[ozgretmen]

Rica ederim.İyi çalışmalar...