Soru Döngülü makro oluşturma

Katılım
19 Ekim 2020
Mesajlar
1
Excel Vers. ve Dili
365
Merhaba sabahtan beri bir makro yapmaya çalışıyorum fakat başaramadım elimde 1000 satır bir sayfa var amacım
A1 hücresinin içeriğini B1 B2 B3 e kopyalamak ve devamında
A4 ü B4 B5 B 6
A7 B7 B8 B9 şeklinde devam etmesi ama bununla ilgi bir kaynak bulamadım yardımcı olabilir misiniz bana?
 
Katılım
31 Aralık 2014
Mesajlar
1,818
Excel Vers. ve Dili
Excel 2010
Merhaba
Aşağıdaki örnekleri deneyebilirsiniz.

Kod:
Sub yaz()
For a = 1 To Cells(Rows.Count, "A").End(3).Row Step 3
Range("B" & a & ":B" & a + 2).Value = Cells(a, "A").Value
Next
End Sub
veya
Kod:
Sub kopya()
For a = 1 To Cells(Rows.Count, "A").End(3).Row Step 3
Cells(a, "A").Copy Range("B" & a & ":B" & a + 2)
Next
End Sub
 
Üst