Whatsapp desde Excel
Publicado por Jesús Becker (1 intervención) el 20/04/2018 18:56:52
Buenas a todos/as:
Tengo el Siguiente codigo que me permite enviar mensajes de Whatsapp desde excel, lo que quiero es hacer que se impute el valor de la siguiente celda mediante un loop y este se detenga si no hay mas valores que leer, espero me puedan ayudar, gracias.
Tengo el Siguiente codigo que me permite enviar mensajes de Whatsapp desde excel, lo que quiero es hacer que se impute el valor de la siguiente celda mediante un loop y este se detenga si no hay mas valores que leer, espero me puedan ayudar, gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Test ()
ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
fila = 7Do Until Sheets(1).Cells(fila, 6) = ""
Fazer (2000)
Url = Cells(fila, 6)
Fazer (10000)
Call SendKeys("{F6}", True)
Call SendKeys(Url, True)
Call SendKeys("{ENTER}", True)
Fazer (10000)
Call SendKeys("{ENTER}", True)
fila = fila + 1
Loop
End Sub
Function Fazer(ByVal Acao As Double)
Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)
'milliSeconds
End Function
Sub teste()
Fazer (5000)
MsgBox "suel"End Sub
Valora esta pregunta
0
