Belirli Bir Şarta Göre Satır Ekleme

[explosad]

Sayın Hocalarım,
Elimde uzun bir tablo ver. Her farklı isimden sonra satır eklemem gerekecek.
Bunu makro ile gerçekleştirebilirmiyim.
Şimdiden yardımlarınız için teşekkür ederim

 

[mancubus]

A sütunundaki değerlere göre.... Farklı sütun için koddaki "A"lar ilgili sütun harfi ile değiştirilecek.

Sub SatEkle()
    
Dim sat As Long

For sat = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(sat, "A") <> Cells(sat - 1, "A") Then Rows(sat).EntireRow.Insert
Next sat

End Sub

 

[Murat OSMA]

Sn. mancubus'un müsadesiyle....

For sat satırından sonra şu satır ilave edilebilir;
If Cells(sat - 1, "A") = "" Then Exit Sub

 

[explosad]

Hocam çok teşekkür ederim büyük bir külfetten kurtardın beni. Bilgine sağlık