Makroyla aktarma

[alp90]

Merhaba,
Excelde hazırladığım taslakta müşterilerim senetlerini ödediği zaman makro ile makbuz sayfasında hazırladığım makbuz taslağına bilgilerin aktarılmasını sağlayacak bir makro arıyorum.. Yardımlarınız için şimdiden çok teşekkür ederim.

 

[fedeal]

Sub YuvarlatılmışDikdörtgen_Tıklat()
FDL = Range("f65536").End(xlUp).Row
Sheets("MAKBUZ").Range("B13").Value = Cells(FDL, "E").Value
Sheets("MAKBUZ").Range("D13").Value = Cells(5, "E").Value
Sheets("MAKBUZ").Range("F13").Value = Cells(FDL, "H").Value
Sheets("MAKBUZ").Select
Application.Dialogs(xlDialogPrint).Show
End Sub

Deneyin istediginiz gibi oluyormu.

 

[alp90]

Abi sen süpersin ya. Allah razı olsun. Tam istediğim şekilde oldu gerçekten sevinçten ne yazıcağımı şaşırdım :s :bravo::bravo::bravo:

 

[fedeal]

işinize yaradıgına sevindim.