Acerca de: Nombres Definidos en excel 2003
Buenos días,
Sres. T. E.
El presente es para solicitarles ayuda, con respecto a una aplicación que estoy desarrollando, a continuación les detallo el caso:
Estoy desarrollando una Macro V.B. (Excel 2003), en una hoja tengo definido un nombre como "DefNombre" que comprende un Rango de =Hoja1!$A$1:$A$10 , en realidad lo que necesito es que al seleccionar una celda que se encuentre dentro del rango mencionado me muestre un MsgBox que estoy dentro del rango.
Saludos cordiales,
Ender Vargas
Sres. T. E.
El presente es para solicitarles ayuda, con respecto a una aplicación que estoy desarrollando, a continuación les detallo el caso:
Estoy desarrollando una Macro V.B. (Excel 2003), en una hoja tengo definido un nombre como "DefNombre" que comprende un Rango de =Hoja1!$A$1:$A$10 , en realidad lo que necesito es que al seleccionar una celda que se encuentre dentro del rango mencionado me muestre un MsgBox que estoy dentro del rango.
Saludos cordiales,
Ender Vargas
1 respuesta
Respuesta de Elsa Matilde
1
Te dejo la instrucción que necesitas, traducido sería como: 'si no está vacía la intersección...'
Por ahora solo muestra un mensaje. Si lo aplicás al evento Change de una hoja reemplazá ActiveCell por Target
Sub Interseccion()
'x Elsamatilde
If Not Intersect(ActiveCell, Range("DefNombre")) Is Nothing Then
MsgBox "Estoy en el rango"
End If
End Sub
Saludos. No olvides finalizar la consulta
Por ahora solo muestra un mensaje. Si lo aplicás al evento Change de una hoja reemplazá ActiveCell por Target
Sub Interseccion()
'x Elsamatilde
If Not Intersect(ActiveCell, Range("DefNombre")) Is Nothing Then
MsgBox "Estoy en el rango"
End If
End Sub
Saludos. No olvides finalizar la consulta
Hola, Elsa
Gracias por tu ayuda, ya que tenia un buen tiempo tratando de encontrar este resultado, tu repuesta ha sido una fantástica solución.
De nuevo gracias
Saludos,
Ender
Gracias por tu ayuda, ya que tenia un buen tiempo tratando de encontrar este resultado, tu repuesta ha sido una fantástica solución.
De nuevo gracias
Saludos,
Ender
