#If VBA7 Then 'Numlock icin
Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Sub DikdörtgenKöþeleriYuvarlatýlmýþ1_Týkla()
Dim i As Long
With ThisWorkbook.Sheets("MESAJ")
.Shapes("Ýmza").Copy
For i = 3 To 5
DoEvents
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://web.whatsapp.com/send?phone=" & .Cells(i, 1).Value & "&text=" & .Cells(i, 2).Value
Application.Wait Now + TimeValue("00:00:05")
SendKeys "^v" 'v normal v
Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{Enter}", True)
Application.Wait Now + TimeValue("00:00:05")
SendKeys "^{F4}"
Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{Enter}", True)
Set ie = Nothing
Next
End With
Application.CutCopyMode = False
If GetKeyState(vbKeyNumlock) = 0 Then SendKeys "{NUMLOCK}", True 'Numlock icin
MsgBox "Bitti"
End Sub
Merhaba.Arşivimdeki kodu sizin dosyaya uyarladım.