Aynı ismi makro ile tekrarlama

[silenzi]

aRKADAŞLAR MAKRO İLE a1 SATIRINDAKİ İSİMLERİ ALT ALTA 6 KERE TEKRARLAMAK İSTİYORUM. NASIL YAPABİLİRİM ?

 

[İhsan Tank]

aRKADAŞLAR MAKRO İLE a1 SATIRINDAKİ İSİMLERİ ALT ALTA 6 KERE TEKRARLAMAK İSTİYORUM. NASIL YAPABİLİRİM ?

merhaba

Sub Makro1()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
MsgBox "Boş Hücreler Dolduruldu", vbInformation
End Sub

bu işini görür sanırım

 

[leumruk]

Merhaba,
Alternatif olarak aşağıdaki örneği kullanabilirsiniz.

Sub Ad_Olustur()
For x = 1 To 22 Step 7
Range("a" & x + 1 & ":a" & x + 6) = Cells(x, "a")
Next
End Sub