Macros, Ocultar columnas

Buenas tardes
Una pregunta estoy tratando de hacer un macro, en donde me oculte unas columnas de acuerdo a un valor de una celda. Ej.
Si en la celda A1 dice Enero, quisiera que se ocultaran las columnas de la M a la IV
Si en la celda A1 dice Febrero, quisiera que se ocultaran las columnas de la G a la M y de la T a la IV
ya tengo el macro de ocultar columnas pero no se como referencias la valor de la celda A1
Me podrías apoyar

1 Respuesta

Respuesta
1
Deberías ponerlo en el evento Calculate de la hoja en cuestión, podrías poner algo así...
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("A1") = "Enero" Then
ocultarEnero
ElseIf Range("A1") = "Febrero" Then
ocultarFebrero
End If
Application.EnableEvents = True
End Sub
Pero depende, como tengas escrita tu macro de ocultar incluso puede ser más simple, creo que vos simplemente estás buscando el Range("A1") = ...
Si no te funciona probá con
ActiveSheet.Range("A1") =                        (para la hoja activa)
O con
Sheets("nombreHoja"). Range("A1") =         (para especificarle una hoja específica)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ocultar una fila de una celda que contenga valor cero

¿Cómo hago con el editor de visual basic para que una determinada fila que tiene una determinada celda con valor cero me la oculta automáticamente? Aclaro que no soy un experto en el uso del editor de visual basic para excel.
1 respuesta

Actualizar celdas con función personalizadas

He creado una función en excel 2007 y necesito que refresque el resultado dado un cambio en otras celdas. La ocupo en muchas otras celdas, pero al cambiar el valor de una no se como indicarle a la función que recalcule. No le estoy pasando la celda...
1 respuesta

Macro para hoja protegida

Hace poco me hiciste una macro estupenda que eliminaba filas con celdas vacías en una columna, si se habilitaba una casilla determinada (concretamente si la celda k38="X"). La macro recalculaba para que si la K38 volviera a estar vacía se mostrasen...
2 respuestas

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

Macro ocultar columnas según condición fila

Tengo una hoja excel con unas 300 columnas Necesito ocultar determinadas columnas en función de la condición que hay en la fila 2. Es decir cada columna en la fila 2 habrá (A o B o C o D). Me interesa que cuando aplique la macro se oculten las...
1 respuesta

Macro de autofiltros/oculte de columnas con celdas bloqueadas

Tengo una planilla con muchas macros que ejecutan autofiltros y oculte de columnas. Y necesito bloquear celdas luego de que se ingresen valores. El tema que cuando bloqueo las celdas tengo conflicto con la ejecución de las macros. Supongo porque...
1 respuesta

Ejecutar macro una sola vez

Tengo el siguiente macro para que cuando el resultado de una fórmula me de "-1" ejecute otro macro que me envía un mail automáticamente y a la vez, me indica en la columna siguiente a la fórmula que me ha enviado el mail. El problema es que cada vez...
1 respuesta

Combinar funciones en una misma celda

Te molesto con otra pregunta que seguramente tiene una sencilla solución y no he logrado encontrar luego de muchas pruebas. Tengo que usar 3 celdas al mismo tiempo, supongamos A1, B1 y C1. El rango A tiene datos que voy cargando manualmente excepto...
1 respuesta