VBA Excel Basic - Inserindo e Deletando Linhas e Colunas - How To Insert And Delete Rows And Columns

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Sim, este é mais um tópico voltado para quem está iniciando na utilização do VBA - Visual Basic for Application no MS Excel.

O método Insert pode ser usado tanto para Linhas quanto para Colunas.

Sub sbExample12()

    Rows(6).Insert 'Inserirá uma linha na Linha 6.

    Rows(6).Delete 'Deletará a Linha 6.

    

    Columns("E").Insert 'Inserirá uma Coluna a partir da E.

    Columns("E").Delete 'Deletará a Coluna E.

End Sub

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Basic, Excel, worskheet, Sheet, aba, Planilha, Workbook, insert, delete, Rows, Columns, inserir, deletar,

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 o fundo das células de um range alternadamente - Row and column background color

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 faço para Colorir o fundo das células de um range com cores alternadas?

Sub ShadeAlternR (rngTarget As Range, intColor As Integer, lngStep As Long)

    ' Coloca a cor de fundo = intColor to every lngStep rows in rngTarget

    ' example: ShadeAlternateRows Range("A1:D50"), 27, 2 (colors every 2 rows light yellow)

    Dim r As Long

    Let Application.ScreenUpdating = False

    If rngTarget Is Nothing Then Exit Sub

    

    With rngTarget

        .Interior.ColorIndex = xlColorIndexNone 

    

        ' remove any previous shading

        For r = lngStep To .Rows.Count Step lngStep

            Let .Rows(r).Interior.ColorIndex = intColor

        Next r

    End With

End Sub

Sub ShadeAlternC (rngTarget As Range, intColor As Integer, lngStep As Long)

    ' Coloca a cor de fundo = intColor to every lngStep column in rngTarget

    ' example: ShadeAlternateColumns Range("A1:J20"), 27, 2 (colors every 2 columns light  yellow)

    Dim c As Long

    Let Application.ScreenUpdating = False

    If rngTarget Is Nothing Then Exit Sub

    

    With rngTarget

        .Interior.ColorIndex = xlColorIndexNone 

    

        ' remove any previous shading

        For c = lngStep To .Columns.Count Step lngStep

            Let .Columns(c).Interior.ColorIndex = intColor

        Next c

    End With

End Sub

Tags: Bernardes, MS, Microsoft, Office, Excel, delete, deletar, apagar, excluir, planilha, colorindo, color, cell, colorindex

André Luiz Bernardes

A&A® - Work smart, not hard in any place.

bernardess@gmail.com

Skype: inanyplace 

LinkedIn
Plaxo