Bir kod iki sorun. Kod numlock'u kapatıyor (ÇÖZÜLDÜ)

[vol1237]

Üsdatlar merhabalar. Elimde whatsappwebden otomatik mesaj gönderen bir kodum var.

Sorun 1) Arkadaşlar bu kod çalışınca neden bilmiyorum numlock off oluyor her seferinde


Sorun 2) Bu kod da peş peşe gönderme yaptığım zaman whatsapp web açık olduğu halde 2. 3. mesajda yeni sekmede yeniden whatsapp web açıyor. acaba whatsapp web açıksa yeni bir sekmede açmamasını sağlamak mümkün olabilir mi?

Private Sub mesajgonder_Click() 'Whatsapp Mesaj Gönder

Dim kime As String
Dim metin As String

kime = Sheets("Data").Range("B1").Text
metin = Sheets("Data").Range("B2").Text


ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send?phone=90" & kime & "&text=" & metin & "&app_absent=1&send=1"
Application.Wait (Now + TimeValue("00:00:10"))

Call SendKeys("~", True)

End Sub

 

[Cengiz Demir]

Numlock u tekrar açmak için bu kodu deneyebilirsiniz.

If Not GetNumLockKey Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"

 

[vol1237]

yani şu kodda nasıl öyle bir sonuç oluyor onu anlayamıyorum.

 

[vol1237]

Numlock u tekrar açmak için bu kodu deneyebilirsiniz.

If Not GetNumLockKey Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"

bu kodu nereye ekliyorum eklediğim satırda hata alıyorum ama.

 

[Necdet]

Merhaba,

Call SendKeys("~", True)

NumLock'ı kapatan kod .
aynısından tekrar yazın, ikinci sefer numlock u açar.

 

[vol1237]

Merhaba,

Call SendKeys("~", True)

NumLock'ı kapatan kod .
aynısından tekrar yazın, ikinci sefer numlock u açar.

Malesef kodun altına tekraren yazdığım halde numlock u açmıyor

 

[vol1237]

end subdan önce aşağıdaki kod sorunu çözüyor. konu çözülmüştür herkese teşekkrüler.

Application.SendKeys "{NUMLOCK}"