Macro ocultar filas con color
Encontré la siguiente macro en internet, lo que hace es ocultar las columnas de color amarillo, lo que quisiera es poder modificarlo de manera distinta en ves de ocultar columnas lo haga con filas. Agradecería su respuesta
Option Explicit
Sub Oculta_columnas_amarillas()
Dim n As Integer 'ultima columna
Dim R As Range
Dim i As Integer
Rem utiliza la fila 5 para localizar las amarillas
Range("A5").Select
Set R = ActiveCell.SpecialCells(xlLastCell)
n = R.Column
For i = 1 To n
If Cells(5, i).Interior.ColorIndex = 6 Then
Columns(i).Hidden = True
End If
Next i
End Sub
Sub Muestra_columnas()
Cells.EntireColumn.Hidden = False
Range("A5").Select
End Sub
1 Respuesta
H o l a:
Lo que hace la macro es revisar las columnas de la fila 5.
Para hacerlo al revés, ¿hay qué revisar las filas pero de cuál columna?
Te anexo la macro para revisar las filas de la columna "A"
Si quieres que la revisión se haga sobre otra columna, cambia en la macro esta fila, la "A" por la letra de la columna.
If Cells(i, "A").Interior.ColorIndex = 6 Then
¡Gracias!
H o l a:
Te anexo la macro
Option Explicit Sub Oculta_columnas_amarillas() Dim n As Integer 'ultima columna Dim R As Range Dim i As Integer Set R = ActiveCell.SpecialCells(xlLastCell) n = R.Row For i = 1 To n If Cells(i, "A").Interior.ColorIndex = 6 Then Rows(i).Hidden = True End If Next i End Sub
sal u dos
