Kaydet ve Yazdır butonu

[maddas]

Merhaba Arkadaşlar,
Makroyu hiç bilmiyorum ama makroyla yapılabilecek bir tabloya ihtiyacım var.

Ekte gönderdiğim tabloya bakarsanız açıklama olarak yazdım. Çok basit bir kayıt işlemine ihtiyacım var ama bi türlü hallademedim.

Yardımlarınız için şimdiden teşekkiürler.

Mustafa Cansız
mcansiz@paradisebeach.com.tr

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Sub Düğme2_Tıklat()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ss = Sheets("APA ").Range("b65536").End(3).Row
Sheets("APA ").Range("B" & ss + 1) = Sheets("Yeni Giriş").Range("B21").Text
End Sub

 

[maddas]

Merhaba,

Çok süper olmuş ama bi yerde eksik var, "yeni giriş"teki b21'den değil, "apa"daki B1:I1 Arasını kopyalaması gerekiyor.
bu konuda yardımcı albilirseniz sevinirim

Mustafa Cansız
Sheets("APA ").Range("B" & ss + 1) = Sheets("Yeni Giriş").Range("B21").Text