BİRLEŞTİR ÇOĞALTMA

[burhancavus61]

BÝRLEÞTÝR ÇOÐALTMA

Sub Birlestir()

Range("D1") = Range("C1") + " " + Range("B1")

End Sub

YUKARIDAKİ MAKROYU NASIL ÇPÐALTABİLİRİM
TEK HÜCRE İÇİN YAZILMIÞ B1 DEN B332 YE KADAR AYNI İÞLEMİ YAPMAK İSTİYORUM. TEÞEKKÜRLER

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:0a0c8d8e13]Sub Birlestir()
for a=1 to 332
Range("D" & a) = Range("C" & a) & " " & Range("B" & a)
End Sub
[/vb:1:0a0c8d8e13]