Skip to main content

AccessTr.neT


Excel Den Whats Up A Toplu Mesaj Gönderme Hakkında

Oğuz Türkyılmaz
Oğuz Türkyılmaz
29
2220

Excel Den Whats Up A Toplu Mesaj Gönderme Hakkında

#25
BU sorunu çözdüm @feraz hocam. Aşağıdaki kodla da sonboş satıra gidebiliyorum. Benim sorunum bunu döngüde nasıl kullanacağımı bilememek.
Kod:
Range("A3").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#26
(08/05/2021, 17:07)Oğuz Türkyılmaz yazdı: BU sorunu çözdüm @feraz hocam. Aşağıdaki kodla da sonboş satıra gidebiliyorum. Benim sorunum bunu döngüde nasıl kullanacağımı bilememek.
Kod:
Range("A3").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Bu kodu kullanmak sakıncalı çünkü eğer satırlar arasında boş satır varsa en alta gitmez.
Cevapla
#27
#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 Test()
    Dim i As Long, son As Long
    With ThisWorkbook.Sheets("MESAJ")
        son = .Cells(Rows.Count, 1).End(3).Row
        If son < 2 Then
            MsgBox "Gönderilecek mesaj yok", vbCritical, "hata"
            Exit Sub
        End If
      For i = 2 To son
            DoEvents
            .Shapes("Ymza").Copy
              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
Cevapla
#28
Kod:
Cells(ActiveSheet.Row.Count, 1). End(xlUp).Offset(1, 0 ).Select

Doğrusu bu olacak

Hocam Tam da iz üstündeydim. Benden çabuk davrandınız Img-grin
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 08/05/2021, 17:48, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#29
(08/05/2021, 17:45)Oğuz Türkyılmaz yazdı:
Kod:
Cells(ActiveSheet.Row.Count, 1). End(xlUp).Offset(1, 0 ).Select

Doğrusu bu olacak

Hocam Tam da iz üstündeydim. Benden çabuk davrandınız Img-grin
Bu kod son satırın bir altını seçer yani satır numarasını vermez.
Cevapla
#30
(08/05/2021, 17:50)feraz yazdı:
(08/05/2021, 17:45)Oğuz Türkyılmaz yazdı:
Kod:
Cells(ActiveSheet.Row.Count, 1). End(xlUp).Offset(1, 0 ).Select

Doğrusu bu olacak

Hocam Tam da iz üstündeydim. Benden çabuk davrandınız Img-grin
Bu kod son satırın bir altını seçer yani satır numarasını vermez.

Evet yani kayıt yapılacak satırı seçmek için kullanabilirim.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task