sütundaki değerlerin değişiminde boşuk ekleme

[shiny_sun]

Merhabalar,

Forumda bir kaç konuda benzer şeyler danışılmış, ancak eklenen kodlarla çalıştıramadım malaesef.:agla: örneğin, c sütunundaki değerler değiştikçe altına 5 boş satır eklemek istiyorum. yardımlarınız için şimdiden teşekkürler

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub ekle()
For i = Cells(Rows.Count, "C").End(3).Row To 1 Step -1
    If Cells(i, "C") <> Cells(i + 1, "C") Then
        Rows(i + 1 & ":" & i + 5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next
End Sub

 

[shiny_sun]

teşekkür ederim hocam çok makbule geçti