Hücre Değeri Kadar Sıralama

[muratozmenler]

A1 hücresindeki değer kadar A2 hücresindeki değeri B2 sütunundan itibaren aşağı kadar aynısını yazdırmayı nasıl yapabiliriz. Örnek A1=4 diyelim A2=5 diyelim B sütununa alt alta 4 adet 5 yazacak.

Teşekkürler

 

[muygun]

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

Sub işlem()
sat = 3
For i = 1 To Cells(1, 1)
Cells(sat, 1) = Cells(2, 1)
sat = sat + 1
Next i
End Sub

Kodlarını ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

 

[muratozmenler]

Teşekkür ederim.

 

[Erkan Akayay]

Alternatif olsun.

Sub test()
Cells(2, 2).Resize(Cells(1, 1).Value) = Cells(2, 1).Value
End Sub