Excel Tips - Excluindo linhas em branco ao abrir a Planilha - Removing Blank Rows Automatically

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Olá pessoal!

Alguns perguntaram como fazer para deletar as linhas que estão em branco na planilha, logo que a esta for aberta.

Segue um código, simples, honesto, rápido e limpinho.

Private Sub Worksheet_Change (ByVal Target As Range)
'Deleta todas as linhas que estiverem em branco que existirem.  
'Previne loops infinitos  Let Application.EnableEvents = False   
'Caso haja mais de uma célula selecionada. 
If Target.Cells.Count > 1 Then
GoTo SelectionCode  
If WorksheetFunction.CountA(Target.EntireRow) = 0 Then 
Target.EntireRow.Delete 
End If  
Let Application.EnableEvents = True  
Exit Sub
SelectionCode: 
If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then 
Selection.EntireRow.Delete 
End If  
Let Application.EnableEvents = True
End Sub

Tags: VBA, Excel, deletar, apagar, excluir, row, lines, linha, range, rows, blank, removing, EntireRow, automatically, delete

VBA Excel - Excluir linhas em branco logo ao abrir a Planilha - Removing Blank Rows Automatically

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

Sim pessoal. sempre perguntam como deletar linhas em branco da planilha, assim que esta for aberta. Segue um código, simples, honesto, rápido e limpinho:

Private Sub Worksheet_Change (ByVal Target As Range)

'Deleta todas as linhas que estiverem em branco que existirem.  

'Previne loops infinitos  Let Application.EnableEvents = False   

'Caso haja mais de uma célula selecionada. 

If Target.Cells.Count > 1 Then

GoTo SelectionCode  

If WorksheetFunction.CountA(Target.EntireRow) = 0 Then 

Target.EntireRow.Delete 

End If  

Let Application.EnableEvents = True  

Exit Sub  

SelectionCode: 

If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then 

Selection.EntireRow.Delete 

End If  

Let Application.EnableEvents = True

End Sub

Tags: VBA, Excel, deletar, apagar, excluir, rows, blank, lines, linha, range, removing, EntireRow, automatically, delete

VBA Excel - Colorindo toda uma linha a partir de um parâmetro numa coluna - Color Entirerow based on a column's value

| Blog Office VBA | Blog Excel | Blog Access |

Depois de termos preenchido uma certa área com resultados processados, ou termos conectado nossa planilha em uma base de dados, podemos propiciar que esta área seja destaca pela aplicação da funcionalidade abaixo.

A partir de um parâmetro qualquer (neste caso na coluna P), podemos definir o destaque de toda uma Linha.

Private Sub Worksheet_Change(ByVal Target As Range)

'Error Handling

On Error Resume Next

    'Check only, if the change happens in Column P.

    If Left(Target.Address(0, 0), 1) = "P" Then

        'Check if selected value changed to Active

        If UCase(Target.Value) = "ACTIVE" Then

            'If Active is selected in drop down list,

            'Row color will change to green.

            Target.EntireRow.Font.Color = RGB(0, 102, 0)

            

        'Check if selected value changed to Deactive

        ElseIf UCase(Target.Value) = "DEACTIVE" Then

            'If Deactive is selected in drop down list,

            'Row color will change to red.

            Target.EntireRow.Font.Color = vbRed

            

        'Check if it's something else than Active or Deactive

        '(Not possible but have been put for validation sake.

        Else

            Target.EntireRow.Font.Color = vbBlack

        End If

    End If

'Turn off Error Handling

On Error GoTo 0

End Sub

Reference:

Tags: VBA, Excel, entirerow, color, column, value, Data Validation, Event Macro, Queries and Solutions

VBA Excel - Deletando Colunas ou Linhas no Range - Delete Columns or Lines in the range

Caros,

Continuando na linha: "Revisitando As primeiras funções que desenvolvi".

DICA: Todas as funções que criarmos que tenham interação física direta nas planilhas que estivermos utilizando, terão uma performance muito melhor se colocarmos o comando Application.ScreenUpdating = False, antes do início do respectivo processamento.

Como deletar as linhas e colunas num range informado?

Sub DelEveryNthR (DeleteRange As Range, N As Integer)

    Dim rCount As Long, r As Long

    Application.ScreenUpdating = False

    If DeleteRange Is Nothing Then Exit Sub

    If DeleteRange.Areas.Count > 1 Then Exit Sub

    If N < 2 Then Exit Sub

    With DeleteRange

        Let rCount = .Rows.Count

        For r = N To rCount Step N - 1

            .Rows(r).EntireRow.Delete

        Next r

    End With

End Sub

Sub DeleteEveryNthC (DeleteRange As Range, N As Integer)

    Dim cCount As Long, c As Long

    Application.ScreenUpdating = False

    If DeleteRange Is Nothing Then Exit Sub

    If DeleteRange.Areas.Count > 1 Then Exit Sub

    If N < 2 Then Exit Sub

    With DeleteRange

        Let cCount = .Columns.Count

        For c = N To cCount Step N - 1

            .Columns(c).EntireColumn.Delete

        Next c

    End With

End Sub

Tags: Bernardes, MS, Microsoft, Office, Excel, deletar, apagar, excluir, row, lines, linha, range, rows, blank, removing, EntireRow, automatically, delete, column, coluna

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com