hacer una macro para cuando pulse una celda el valor de ella se utilice en le macro para que complete la direccion web
publicado
buenas
Me llamo franespi y soy nuevo por ello os doy un saludo
Bueno vamos a lo que vamos
tengo una hoja excel , en la primera columna tengo introducidos unos nombres , y tengo tambien una macro
que cuando pulso cualquier celda de la primera columna pues se tiene que cojer el valor de la celda con la macro y completar con una variable en la mitad de una
direccion web , el problema esta en que no conozco la sintaxis de introducir una variable en la direccion web
podria alguien ayudarme .
os incluyo la macro
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CeldaActual As String
Dim valor As String
CeldaActual = ActiveCell.Address
valor = Range(CeldaActual).Value
'Si se elige una celda entre el rango A10:A17
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
'Se muestra un mensaje indicando la celda elegida
' MsgBox "Has seleccionado la celda " & valor, vbInformation, "EXCELeINFO"
buenas
Me llamo franespi y soy nuevo por ello os doy un saludo
Bueno vamos a lo que vamos
tengo una hoja excel , en la primera columna tengo introducidos unos nombres , y tengo tambien una macro
que cuando pulso cualquier celda de la primera columna pues se tiene que cojer el valor de la celda con la macro y completar con una variable en la mitad de una
direccion web , el problema esta en que no conozco la sintaxis de introducir una variable en la direccion web
podria alguien ayudarme .
os incluyo la macro
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CeldaActual As String
Dim valor As String
CeldaActual = ActiveCell.Address
valor = Range(CeldaActual).Value
'Si se elige una celda entre el rango A10:A17
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
'Se muestra un mensaje indicando la celda elegida
' MsgBox "Has seleccionado la celda " & valor, vbInformation, "EXCELeINFO"
ActiveWorkbook.FollowHyperlink Address:="http://blancas.paginasamarillas.es/jsp/resultados.jsp?no=valor.value&sec=17&lo=Torroella%20de%20Montgri&pgpv=1&tbus=0&nomprov=Girona&idioma=spa"
End If
End Sub
las letras rojas es lo que esta mal
o