[Yardım]  WHATSAPP İLE AİDAT BİLGİSİ GÖNDERME

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

WHATSAPP İLE AİDAT BİLGİSİ GÖNDERME

İleti#1)  bysardun » 10 Oca 2022 04:28

selam değerli hocalarım yaptığım programda whatspp ile site oturanlarına mesaj göndermek istiyorum fakat olmuyor yardım eden olursa sevinirim.
sayfa 4
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
bysardun
Yeni Başlamış
 
Kayıt: 05 Tem 2021 18:57
Meslek: marangoz
Yaş: 51
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: WHATSAPP İLE AİDAT BİLGİSİ GÖNDERME

İleti#2)  ilkertoklu » 13 Oca 2022 20:31

Merhabalar Hocam.
Elimden geldigince yardimci olmaya calistim, umarim isinize yarar.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ilkertoklu
 
Kayıt: 13 Oca 2022 15:49
Meslek: Ogrenci
Yaş: 21
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Atakum

Cevap: WHATSAPP İLE AİDAT BİLGİSİ GÖNDERME

İleti#3)  bysardun » 17 Oca 2022 16:20

KUZEY SİSTEM-WHAT (Otomatik kaydedildi).zip
ilkertoklu hocam teşekkür ederim .
Bilge Kazaz hocamın yaptığı ve youtube da paylaştığı bir vba kodunu kendi dosyama uyguladım odu fakat bazı eksikleri var. Bu konuda yardım edecek olursa sevinirim .
kod bu
Option Explicit

Private Sub CommandButton1_Click()
'
'WHATSAPP MESAJI GÖNDER BUTONU
'
ThisWorkbook.Activate
'Dim ie As InternetExplorer
Dim Number As String
Dim MyText As String
Dim sh As Worksheet
'Set ie = New InternetExplorer
Set sh = Sheets("MAKBUZ")
sh.Activate
Number = sh.Cells(59, 5).Text
MyText = sh.Range("B78").Text

Application.ScreenUpdating = False
Application.CutCopyMode = False
Application.CutCopyMode = False

ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
Application.Wait (Now + TimeValue("00:00:15"))
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(Number, True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("~", True)

sh.Range("C2:AK23").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Application.Wait (Now + TimeValue("00:00:01"))
Range("H62").Select
ActiveSheet.Paste
Selection.ShapeRange.Name = "Picture 1"
sh.Shapes("Picture 1").Copy

Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(MyText, True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("~", True)
Application.SendKeys "{NUMLOCK}%s"
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("^+W")
Application.Wait (Now + TimeValue("00:00:01"))
'Call SendKeys("~", True)
ActiveSheet.Shapes("Picture 1").Delete
Call CommandButton2_Click
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "MAKBUZ!D26:I30"
ListBox2.ColumnCount = 2
ListBox2.RowSource = "MAKBUZ!B71:B77"
Label7.Caption = Sheets("MAKBUZ").Range("E58").Value
End Sub
Private Sub Temizle()
ListBox1.RowSource = ""
End Sub
ben dosyaya uyguladım makbuz sayfasında makbuz excel ekran resmi oluşturuyor ve gönderiyor. fakat döngü yok manuel olarak 54 daireye yollamamız gerekiyor ben ise orada toplu olarak göndermek istiyorum .fakat burda önemli bir husus var makbuzda
a-blok daire no 1 iken makbuz no 1 b blok daire 1 iken makbuz no 28 olacak.
yardımlarınız için şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
bysardun
Yeni Başlamış
 
Kayıt: 05 Tem 2021 18:57
Meslek: marangoz
Yaş: 51
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: WHATSAPP İLE AİDAT BİLGİSİ GÖNDERME

İleti#4)  bysardun » 17 Oca 2022 16:25

yukarıdaki durumuma ek resimler
image_2022-01-17_14-47-45.png
image_2022-01-17_14-47-22.png
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
bysardun
Yeni Başlamış
 
Kayıt: 05 Tem 2021 18:57
Meslek: marangoz
Yaş: 51
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe