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

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias