hücre değeri kadar satır ekleme makrosu arıyorum.

[sefa044]

arkadaşlar
a1 hücresine 7 sayısı girilsin.
benim istediğim 10. ile 11. satır arasına 7 satır eklemek.nasıl yapabilirim. tşk.

 

[Kenantu]

Sub satirrekle()
Dim sat As Integer
sat = Range("A1").Value
Rows(11 & ":" & 10 + sat).Select
Selection.Insert Shift:=xlDown
End Sub

Yukarıdaki makroyu bir modüle kopyala daha sonra A1 hücresine bir değer gir sonra makroyu çalıştır.

 

[sefa044]

Sub satirrekle()
Dim sat As Integer
sat = Range("A1").Value
Rows(11 & ":" & 10 + sat).Select
Selection.Insert Shift:=xlDown
End Sub

Yukarıdaki makroyu bir modüle kopyala daha sonra A1 hücresine bir değer gir sonra makroyu çalıştır.

TEŞEKKÜRLER.

 

[ofsevim]

Sub satirrekle()
Dim sat As Integer
sat = Range("A1").Value
Rows(11 & ":" & 10 + sat).Select
Selection.Insert Shift:=xlDown
End Sub

Yukarıdaki makroyu bir modüle kopyala daha sonra A1 hücresine bir değer gir sonra makroyu çalıştır.

hocam 10 ile 11 arası değilde direk a1 hücresine değer girdiğimde girdiğim değer kadar alta satır eklesin istiyorum bu nasıl yapılır acaba

 

[ÖmerFaruk]

Nerenin altına eklenecek?

 

[ofsevim]

Nerenin altına eklenecek?

A nın altına

 

[ÖmerFaruk]

Sub satirrekle()
Dim sat As Integer
    sat = Range("A1").Value
    If sat = 0 Then Exit Sub
    Rows(2 & ":" & 1 + sat).Insert Shift:=xlDown
End Sub