Bir sütunda istenilen satır sayısı kadar atlayıp yazdırma

[aortulu]

Merhaba arkadaşlar;

Benim büyük bir sorunum var. Excel'de bir hücredeki veriyi bir sütunda, başka bir hücrede yazan değer kadar aşağıya satır saydırıp sonraki satıra yazdırmak istiyorum.

Örneğin bir hücrede "A619802" gibi bir değer var. Başka bir hücrede de "30" değeri var. Bu "A619802" değerini bir sütun içerisinde 30 satır aşağıya doğru saydırıp 31. satıra yazdırmak istiyorum.

Yardımcı olabilirseniz çok minnettar kalacağım. Teşekkürler.

 

[muygun]

Merhaba;

yazdıracağınız veri A1 hücresinde, satır no'su B1 hücresinde ve veriyi A sütununa yazdıracaksanız;

Sayfanın kod bölümüne;

Sub yaz1()
yazılacak = Cells(1, "a")
satırr = Cells(1, "b") + 1
Cells(satırr, "a") = yazılacak
End Sub

Kodlarını bir butona bağlayarak deneyin.

Yada;

yazdıracağınız veri A1 hücresinde, satır no'su B1 hücresinde ve veriyi imleçin bulunduğu sütun ve bulunduğu satırdan B1 hücresindeki sayı kadar aşağı yazdıracaksanız;

Sub yaz2()
satno = ActiveCell.Row
sütno = ActiveCell.Column
Cells(satno + Cells(1, "b"), sütno) = Cells(1, "a")
End Sub

Kodlarını bir butona bağlayarak deneyin.

İyi çalışmalar.