Buenas tardes toda la gente del foro
estoy aprendiendo todo el mundo de las vba, y tengo un problema en una macro que estoy armando.
es una macro que manda mensajes por app whatsapp web. en eso quiero mandar un link de la empresa donde trabajo.
pero el problema es que la macro me corta el link, no lo manda entero porque en uno de los casos el link contiene el signo #.. y en el otro caso tiene separaciones con el signo %.. como puedo solucionar esto para que me envie el link completo..
desde ya muchas gracias a todos.!
saludos
Sin ver el código es difícil de adivinar. ¿Puedes adjuntar un ejemplo?
------
Ya sé Excel, pero necesito más.
Sub wapp_links()
'Declaracion de variables
Dim text, contact As String ' Variables de envio
Dim i As Long, pausa As Long 'Variable de itinerancia
Dim ws As Worksheet ' Variable de hoja de calculo
Dim wapp As Variant ' Variable de Applicacion
Dim rng As Range
Dim rut As Variant
'Selecciona la Hoja donde tiene que sacar los datos
rut = Sheets("Mandar Ms").Range(Range("C6"), Range("C6").End(xlDown)).SpecialCells(xlCellTypeVisible).Rows.Count
Set ws = Sheets("Mandar Ms")
Set rng = ws.Range("C6")
Set rut = ws.Range("D6")
'Rango Regantes Filtrados
rut = Sheets("Mandar Ms").Range(Range("C6"), Range("C6").End(xlDown)).SpecialCells(xlCellTypeVisible).Rows.Count
pausa = ws.Range("B3").Value * 1000
If Application.WorksheetFunction.CountA(ws.Range("A6:A1000000")) = 0 Then
MsgBox "No hay URLS para seleccionar", vbOKOnly
Exit Sub
End If
'Abre Chrome para ejecutar las paginas
Do Until rng.Offset(i, 0) = ""
text = "C:\Program Files\Google\Chrome\Application\chrome.exe -url " & rng.Offset(i, 0)
Range("B6").NumberFormat = "@"
Shell (ht)
Espera (pausa)
Call SendKeys("~", True) 'Envia el mensaje
i = i + 1
Loop
Shell "taskkill /IM chrome.exe"
MsgBox "Mensajes Enviados!" & vbNewLine & vbNewLine & "Revisa tu whatsapp para comprobar los resultados", vbOKOnly, "Fin del procedimiento"
Set ws = Nothing
End Sub
ese es el codigo que estoy usando
el problema lo tengo cuando intento mandar el url siguiente:
https://www.irrigacion.gov.ar/boleto/boletoOnline/#/A/servicio/A/ (la macro me manda hasta la / antes de #.. y lo mismo me hace con otro link que contiene el signo %)
(lo manda como se creo el hipervinculo ahora desde la pagina y no completo
El problema es que al encontrar un caráctes especial lo interpreta como que ahí acaba la ruta.
Para que considere toda la ruta como una unidad, entecomíllala
Para introducir unas comillas dentro de tu texto, que también se define entre comillas, tienes que poner las comillas dos veces
es decir, prueba a modificar esta línea de tu código de la siguiente manera.
text = "C:\Program Files\Google\Chrome\Application\chrome.exe -url """ & rng.Offset(i, 0) & """"
------
Ya sé Excel, pero necesito más.