Makro ile Birleştir Formülü yapma

[cevahirben]

merhaba,
excelde Sayfa1 de Makro kaydet diyorum ve E2 sütuna =birleştir formülünü çalıştırıyorum,Metin1`e c2, Metin2 ye - işareti,metin3`e de D2 yi birleştirecek ve tamam diyorum ve Formülü ürünlerin bittiği yere kadar 210 satır kopyala yapıştır yapıyorum işlem tamamlanıyor.

asıl buradan sonrası çok önemli, aynı Makroyu Başka sayfalarda da yapmak istiyorum, makroyu çalıştırdığımda az önceki sayfa da 210 satır aktif idi ama başka dosyalarda bu 450 satır ya da 600 satır olabiliyor,
İstediğim ; Makro C ve D Sütunlarındaki işlemin Bittiği yere kadar birleştir formülünü yapsın.bunu otomatik nasıl yaptırabiliriz..
yardımcı olursanız sevinirim..
Saygılar..

 

[YUSUF44]

Örnek dosyanızı ekleseydiniz daha iyi olurdu. Yine de anladığım kadarıyla aşağıdaki kodları dener misiniz:

Sub Makro2()
    [e2].FormulaR1C1 = "=RC[-2]&""-""&RC[-1]"
    Range("e2").Select
    a = Range("c" & Rows.Count).End(xlUp).Row
    Selection.AutoFill Destination:=Range("e2:e" & a)
End Sub

 

[cevahirben]

sayın yusuf44,
Emeğinize sağlık, ok.olmuş.teşekkürler..

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Formul()
    Son = Cells(Rows.Count, 3).End(3).Row
    Range("E2") = "=C2&""-""&D2"
    If Son > 2 Then Range("E2").AutoFill Destination:=Range("E2:E" & Son)
End Sub