Command button ' a iki adet macro atamak.

[jacckhal]

Command button ' a iki adet macro atamak nasıl olur..
Üstadlar formdaki bir butonla hem formdaki verileri excel e aktarıp hemde aktarılan o verileri excell üzerinde yazdırmak istiyorum. bu iki macroyu nasıl birleştirebilirim.
Teşekkürler..

 

[fedeal]

kodlar makroda satır sıralamasıyla çalışır aktar kodunun altına yazdır kodunu eklerseniz başka birşey yapmanıza gerek olmadan yapacaktır.
örnekte buna benzer bir kod var.

Private Sub CommandButton1_Click()
SDS = Sheets("Sayfa2").Range("A65536").End(xlUp).Row + 1
Sheets("Sayfa2").Range("A" & SDS).Value = ComboBox1.Text
For i = 1 To 8
Sheets("Sayfa2").Cells(SDS, i + 1).Value = Controls("textbox" & i).Text
Next

Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

MsgBox "işlem tamam...", , "fedeal"

End Sub

 

[jacckhal]

teşekkürler ellerinize sağlık..

 

[fedeal]

teşekkürler ellerinize sağlık..

ricaederim iyi çalışmalar.