Hücredeki rakam kadar alta satır ekleme

Misal;
1 altına 1 satır
3 altına 3 satır eklenicek

Merhaba,
Aşağıdaki kodu çalıştırın. Bana da aynı şekilde lazım olmuştu. Üstadın biri yardımcı olmuştu ismini hatırlayamıyorum

tugkan' Alıntı:

Merhaba,
Aşağıdaki kodu çalıştırın. Bana da aynı şekilde lazım olmuştu. Üstadın biri yardımcı olmuştu ismini hatırlayamıyorum

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(12 satır)

Genişletmek için tıklayın ...

Tşk ederim tugkann bey;
yalnız düzenleme yapmam gerekti 19 yerine 1
K sütünü yerine B olarak düzenledim kısmen oldu.. yalnız 1 satır fazla aşağı iniyor.onu naısl yapabiliriz ?

Dener misiniz.

bu şekilde yazmıştım ,fakat

örn;
satırdaki bilgileri dahil ederek yani 5 yazıyorsa ,
5 satır aşağıya inerse kendisi ile birlikte 6 satır oluyor.satır aşağı inerken kendisinide dahil ederek inmiş olsun..
resimde belirttim bu makroda şu şekilde oluyor.

olmasını istediğim;

kacsatir = Range("B" & n) bu kodu kacsatir = Range("B" & n)- 1 şeklinde düzelt.

tuğkan bey ve feyzullah bey teşekkür ederim. ilginize...Allah razı olsun..
çözüldü...