[linkler sadece üyelerimize görünmektedir.] hocam merhabalar, excel de yapmak istediğim bir şey var nette araştırdım, ilgili kodu da buldum ancak yine de yapamadım.
Yapmak istediğim A1 hücresinde yazan metni B1 hücresinde yazan sayı kadar çoğaltma. A1 de Okul yazıyor B1 de 5 yazıyor ise başka bir yerde alt alta 5 kez Okul yazmalı bunu tüm sınıf listesi için yapmak istiyorum.
Bulduğum kod:
Sub Cogalt()
Dim i As Long, _
j As Long, _
k As Long
Range("D:E").Clear
j = 1
For i = 2 To Cells(Rows.Count, "A").End(3).Row
j = j + 1
k = j + Cells(i, "B") - 1
Range("D" & j & "
" & k) = Cells(i, "A")
Range("E" & j) = Cells(i, "B")
With Range("E" & j & ":E" & k)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
j = k
Next i
End Sub