Ocultar columna basándose en una celda
Tengo una planilla en una de las hojas llamada nuestro pedido en la celda K3 varia segun el usuario
Si el usuario es Globalfarm o Metagal necesito que en la hoja lunes me muestre la columna G si el usuario no es ninguno de esos 2 necesito que la columna G este oculta en la hoja lunes
1 Respuesta
Prueba con esta macro
Sub mostrar()
Set h1 = Worksheets("nuestro pedido").Range("k3")
Set H2 = Worksheets("lunes")
VALIDAR = UCase(h1.Value) = "GLOBALFARM" Or UCase(h1.Value) = "METAGAL"
If VALIDAR Then
H2.Range("G:G").Columns.Hidden = False
Else
H2.Range("G:G").Columns.Hidden = True
End If
End Sub
¿Y si la quiero ocultar o mostrar en los demás días o sea de martes a sábado? Y otra cosa donde deberia pegar la macro
Esta macro la pegas en el modulo VBA de la hoja nuestro pedido, en donde están los nombres de los días puedes dejar solo aquellos días que ocupes, y la macro solo ocultara la columna G en esas hojas, solo requieres escribir la palabra en la celda K3 de la hoja nuestro pedido.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim funcion As WorksheetFunction
Set funcion = WorksheetFunction
Set H1 = Worksheets("nuestro pedido").Range("k3")
RANGO = Not Intersect(Target, Range("K3")) Is Nothing
If RANGO Then
VALIDA = UCase(H1.Value) = "GLOBALFARM" Or UCase(H1.Value) = "METALGAL"
If VALIDA Then
For i = 1 To 7
dia = funcion.Choose(i, "lunes", "martes", "miercoles", "jueves", "viernes", "sabado", "domingo")
Worksheets(dia).Range("G:G").EntireColumn.Hidden = False
Next i
Else
For i = 1 To 7
dia = funcion.Choose(i, "lunes", "martes", "miercoles", "jueves", "viernes", "sabado", "domingo")
Worksheets(dia).Range("G:G").EntireColumn.Hidden = True
Next i
End If
End If
End Sub
¿Una ultima consulta si además de globafarm y metagal quiero aggregar otro lo hago poniendo de la misma manera con el or en el medio?
Así es, solo agregas otro or como condición
no me funciona te puedo mandar por mail la planilla?
Sube tu archivo a googledrive, nediafire o algún servicio de la nube para verlo
