Hücredeki sayı kadar satır eklemek

[rain2003]

(5,2) hücresinde yazan sayı kadar 23 üncü satırdan sonra satır eklemek istiyorum. Aşağıdaki komut çalışmıyor. Yardımcı olabilirmisiniz.








sonv = Cells(5, 2)

Sayfa1.Rows("23:sonv").Insert Shift:=xlDown

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
(mavi renklendirdiğim kısım hücre formatlarının 23'üncü satırdan alınmasını sağlar, format önemli değilse mavi kısmı silebilirsiniz)
.

[FONT="Arial Narrow"]sonv = Cells(5, 2)
If sonv > 0 Then Rows("24:" & sonv + 23).Insert Shift:=xlDown[COLOR="Blue"], CopyOrigin:=xlFormatFromLeftOrAbove[/FONT][/COLOR]

 

[rain2003]

Hocam çok teşekkür ederim..

 

[Ömer BARAN]

Estağfurullah, iyi günler dilerim.