Ayuda para ejecutar macro segun valor de celda asociada a cuadro combinado (control de formulario)
Publicado por Delingerb (2 intervenciones) el 01/10/2019 04:02:20
Buenas tardes, agradeceria si me pueden ayudar en lo siguiente:
Tengo un libro complejo con varias hojas y quiero hacer lo siguiente
Tengo un hoja de nombre "General" otra "Datos"
En general tengo un cuadro combinado (control de formulario) asociado a una celda en Datos
lo que quiero realizar es ejecutar un macro para ocultar/mostrar unas columnas segun el contenido de la celda en Datos, que cambia segun el cuadro combinado.
He podido realizarlo cambiado manualmente el valor de la celda en Datos. Pero no con el cuadro combinado apesar de que si se cambia el valor cuando lo utilizo.
Macros para ocultar o mostrar
En la hoja General intente esto
Agradezco de antemano su ayuda
Tengo un libro complejo con varias hojas y quiero hacer lo siguiente
Tengo un hoja de nombre "General" otra "Datos"
En general tengo un cuadro combinado (control de formulario) asociado a una celda en Datos
lo que quiero realizar es ejecutar un macro para ocultar/mostrar unas columnas segun el contenido de la celda en Datos, que cambia segun el cuadro combinado.
He podido realizarlo cambiado manualmente el valor de la celda en Datos. Pero no con el cuadro combinado apesar de que si se cambia el valor cuando lo utilizo.
Macros para ocultar o mostrar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ocultarcolumnas()
'
' ocultar Macro
'
Columns("F:P").Select
Selection.EntireColumn.Hidden = True
Range("S3").Select
End Sub
Sub mostrarcolumnas()
Columns("F:P").Select
Selection.EntireColumn.Hidden = False
Range("J2").Select
End Sub
En la hoja General intente esto
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Datos").Range("H9") = 4 Then
Call ocultarcolumnas
Else
Call mostrarcolumnas
End If
End sub
' Ocultar/Mostrar Columnas 'Agradezco de antemano su ayuda
Valora esta pregunta
0
