Cómo ocultar columnas según condición
Tengo un combobox en cual que se despliegan los meses (ENERO, FEBRERO, ..., DICIEMBRE). El encabezado de cada columna de mi hoja a partir del rango "D1" hasta "ND1" es un mes. Deseo que al seleccionar un mes del combobox, oculte todas las columnas diferentes al mes seleccionado.
1 respuesta
Respuesta de Elsa Matilde
1
Como mencionas un 'combobox' voy a asumir que se trata del control ActiveX dibujado en una hoja o en un Userform.
Según eso ya sabrás dónde ubicar el siguiente código sino me lo aclaras para pasarte los detalles.
Private Sub ComboBox1_Click()
'x Elsamatilde
Dim cd
For Each cd In Range("D1:ND1")
If cd.Value <> ComboBox1 Then cd.EntireColumn.Hidden = True
Next cd
End Sub
