Macro para ocultar columna
Me gustaría que por favor me colaboraras como puedo hacer una macro para ocultar columnas por color es decir si la columna f es amarillo me la oculte gracias
1 Respuesta
Respuesta de Nlyos Leet
1
Sub Macro2()
Dim Celda As Range
For Each Celda In ActiveSheet.Range("A:J") 'condiciona el rango que deseas
If Celda.Interior.ColorIndex = 6 Then 'esta para el color amarillo
Celda.Select
Selection.EntireColumn.Hidden = True
End If
Next Celda
End Sub
Dim Celda As Range
For Each Celda In ActiveSheet.Range("A:J") 'condiciona el rango que deseas
If Celda.Interior.ColorIndex = 6 Then 'esta para el color amarillo
Celda.Select
Selection.EntireColumn.Hidden = True
End If
Next Celda
End Sub
