Ocultar flechas de los filtros
Puede alguien ayudarme
Tengo esta macro para filtrar
Private Sub Verde_Click()
Range("G9").Select
ActiveSheet.Range("$B$9:$R$628").AutoFilter Field:=6, Criteria1:=RGB(146, _
208, 80), Operator:=xlFilterCellColor
End Sub
Pero cuando acciono el botón de filtrar me aparecen las flechas de filtro aunque estén ocultos
Hice esta macro para no tener que usar las flechas para filtrar pero siempre aparecen
Que puedo hacer
1 Respuesta
ya te envie el archivo y en el correo explique que es lo que necesito, que al presionar los bontones (verde, amarillo, etc (son seis)) las flechas de los filtro no se vena por que no los necesito, por eso los botones, me preguntas como hago para que las flechas del filtro no se vean y eso es lo que no se.
H o l a:
Te anexo las macros actualizadas
Sub FiltrarColor(r, g, b)
'Por.Dante Amor
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
For i = Range("G" & Rows.Count).End(xlUp).Row To 10 Step -1
If Cells(i, "G").Interior.Color <> RGB(r, g, b) Then
Rows(i).Hidden = True
End If
Next
End Sub
Private Sub Verde_Click()
Call FiltrarColor(146, 208, 80) 'Verde Macro
End Sub
Private Sub CommandButton10_Click()
Call FiltrarColor(255, 255, 0) 'amarillo Macro
End Sub
Private Sub CommandButton11_Click()
Call FiltrarColor(230, 184, 183) ' rosado Macro
End Sub
Private Sub CommandButton12_Click()
Call FiltrarColor(112, 48, 160) ' morado Macro
End Sub
Private Sub CommandButton13_Click()
Call FiltrarColor(255, 255, 255) ' blanco Macro
End Sub
Private Sub CommandButton9_Click()
Call FiltrarColor(255, 192, 0) ' marron Macro
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
