Mostrar control al seleccionar celda

Hola expertos,

Tengo inconvenientes con una macro, quiero que al elegir la celda I4, me muestre el calendario, al elegir la celda H22 me muestre el label 1, el label 2, el commandbutton 1 y el commandbutton 2 y por ultimo al elegir la celda O22 el label 3 y el label 4.

Cuando no este elegidas de manera independiente las celdas I4, H22 y O22, quiero que las propiedades visible de los controles este false.

Tengo la siguiente sentencia, pero me genera error:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [I4]) Is Nothing Then
With Calendar1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Today
.Visible = True

If Not Intersect(Target, [H22]) Is Nothing Then
With Label1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True

With Label2
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
With CommandButton1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
With CommandButton2
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True

If Not Intersect(Target, [O22]) Is Nothing Then
With Label3
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
With Label4
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
Exit With
Exit Sub
Exit If
Calendar1.Visible = False
Label1.Visible = False
Label2.Visible = False
CommandButton1.Visible = False
CommandButton2.Visible = False

Label3.Visible = False
Label4.Visible = False
End Sub

Gracias por la atención prestada

1 respuesta

Respuesta
1

Cada vez que dejes una consulta 'que da error' debieras indicar en qué linea dá el error o qué tipo de error se presenta al ejecutarla, para que sea más rápida la revisión.

Viéndolo a simple vista, noto errores de escritura de los bucles With e If:

Un With se inicia y termina para un objeto. Por ej:

If Not Intersect(Target, [I4]) Is Nothing Then
With Calendar1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Today
.Visible = True

END WITH

END IF 'Aquí debiera terminar también el IF para la celda I4 (*)
If Not Intersect(Target, [H22]) Is Nothing Then

'sigue

(*) Un IF puede contener otros IF .... pero en este caso la idea es que si es I4 muestre el calendar y Punto. Si es H22 muestre otro control .... es decir que cada IF debierta cerrarse con un END IF.

REalizá estos ajustes, y si luego queda algo que dé error, déjamela escrita nuevamente para controlarla.

Muchas gracias por tus aclaraciones, pero realizando los ajustes que me indicaste, presenta el siguiente error, "Error de compilación. End If sin bloque If", en las lineas subrayadas y en negrita:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [I4]) Is Nothing Then
With Calendar1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Today
.Visible = True
End With
End If
If Not Intersect(Target, [H22]) Is Nothing Then
With Label1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
With Label2
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
With CommandButton1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
With CommandButton2
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
End With
End If
If Not Intersect(Target, [O22]) Is Nothing Then
With Label3
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
With Label4
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
End With
End If
Exit Sub
Calendar1.Visible = False
Label1.Visible = False
Label2.Visible = False
CommandButton1.Visible = False
CommandButton2.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub

Gracias

Reitero: Un With se inicia y termina para un objeto.

If Not Intersect(Target, [H22]) Is Nothing Then
With Label1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True

End With
With Label2
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True

End With
With CommandButton1
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True

End With
With CommandButton2
.Top = Target.Top - 1
.Left = Target.Left + Target.Width + 3
.Visible = True
End With
End If


Y así con el otro Target... revisa que esté todo bien escrito y pruébalo nuevamente.


Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Insertar un calendario desplegable en varias celdas

¿Quisiera saber sie es posible insertar un calendario desplegable en varias celdas para seleccionar una fecha?, tengo excel 2010 y lo necesito porque voy a realizar un formato para captura de información y se me ocurrió que tal vez esto sería posible...
1 respuesta

Problemas con el MSComCtl2.DTPicker. 2 en excel

Estoy diseñando una hoja de excel para que realice un requerimiento y necesito que en una celda una vez que se escriba una fecha valida en la misma celda se inserte un objeto DTPicker, ya esa parte la he podido completar pero a pesar de que el objeto...
1 respuesta

Revisión de código para guardar imágenes en una carpeta en especifico

Que me proporcionaron en el foro: Con este código, se guarda la imagen de excel en una carpeta en especifico Sub ejemplo2() 'Por.DAM On Error Resume Next For i = 2 To Range("A" & Rows.Count).End(xlUp).Row For Each img In ActiveSheet.DrawingObjects If...
1 respuesta

Mostrar - ocultar botón excel según valor de celda

Tengo un libro excel que cuando se abre siempre muestra por defecto la hoja "DATOS", en ella tengo un botón que abre un formulario con ciertas instrucciones. Quisiera saber como se puede hacer para que si una celda de la hoja "DATOS" (por ejemplo...
2 respuestas

Ajustar ubicación de imagenes para reconocer un catalogo a una hoja de excel

Tengo este código que me ayudaron a editarlo en el foro, a mis necesidades y funciona perfectamente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Mod.Por.DAM On Error Resume Next If Not Intersect(Target, Range("H4:H723")) Is Nothing...
1 respuesta

Validar "Ñ" y Caracteres Especiales

Estimado estoy realizando una Macro y Necesito ayuda para validar en un rango de celdas en excel las "Ñ" y los caracteres especiales que al momento de presionar el enter si existe dentro del parrafo escrito uno de estos caracteres me muestre un mensaje.
1 respuesta

No ejecutar macro al seleccionar una celda vacía

Espero te encuentres genial. Tengo la siguiente macro que inserta una imagen cuando selecciono cualquier celda dentro del rango "A1:A30": Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target,...
1 respuesta

Activar una macro en excel con el enter

Estoy creando una macro en excel 2007... Primero grabe la macro donde solo ingreso el dato código y se autocompletan los demás campos con los datos de otra hoja por medio de la fórmula BuscarV ... Pero ahora necesito que al ingresar el código y dar...
1 respuesta

Código IF, para verificar datos en catalogo de imágenes

Encontré este código para catálogo de imágenes y lo adapte para mis necesidades, explico en una carpeta tengo el archivo y otra subcarpeta las imágenes, de modo que cuando coincida el nombre de la celda, que esta en el rango H4:H701, con el nombre de...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta