Sub DikdörtgenKöþeleriYuvarlatýlmýþ1_Týkla()



Dim son As Long, rg As Range



Dim ie As InternetExplorer



son = Range("A:A").Find("*", , , , , xlPrevious).Row

If son = 1 Then Exit Sub



For Each rg In Range("A2:A" & son).SpecialCells(xlCellTypeVisible)

    Set ie = New InternetExplorer

    ActiveSheet.Shapes("Ýmza").Copy

    ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(rg.Row, 1) & "&text=" & Cells(rg.Row, 2)

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

    Call SendKeys("^V")

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

    Call SendKeys("{ENTER}", True)

Next



Set rg = Nothing

End Sub