Vba Application.SendKeys "{ENTER} sorunu hk

[chakistes]

merhaba arkadaşlar userformda aşağıdaki kod ile kayıt yenileme yaptıktan sonra aşağıdaki kod ile enter 'e otomatik seçmesini istiyorum fakat kabul etmiyor tekrar ekranda tamam yada esc çıkıyor
UserForm1.WebBrowser1.Document.getElementById("OOMToolbarActive1_refresh_b").getElementsByTagName("img")(0).Click
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{ENTER}"


ayrıca excelde enter tuşunu denemek için aşağıdaki kodu yazdıktan sonra tamam uyarısı otomatik onaylaması için denedim olmadı.
msgbox "DENEME"
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{ENTER}"

 

[Cengiz Demir]

Userformunuz ile ilgili görmeden bir şey söyleyemem ama
Mesaj kutusu sizden onay beklediği için makroyu tutuyor. Onay verilmediği için
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{ENTER}"
Kodları işleme alınmıyor..
Kısır döngü gibi bir durum oluşuyor.
Siz onaylamayı yapmak için kod yazıyorsunuz. Ama o kodlara geçiş yapılabilmesi için sizin onay vermeniz gerekiyor.
Belki sizin userformunuzda da buna benzer bir durum oluşuyordur.

 

[Zeki Gürsoy]

WScript.Popup metodunu araştırın.

 

[chakistes]

yardımın için teşekkür ederim fakat
userformda commandbutton ile
msgbox "DENEME"
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{ENTER}"
buna göre otomatik onaylama nasıl yapabilirim en basitinden denetim yine olmadı

 

[Orion1]

Zeki hocamın dediği öneriye istinaden aşağıdaki kodu command buton içine yazınız.

CreateObject("WScript.Shell").Popup "İşlem tamam!..", 1, "c h a k i s t e s", vbInformation

 

[chakistes]

teşekkür ederim ters bir yöndemde işe yaradı
Application.SendKeys "{ENTER}" bu şekilde başta olursa click den önce enter olayı işi çözdü
UserForm1.WebBrowser1.Document.getElementById("OOMToolbarActive1_refresh_b").getElementsByTagName("img")(0).Click