Views

Histats

Vitrine

Excel Macro - Filtrando apenas uma coluna - Selective Autofilter

Inline image 1


Quando você desejar que os seus usuários finais filtrem apenas uma coluna. 

Este código assume que os dados estão num bloco de texto contíguo, tendo o cabeçalho na primeira.
Sub AutoFilter_Arrows_Hide()
Dim Col As Range
Dim i As Integer
Dim ShowCol As Integer
Application.ScreenUpdating = False
 
' how many used cells in row 1?
i = Cells(1, 1).End(xlToRight).Column
 
' prompt user for column that should show autofilter arrow
ShowCol = InputBox("Only allow filter in column number...")
 
' show autofilter arrow only for matching column
For Each Col In Range(Cells(1, 1), Cells(1, i))
   If Col.Column <> ShowCol Then
      Col.AutoFilter Field:=Col.Column, visibledropdown:=False
   Else
      Col.AutoFilter Field:=Col.Column, visibledropdown:=True
   End If
Next Col
 
Application.ScreenUpdating = True
End Sub

TagsMacros, Excel, filter, column, line, row, filtro, selective, autofilter

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...