Makroyu kısaltma???

[AYüksel]

selamlar
bu işe yani başladığım için bir soru daha

Range("Y14") = Range("N14") + " " + Range("M14")
Range("Y15") = Range("N15") + " " + Range("M15")
Range("Y16") = Range("N16") + " " + Range("M16")
Range("Y17") = Range("N17") + " " + Range("M17")
Range("Y18") = Range("N18") + " " + Range("M18")
Range("Y19") = Range("N19") + " " + Range("M19")
Range("Y20") = Range("N20") + " " + Range("M20")
.
.
.
devam edip giden bu listeyi kısaca nasıl yazacağım acaba
yoksa bu şekilde uzatıp gitmem mi gerkiyor

 

[Levent Menteşoğlu]

aşağıdaki şekilde deneyin. Buradaki döngünün üst sınırı sizin bitiş satır değeriniz olacak şekilde değiştirim.
[vb:1:1b5599767c]For a=14 to 100 'bu 100 değerini son satır değerine göre değiştirin
Range("Y" & a) = Range("N" & a) + " " + Range("M" & a)
next
[/vb:1:1b5599767c]

veya

[vb:1:1b5599767c]For a=14 to 100 'bu 100 değerini son satır değerine göre değiştirin
cells(25,a) = cells(14, a) + " " + cells(13,a)
next
[/vb:1:1b5599767c]

Not: son satır değeri için cells(65536,14).end(xlup).row ifadesinide kullanabilirsiniz. Yani for a=14 to cells(65536,14).end(xlup).row şeklindede yazabilirsiniz.

 

[AYüksel]

teşekkür ettim