Makro Kodu İle Satir Aç

[baydeniro]

Merhaba arkadaşlar. E sütununda aktif hücrede yazılı olan sayı kadar satır aç ve/veya açılan satırlara üstteki dolu satırdan sadece formül olan hücreleri kopyala.

Bu işlem makro yardımı ile mümkün mü ? Örnek dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

Aşağıdkai kodu denermisiniz.

Option Explicit
 
Sub SATIR_EKLE()
    If ActiveCell.Column <> 5 Then
        MsgBox "Lütfen E sütunundan bir hücre seçiniz !", vbCritical
        Cells(ActiveCell.Row, "E").Select
        Exit Sub
    End If
    
    Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + ActiveCell.Value).Insert Shift:=xlDown
    Range("C" & ActiveCell.Row & ":C" & ActiveCell.Row + ActiveCell.Value).FillDown
End Sub

 

[baydeniro]

Sayın Korhan Ayhan çok çok teşekkür ederim. Tam isabet !! Bravo !! Sağlıcakla kalın, Allah sizlere zeval vermesin.