Tengo un código para enviar mensajes de whatsapp desde excel, todo el codigo funciona correctamente, lo que quiero es que en caso de que el número no tenga whatsapp, rellene una celda con "sin Whatsapp", este es el código HTML
<div class="_1HX2v" data-animate-modal-popup="true"><div class="_3e9k9" data-animate-modal-body="true">
<div class="_2fuxX">El número de teléfono compartido a través de la dirección URL es inválido</div>
<div class="_2SGGH">
<div role="button" tabindex="0" class="_30EVj gMRg5">
<div class="_2jX3t _2rbZG dWI29 _1GbxC">
<div class="_2xUEC _2XHG4">OK</div>
</div>
</div>
</div>
</div>
</div>
Quisiera que en caso de aparecer esta línea de código se rellena una celda indicando "sin Whatsapp", gracias.
Este es codigo VBA que estoy usando, funciona bien para el envio de números que tienen el aplicativo instalado, sin embargo necesito hacer una especie de filtro para aquellos que no lo tienen.
Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1
Sub EnvioMasivo()
Dim rng As Range
Dim X
Dim mensaje As String
Dim UltimaFila As Long
Let UltimaFila = Sheets("Hoja 1").Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For Each rng In Sheets("Hoja 1").Range("A2:A" & UltimaFila)
mensaje = VBA.Replace("whatsapp://send?phone=" & "57" & rng.Offset(0, 1).Value & "&text=" & _
"Buen dia " & rng.Value & " Adjunto enviamos información correspondiente.", " ", "%20")
'aqui necesito si el numero no tiene whatsapp me indique en la
'fila y colunma de numero "SIN WHATSAPP"
'Caso contrario si el numero si tiene whatsapp
'continue el proceso
X = ShellExecute(hwnd, "Open", mensaje, &O0, &O0, SW_NORMAL)
Call SendKeys("~", True)
Application.Wait Now + TimeValue("00:00:02")
Call SendKeys("^v", True)
Application.Wait Now + TimeValue("00:00:02")
Call SendKeys("~", True)
Next rng
Sheets("Hoja 1").Select
Application.ScreenUpdating = True
MsgBox "Mensajes enviados con exito", vbInformation
End Sub