otomatik satır doldurma yardım

[zgrltn]

A1 hücresinin bir metnin B1 hücresindeki sayı kadar A1 hücresinin altına satır satır yinelenmesi için ne yapabilirim

 

[BAZGİRET]

Deneyin

Sub Yaz()
For i = 2 To Range("b1").Value
Cells(i, 1) = Range("a1").Value
Next
End Sub

 

[zgrltn]

olmadı malesef

 

[çıtır]

Formül olarak.A2 Hücresine kopyalayınız.Aşağı doğru çoğaltınız.

=EĞER(EĞERSAY($A$1:$A1;$A$1)<$B$1;$A$1;"")

 

[YUSUF44]

Sub Yaz() For i = 2 To Range("b1").Value Cells(i, 1) = Range("a1").Value Next End Sub

olmadı malesef

Kodda şu düzeltmeyi yaparsanız istediğiniz olacaktır:

Sub Yaz()
    For i = 2 To Range("b1").Value + 1
        Cells(i, 1) = Range("a1").Value
    Next
End Sub

 

[zgrltn]

Teşekkürler