Enter'a basmak

[Korhan Ayhan]

Pek kullandığım bir yöntem değil...

Belki hücredeki değeri bir değişkene alıp oradan kullanmak çözüm olabilir..

User_Name = Range("A1").Value
SendKeys User_Name, True

 

[turab_00]

Sayın hocalarım öncelikle hepinize sevgi ve selamlar
Forumda yaptığım araştırmalar sonucu buraya kadar gelebildim. Eğer cevabı mevcutsa kusuruma bakmayın.

SendKeys ("{Enter}") - Burada Enter tuşuna bastırma sorununu çözdüm

SendKeys ("TextBox1.Text") - ( BURADA TEXT BOX.TEXT İÇERİĞİNİ ARAMA MOTORUNDA ARAMAK İSTİYORUM)

Arama motoruna textbox.text yazıyor . Textbox'ın içeriğini değil.

Verilecek olası cevaplar için şimdiden teşekkür ederim.




Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr
Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_RIGHTDOWN = &H2
Public Const MOUSEEVENTF_RIGHTUP = &H4



Sub GOOGLE_ARAMA()



'move cursor and click
SetCursorPos 450, 1050 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:03")

Call SendKeys("google", True)

SendKeys ("{Enter}")

SendKeys ("TextBox1.Text")


Application.Wait Now + TimeValue("00:00:02")


'lej
SetCursorPos 727, 546 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

Hocam burada Enter tuşuna basılma sorununu çözdüğüüzü belirtmişsiniz ama geçen hafta çalışan WhatsApp mesaj gönderme uygulaması bu hafta Enter tuşuna basıp sonrasında ilgili sekmeyi kapatmak için ctrl f4 işlevlerini atlamaya başladı. Sorunu tam olarak nasıl çözdünüz