Makro Kodunu 2 Satırda 1 Uygulamak

[baydeniro]

Merhaba Arkadaşlar,
DÜĞME 1 formülü D2, D4, D6 ve D8 hücrelerine kopyalıyor. Formülün kaydedileceği hücreleri tek tek yazmadan D29 alanına 2 satırda 1 olacak şekilde kaydedilmesinin daha kısa yolu var mıdır !

Sub IKISATIRDABIR()

Range("D2,D4,D6,D8") = "=VLOOKUP(RC[-3],R2C8:R11C10,3,0)"

End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Sub IKISATIRDABIR()
    Dim i As Byte
    For i = 2 To 9 Step 2
        Cells(i, "D") = "=VLOOKUP(" & Cells(i, "A").Address(0, 0) & ",H2:J11,3,0)"
    Next i
End Sub

 

[baydeniro]

Merhaba,

Deneyiniz.

Sub IKISATIRDABIR()
    Dim i As Byte
    For i = 2 To 9 Step 2
        Cells(i, "D") = "=VLOOKUP(" & Cells(i, "A").Address(0, 0) & ",H2:J11,3,0)"
    Next i
End Sub

Ömer üstadım harikasınız, çok çok teşekkür ediyorum, sağlıcakla kalın