- Katılım
- 16 Kasım 2021
- Mesajlar
- 3
- Excel Vers. ve Dili
- 2016 - RUS
Azerbaycandan merhabalar! Nasılsınız? Şu şekilde bir VBA yazılımı hazırladık.
Sadece bazı eksikler mevcut. Mesela istiyoruz ki otomatik olarak yalnızca mevcut olan linklere tıklamakla, vatsapta da enter uygulayarak mesajı göndersin...
Bazı eksiklere Asri bey yardımcı oldu. Çok teşekkür ederiz. Ancak yine de eksiklerimiz var. Otomatik olarak gönderim sorunumuz var.
Sub gonderime_basla()
For i = 2 To 5
Range("B" & i).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.Wait (Now + TimeValue("00:00:10"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:10"))
Next
End Sub
Bununla ilişkin yardım ede bilirseniz çok-çok sevinirim. Benimle mail yoluyla da iletişime geçebilirsiniz... Çok teşekkür ederim.
sharifoghlu@gmail.com
Sadece bazı eksikler mevcut. Mesela istiyoruz ki otomatik olarak yalnızca mevcut olan linklere tıklamakla, vatsapta da enter uygulayarak mesajı göndersin...
Bazı eksiklere Asri bey yardımcı oldu. Çok teşekkür ederiz. Ancak yine de eksiklerimiz var. Otomatik olarak gönderim sorunumuz var.
Sub gonderime_basla()
For i = 2 To 5
Range("B" & i).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.Wait (Now + TimeValue("00:00:10"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:10"))
Next
End Sub
Bununla ilişkin yardım ede bilirseniz çok-çok sevinirim. Benimle mail yoluyla da iletişime geçebilirsiniz... Çok teşekkür ederim.
sharifoghlu@gmail.com