Commandbutton1 çalıştırmak

[tahsinanarat]

Userformu açtıktan sonra; Userform üzerinde bulunan commandbutton larını makro ile nasıl tetikleyebiliriz.

 

[muygun]

Merhaba;

Userformun kod kısmına;

Private Sub UserForm_Activate()
Call CommandButton1_Click
End Sub

Private Sub CommandButton1_Click()
MsgBox ("CommandButton1 tetiklendi")
End Sub

Şeklinde kodları deneyin.

İyi çalışmalar.

 

[tahsinanarat]

Sn. muygun istediğim olmadı, bu şekilde MsgBox olarak CommandButton1 tetiklendi
mesajını veriyor ancak CommandButton1 içindeki kodları tetiklemiyor, yani CommandButton1 in üzerine maus ile tıkladığımız gibi tetiklemesi gereken bir kod gerekiyor.

 

[BedriA]

Sn. muygun istediğim olmadı, bu şekilde MsgBox olarak CommandButton1 tetiklendi
mesajını veriyor ancak CommandButton1 içindeki kodları tetiklemiyor, yani CommandButton1 in üzerine maus ile tıkladığımız gibi tetiklemesi gereken bir kod gerekiyor.

Buton içindeki kod ile ne yapmak istiyorsunuz?
Kodu veya projenin bir örneğini paylaşabilir misiniz?

Açılışta bu işlemi yapmak istiyorsanız, butona kod atamaya gerek yok o zaman,
butona atayacağınız kodu formun Intialize olayına atayarak deneyebilirsiniz.

Veya butondaki kodu bir modüle yapıştırarak, Actiavite olayında Call ile ile
makroyu çalıştırabilirsiniz.

 

[tahsinanarat]

Sn. BedriA İlginiz için teşekkürler;
vergi kimlik no bilgilerini sorgulamak, yapmaya çalıştığım örnek dosya aşağıdaki linkde.
http://www.excel.web.tr/f48/vergi-numarasy-sorgulama-eksikleri-t139497/sayfa2.html#post907253

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Me.CommandButton1.Value = 1

 

[tahsinanarat]

Sn.Seyit Tiken, 5 nolu mesajımdaki linkde eklediğim dosyadaki userform1 deki commandbutton1 i çalıştırmak istiyorum, denedim ancak olmadı, bu dosya üzerinde deneyebilir misiniz. Teşekkürler.

 

[Seyit Tiken]

Ben sadece son satırı ilave ettim.

Private Sub UserForm_Initialize()
ComboBox1 = Range("B2").Value
ComboBox1.RowSource = "Sorgula!B2:B" & Sheets("Sorgula").Range("B65536").End(3).Row
WebBrowser1.navigate "https://intvd.gib.gov.tr/internetvd/template.jsp?page=IVD_MENU_SORGULAMALAR"
ComboBox2.RowSource = "Sorgula!ı4:ı" & Sheets("Sorgula").Range("ı65536").End(3).Row
WebBrowser: Me.CommandButton1.Value = 1
End Sub

 

[tahsinanarat]

Çalıştırmak istediğim ekte

Sn. Seyit Diken heyanla hemen denedim ancak ekli dosyada çalıştırmak istediğim user form üzerindeki VKNO SORGULA (Commandbutton1)'e mausla tıkladığımda sonuca gidiyorum, ancak verdiğiniz kodla istediğimi yapmıyor. Dosya üzerinde deneyebilirmisiniz.

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Private Sub UserForm_Activate()
CommandButton1.Value = 1
End Sub

 

[tahsinanarat]

Ekli resimdeki gibi

Ekli resimdeki gibi ekran geliyor, başka herhangi bir işlem yapmıyor.

 

[Seyit Tiken]

Tahsin bey, kod, dosyanız üzerinde butonu CommandButton1'i tetiklemiyor, test uygulamasında çalışıyor, muhtemelen, hiyerarşik kod düzeni ile alakalı olabilir.