DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Teşekkürler Daha buna benzer tasarlayamazmıyız boyut ve açı olarakEkli dosyada basit bir tane hazırladım...
Not: Dosya güncellendi.
.
Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = "1.Kod" Then
MsgBox "1.Kod çalıştı"
Me.CommandButton1.Caption = "2.Kod"
Else
MsgBox "2.Kod çalıştı"
Me.CommandButton1.Caption = "1.Kod"
End If
End Sub
Private Sub UserForm_Activate()
Me.CommandButton1.Caption = "1.Kod"
End Sub