Sorgu için arama sonuçları: whatsapp

  1. E

    URL açık olup olmadığını sorgulam

    arkadaşlar merhaba makro çalışmadan önce her hangi bir link açık olup olmadığını nasıl sorgularız mesala makro çalışmadan önce whatsapp web açıkmı kapalımı nasıl sorgular anlarız teşekkürler
  2. S

    Makro ile Alt+Enter aynı anda tuşlama

    SendKeys String:="%{enter}", Wait:=True zaman (1000) bu kod ile istediğim sonuca ulaştım. Teşekkürler.
  3. S

    Makro ile Alt+Enter aynı anda tuşlama

    Merhabalar arkadaşlar. Call SendKeys ile tablomdaki verileri Whatsapp ile bir gruba mesaj gönderiyorum. Call SendKeys(ListBox1.List(x, 3), True) zaman (1000) kullandığım kod budur. Bu işlemi yaptıktan sonra makronun Alt+Enter kombinasyonunu yapmasını istiyorum. Örnek veriyorum, Whatsapp'a...
  4. S

    Seçilen hücrelerde belirli aralıktaki verileri whatsapp ile mesaj göndermek

    ...anlaşılacağı üzere tabloya her yeni veri girdiğimde göndermek istediğim satırı seçip A,B,D ve E sütunlarındaki sadece 1 satırdaki verileri whatsapp'ta seçeceğim bir gruba bir buton yardımı ile göndermek istiyorum. Forumda araştırdım fakat istediğim sonuca ulaşamadım. Konu hakkında...
  5. igultekin2000

    ie.quit komutu

    ...Private Sub CommandButton1_Click() For i = 2 To 3 Dim ie As InternetExplorer Set ie = New InternetExplorer ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 2) & "&text=" & Cells(i, 3) Application.Wait Now + TimeValue("00:00:10") Call SendKeys("{ENTER}", True)...
  6. Biray3550

    Dolu satırları resim olarak kopyala.

    Siteden sadece kopyala macosu buldum kopyala yapınca whatsapp'a resim olarak atıyor işimi gördü . Çok teşekkür ederim. Dim Say As Integer Say = Cells(Rows.Count, "A").End(xlUp).Row Range("A2:G" & Say).Copy
  7. Biray3550

    Dolu satırları resim olarak kopyala.

    Dolu satırları kopyalayıp whatsapp'a atacağım.
  8. D

    Excel'den Whatsapp'a Veri Yollama

    Teşekkürler işime çok yaradı :)
  9. M

    excel kullanarak whatsuptan toplu mesaj atma

    Next i satırının üst kısmına ekleyiniz Application.Wait Now + TimeValue("00:00:02") Call SendKeys("{ENTER}", True) SendKeys String:="^w{enter}", Wait:=True
  10. D

    excel kullanarak whatsuptan toplu mesaj atma

    ...For i = 2 To 4 Dim ie As InternetExplorer Set ie = New InternetExplorer ActiveSheet.Shapes("igne").Copy 'https://web.whatsapp.com/send?phone=+++ ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2) Application.Wait Now + TimeValue("00:00:05") Call...
  11. yasin85

    Kayıtlı olmayan numaraya whatsapptan mesaj

    Dosyayı kullanıyoruz işimize yarıyor. +1 geliştirme eklene bilirse daha güzel olur.. whatsapp masaüstü uygulamasını direkt açsa ve yollasa olursa güzel olur..
  12. M

    Kayıtlı olmayan numaraya whatsapptan mesaj

    https://dosya.co/kov85ots8ye2/WHATSAPP.xlsx.html
  13. işsiz123

    Telegram'a hücre bilgisini atmak

    Aşağıdaki konuda whatsapp ile çalışma mevcut bakabilirsiniz. https://www.excel.web.tr/threads/excel-ile-web-whatsappa-mesaj-goenderme.176607/page-3#post-1084209
  14. Korhan Ayhan

    Telegram'a hücre bilgisini atmak

    Merhaba, Forumda arama yapabilirsiniz. WhatsApp ile ilgili kodlamalar bulunuyor.
  15. Erdem93

    Kayıtlı olmayan numaraya whatsapptan mesaj

    Evet link çalışmıyor.
  16. wezyr

    Kayıtlı olmayan numaraya whatsapptan mesaj

    link yine gitmiş
  17. O

    Çek'in kalan vade gününü listelemek

    ...amaç şu... Bilgisayarı açtığım an başlangıca yerleştiren çek dosyası kendi kendini açacak. listelenen tabloyu, ya pdf yada ekran görüntüsünü alıp Whatsapp yoluyla ilgili kişiye mesaj atacak... Bunu yapmaya çalışıyorum. Whatsapp'a mesaj atan bir dosyam var hazır bunu onunla birleştirmem gerekecek
  18. M

    Whatsapp İle Klasördeki Resimleri Gönderme

    Bilgisayarınıza selenium yükleme şansınız varsa bende işinizi görecek bir uygulama var
  19. A

    Whatsapp İle Klasördeki Resimleri Gönderme

    ...= "Resim" Then pictur.Select pictur.Delete End If End With Next Dim emp As String, t As String MyDR = "C:\Users\Muhasebe_Orjinal\Desktop\WhatsApp\" t = ".jpg" On Error GoTo xx emp = Range("A2") ActiveSheet.Shapes.AddPicture Filename:=MyDR & emp & t xx: If Err.Number = 1004 Then MsgBox...
  20. A

    Whatsapp İle Klasördeki Resimleri Gönderme

    Selamun Aleyküm Arkadaşlar Whatsapp ile mesaj göndermeyi başardım yalnız ben bir klasör içindeki ve excel üzerinden seçili bölgeyi whatsapp ile resim ( .jpg ) göndermek istiyorum. Yardımcı olabilir misiniz.
Üst