scienceman01
Yeni Üye
- Katılım
- 22 Nis 2022
- Mesajlar
- 9
- Aldığı beğeni
- 3
- Excel V
- Office 2019 TR
Merhaba dostlar. excel sayfamdaki bi tabloyu kopyalayıp whatsapweb de bir kişiye resim olarak göndermek istiyorum. aşağıdaki kod çalışıyor lakin yapıştırma işini metin olarak yapıyor direk ctrl+v yapmıyor. yardımcı olursanız sevinirim.
C#:
Private Sub CommandButton1_Click()
Dim kime As String
Dim tablo As String
Dim x As Long
ActiveSheet.Range("C10").Value = ""
For x = 2 To 10000
If ActiveSheet.Range("A" & x).Value = "" Then Exit For
Next
kime = ActiveSheet.Range("B10").Value
tablo = ActiveSheet.Range("A1:AX5").Copy
ActiveWorkbook.FollowHyperlink Address:="WhatsApp Web"
Application.Wait (Now + TimeValue("00:00:15"))
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys(kime, True)
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:3"))
Call SendKeys(tablo, True)
Call SendKeys(ActiveSheet.Paste, True)
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:2"))
ActiveSheet.Range("C10").Value = "GÖNDERİLDİ"
End Sub