bir hücre değerini istenilen sayıda başka bir sütun hücresine atama

[SSK1907]

bir hücre değerini istenilen sayıda başka bir sütun hücresine atama yapamadım yardımlarınızı rica ederim.

 

[askm]

Sub askm()
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
a = 1
For i = 1 To SonSat
    For x = 1 To CInt(Cells(i, 2))
        Cells(a, "G") = Cells(i, 1)
        a = a + 1
    Next
Next
MsgBox "İşleminiz tamam", vbInformation, "ASKM"
End Sub

 

[SSK1907]

Çok teşekkür ederim. Yalnız Sayfa2 deki bir sütuna nasıl yazdırabilirim.

 

[antonio]

Sayın SSK1907;
Aynı konuyu hem VBA Makro, hemde Excele Yeni Başlayanlar kısmında açmış olmanız doğru bir davranış değildir. Bunu diğer üyelerde yaparsa, gereksiz dosya ve yazışma kirliliği ile başkalarına cevap verebilecek üyelerin zamanını haksız yere işgal etmek durumu oluşacaktır.
Aynı yöntemi tekrar etmemeniz daha etik bir davranış olacaktır.
Lütfen Forum kurallarına uyalım.

 

[askm]

Cells(a, "G") = Cells(i, 1) kismini Sheet("Sayfa2").Cells(a, "G") = Cells(i, 1) şeklinde değiştirin.