Buton yapma

[garib5]

Buton yapma konusunda yardım istiyorum sayfa 1 den girdiğim bilgilerin sayfa 2 ye hem eklesin hemde yazdırsın tesk

 

[dEdE]

Buton yapma konusunda yardım istiyorum sayfa 1 den girdiğim bilgilerin sayfa 2 ye hem eklesin hemde yazdırsın tesk

Merhaba,
Forumumuza hoş geldiniz.

Sorunuzdan yola çıkarak, makrolar konusunda fazla bilginizin olmadığını düşünmekteyim. Eğer öyleyse, Sayfa1 den hangi bilgiler girilecek.sayfa2 de nereye eklenecek. Bunları bilmeden vereceğimiz yanıtın işinize yaramayacaktır. Örnek dosya eklerseniz dha kolay yanıtlayabiliriz.

Hoşça kalın.

 

[garib5]

buton yapma

örnek sayfa ekledim arkadaşlar
giriş sayfasındaki b sutununa girdiğim bilgilerin yazdır ve ekle butonu ile hem yazdırsın hemde kayıt sayfasına eklesin istiyorum.yardımlarınıza tesk

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Private Sub CommandButton1_Click()
Set s1 = Sheets("giriş")
Set s2 = Sheets("kayıt")
ss = s2.[A65536].End(3).Row + 1
For i = 1 To 6
s2.Cells(ss, i).Value = s1.Cells(i, 2).Value
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1
MsgBox "Aktarma ve yazdırma işlemi Tamamlandı.", vbInformation
End Sub