✔ Programação GLOBAL®

Excel Macro - Filtrando apenas uma coluna - Selective Autofilter

| Blog Office VBA | Blog Excel | Blog Access |

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

  Tags: Macros, Excel, filter, column, line, row, filtro, selective, autofilter  

Macro Excel - Deletando Linhas em branco - Delete Empty Rows

| Blog Office VBA | Blog Excel | Blog Access |

Deletando linhas em branco...

Marque o bloco de linhas que deseja apagar

Sub Del_Empty_Rows()

Dim R As Long

Dim rng As Range

Application.ScreenUpdating = False

If Selection.Rows.Count > 1 Then

   Set rng = Selection

Else

   Set rng = ActiveSheet.UsedRange.Rows

End If

For R = rng.Rows.count To 1 Step -1

   If WorksheetFunction.CountA(rng.Rows(R).EntireRow) = 0 Then

      rng.Rows(R).EntireRow.Delete

   End If

Next R

Application.ScreenUpdating = True

End Sub

  Tags: Macros, Excel, row, dell, delete, line, linha  

Excel Tips - Deixe sua planilhas calcularem mais rapidamente - Make MS Excel calculate faster

| Blog Office VBA | Blog Excel | Blog Access |

Acredito que algumas características poderiam estar inerentemente contidas no MS Excel. Uma delas, das que considero mais relevante, passa por nossa constante preocupação em relação a performance.

Nossos Dashboards, Scorecards, e Reports merecem uma performance adequada à expectativa dos nossos usuários.

Sempre nos esmeramos em manter interfaces leves, limpas. Mas se estas forem lentas tiram todo o crédito dos nossos esforços.

Quando nossas planilhas ficam muito lentas, especialmente aquelas que existem há muito tempo, pensamos logo na possibilidade de existirem muitas linhas vazias, ou más conexões as bases de dados.

Seguem alguns passos simples que o ajudarão a manter as suas planilhas ágeis e prontas:

1) Abra a sua planilha e escolha a aba que contenha o maior número de fórmulas ou dados nela.

2) Enquanto mantém pressionada a tecla [CTRL], pressione também a tecla [END]

3) Cheque a célula para onde o cursor foi movido, certifique-se de que seja a última célula com alguma ocorrência no conteúdo.

4) Caso o cursor tenha parado bem além de última célula com algum valor ou fórmula, isso quer dizer que o MS Excel está se esforçando inutilmente para vir até este ponto toda vez que procura atualizar a sua planilha. Pois ele tentará considerar essa dependência inexistente.

5) Agora vem a parte mais divertida: Selecione todas as linhas e colunas a partir da última célula com conteúdo real e delete todas.

6) Repita os passos 2 e 5 em cada uma das abas da sua planilha.

7) Salve a planilha