Bir butona iki komut verme

[selcuk23]

Merhabalar, Aşağıdaki iki macroyu tek bir butona bağlama imkanı var mı acaba?

Private Sub CommandButton2_Click()
Sayfa13.PrintOut
End Sub

Private Sub CommandButton3_Click()
Sheets("İZİN BELGESİ").Select
If Range("a3") = "" Or Range("e3") = "" Or Range("f4") = "" Then
MsgBox "Eksik Bilgi Girdiniz!" & vbNewLine & "-İsim, İzin Başlayış Tarihi ve İzinli Gün Süresi- verilerini kontrol ediniz!", vbExclamation, "Uyarı"
Exit Sub
Else
adi_soyadi = Sayfa12.Cells(Rows.Count, 2).End(xlUp).Row + 1
Sayfa12.Cells(adi_soyadi, 2).Value = Sheets("İZİN BELGESİ").Range("a3").Value
Sayfa12.Cells(adi_soyadi, 2).Offset(0, 1).Value = Sheets("İZİN BELGESİ").Range("e3").Value
Sayfa12.Cells(adi_soyadi, 2).Offset(0, 2).Value = Sheets("İZİN BELGESİ").Range("f3").Value
Sayfa12.Cells(adi_soyadi, 2).Offset(0, 3).Value = Sheets("İZİN BELGESİ").Range("f4").Value
End If
MsgBox "Aktarma işlemi tamamlandı!", vbInformation, "Bilgi"
End Sub

 

[Tevfik_Kursun]

Merhaba,
1. kodu

Sub Baski_Yap()
    Sayfa13.PrintOut
End Sub

2. Kodu

Sub Giris_Yap()
Sheets("İZİN BELGESİ").Select
If Range("a3") = "" Or Range("e3") = "" Or Range("f4") = "" Then
MsgBox "Eksik Bilgi Girdiniz!" & vbNewLine & "-İsim, İzin Başlayış Tarihi ve İzinli Gün Süresi- verilerini kontrol ediniz!", vbExclamation, "Uyarı"
Exit Sub
Else
adi_soyadi = Sayfa12.Cells(Rows.Count, 2).End(xlUp).Row + 1
Sayfa12.Cells(adi_soyadi, 2).Value = Sheets("İZİN BELGESİ").Range("a3").Value
Sayfa12.Cells(adi_soyadi, 2).Offset(0, 1).Value = Sheets("İZİN BELGESİ").Range("e3").Value
Sayfa12.Cells(adi_soyadi, 2).Offset(0, 2).Value = Sheets("İZİN BELGESİ").Range("f3").Value
Sayfa12.Cells(adi_soyadi, 2).Offset(0, 3).Value = Sheets("İZİN BELGESİ").Range("f4").Value
End If
MsgBox "Aktarma işlemi tamamlandı!", vbInformation, "Bilgi"
End Sub

Yukarıdaki makroları bir modüle yapıştırın.
Sayfanızdaki CommandButton3 ye de aşağıdaki kodu ekleyin

Private Sub CommandButton3_Click()
    If CommandButton3.Caption = "GİRİŞ YAP" Then
        Call Giris_Yap
        CommandButton3.Caption = "BASKI YAP"
        CommandButton3.BackColor = &HFFFFC0    ' düğme zeminine renk verir
    Else
        Call Baski_Yap
        CommandButton3.Caption = "GİRİŞ YAP"
        CommandButton3.BackColor = &HC0E0FF    'düğme zeminine renk verir
    End If
End Sub

İyi çalışmalar

 

[selcuk23]

Tevfik_Kursun Teşekkürler. tek tıklama ile iki komutu aktif edemiyoruz demi.

 

[askm]

Sub askm()
        Call Giris_Yap
        Call Baski_Yap
End Sub