Otomatik Satır Ekleme

[use2000]

Merhabalar;

a sütununda kod numarası aynı olan hücreler bittiğinde 2 tane boş satır açılsın istiyorum. Ekteki dosyayı incelediğinizde sanırım daha net anlaşılacaktır. İlgininiz için şimdiden teşekkür ederim.

 

[mancubus]

deneyiniz.

Sub sat_ekle()

Dim syf As Worksheet
Dim hücre As Range, alan As Range

Application.ScreenUpdating = False

Set syf = Worksheets("Sayfa1")
Set alan = syf.Range("A2:A" & Range("A65536").End(3).Row)

For Each hücre In alan
    If hücre <> hücre.Offset(1, 0) And hücre <> "" Then
        hücre.Offset(1, 0).Resize(2, 1).EntireRow.Insert
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[use2000]

istediğim tam da buydu çok teşekkür ederim. Emeğinize, zekanıza sağlık..

 

[mancubus]

rica ederim.

 

[suleyman3535]

Excel 2010 da bunu nasıl uygulayacagız