commandbutton_click olayı....

Katılım
7 Haziran 2005
Mesajlar
109
arkadaşlar programım açılırken beraber otomatik olarak commandbutton1 'in click lenmesi lazım ve aynı şekilde userform1 ' dede bulunan commandbutton1 ' in userfom açılırken click lenmesi lazım...
 

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
[vb:1:2c6b938a03]Private Sub CommandButton1_Click()
MsgBox "ben geldim"
End Sub

Private Sub UserForm_Initialize()
Call CommandButton1_Click
End Sub[/vb:1:2c6b938a03]
 
Katılım
7 Haziran 2005
Mesajlar
109
mahmut bayram teşekkürler
sayfa üstüne yerleştirdiğim commandbutton1 in program açılırken otamatik tıklanması gerekiyor bunu nasıl yapabilirim.
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
Merhaba
Sayfaya ait modüle
Kod:
Private Sub Worksheet_Activate()
Call CommandButton1_Click
End Sub
 
Katılım
17 Ağustos 2004
Mesajlar
222
Excel Vers. ve Dili
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
Herhagi bir modüle
Sub Auto_Open
Call CommandButton1_Click
End Sub
 
Katılım
7 Haziran 2005
Mesajlar
109
ama her sayfada mutlaka bir tane commandbutton1 var ve bu yüzden hata veriyor.benim istediğim sayfa1 deki command butonun otomatik tıklanması
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu thisworkbook kod sayfasına kopyalayarak deneyin.

[vb:1:3d68254bb1]Private Sub Workbook_Open()
Run "sayfa1.CommandButton1_Click"
End Sub
[/vb:1:3d68254bb1]
 
Katılım
7 Haziran 2005
Mesajlar
109
arkadaşlar bir ricam daha olacaktı elimde bir user form var ve orada bulunan command button24' e tıklayınca sayfa1 'de bulunan commandbutton3 ' e tıklanmış gibi yapmasını istiyorum ama bir türlü beceremedim aşağıdaki kodu denedeim hata verdi.
Private Sub CommandButton24_Click()
Sheets("sirala") = CommandButton3_Click
End Sub
 

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
[vb:1:e4f91dda6a]Private Sub CommandButton24_Click()
Run "sirala.CommandButton3_Click"
End Sub[/vb:1:e4f91dda6a]
 

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
rica ederiz
 
Üst