VBA Excel - Exemplos de Copiar e Colar - 04

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Copie o intervalo especificado na Sheet1 e em seguida, cole-o na primeira linha vazia após a última entrada na coluna A da Plan2:

Sub CopyRangeToNextSheet()

Worksheets("Sheet1").Range("A5:D5").Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)

End Sub

Tags: Excel, VBA, copy, paste, 

VBA Excel - Deletando linhas duplicadas - Delete duplicate rows

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Vez por outra colamos bases de dados no MS Excel para efetuarmos análises, e sem que nos apercebamos, ou devido a uma base mal consolidada, encontramos os dados duplicados.
Como efetuar uma depuração que retire as ocorrências duplicadas deixando somente uma versão de cada registro?
A solução abaixo é o resultado de tal necessidade. 

Public Sub DelDupliRows (rng As Range)' Author:                  Date:                   Contact:' André Bernardes 29/01/2009 12:18 bernardess@gmail.com' Esta SUB deletará registros (linhas) duplicadas, será baseada no Range passado' como parâmetro. Quando esta SUB achar mais duma ocorrência no mesmo Range,' todas as ocorrências seguintes serão deletadas.
Dim r As LongDim n As LongDim v As Variant
On Error GoTo EndMacro
Let Application.ScreenUpdating = FalseLet Application.Calculation = xlCalculationManualLet Application.StatusBar = "Linha sendo processada: " & _ Format(rng.Row, "#,##0")
Let n = 0
For r = rng.Rows.Count To 2 Step -1If r Mod 500 = 0 ThenLet Application.StatusBar = "Processing Row: " & Format(r, "#,##0")End If
Let v = rng.Cells(r, 1).Value
If v = vbNullString ThenIf Application.WorksheetFunction.CountIf(rng.Columns(1), vbNullString) > 1 Thenrng.Rows(r).EntireRow.DeleteLet n = n + 1End IfElseIf Application.WorksheetFunction.CountIf(rng.Columns(1), v) > 1 Thenrng.Rows(r).EntireRow.DeleteLet n = n + 1End IfEnd IfNext r
EndMacro:Let Application.StatusBar = FalseLet Application.ScreenUpdating = TrueLet Application.Calculation = xlCalculationAutomatic
MsgBox CStr(n) & "Linha(s) Duplicada(s) Deleta(s) "End Sub

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

Tags: VBA, Excel, Column, Coluna, Delete, Linha, Plan, Planilhas, Report, Row,  rows,worksheet, lines, duplicate, duplicado, dados, paste, cut

Excel Tips - Populando Combo Box - Multi-Column

Consultancy in Excel, Access, VBA and PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Crie um Combobox

Os usuários da versões Excel 2010 e Excel 2007 podem clicar em Inserir a partir da aba Desenvolvedor, clicando no Combo Box na seção de Controles ActiveX.

Os usuários da versão Excel 2003. Clicarão no ícone do Combo Box na caixa de ferramentas.

Agora desenhe o combo Box na sua planilha:

Adicionando itens no Combobox

Para adicionar itens ao seu combobox, execute os seguintes passos.

1. Adicione o código abaixo na área de código de abertura da sua planilha (Workbook Open event), ou o adicione a outro módulo do seu código.

With Sheet1.ComboBox1

   .AddItem "Paris"

   .AddItem "New York"

   .AddItem "London"

End With

Nota: Use Sheet2 se o seu combobox estiver localizado na sua segunda worksheet.

Resultado:

2. Para conectar o conteúdo do combobox a uma célula, clique com o botão direito do mouse no combobox (certifique-se de estar no modo design) e clique em Propriedades. Preencha E2 como a célula a ser preenchida.

Como popular um combobox nos formulários?

Nível da implementação: Intermediário.

Versão em que foi testada: 2000 - 2013.

Descrição: Um combobox é disponibilizado com 10 linhas e treze colunas de informação.

Segue o 1º exemplo:

Option Explicit

Private Sub UserForm_activate()

Dim MyList(10, 10) 'Definindo como array.

' O combobox neste exemplo contém 3 colunas - Implemente quantas colunas desejar

With ComboBox1

.ColumnCount = 3

.ColumnWidths = 75

.Width = 220

.Height = 15

.ListRows = 6

End With

' Definindo tanto a lista como o local de onde obter os dados (Colunas A, D, G)

With ActiveSheet

' MyList (Linha{0 to 9}, Coluna{primeira}) = (Coluna A neste exemplo) ' Não se esqueça de continuar acrescentando para LINHA e COLUNA ' iniciando do zero Não de um MyList(0, 0) = .Range("A1")

MyList(1, 0) = .Range("A2")

MyList(2, 0) = .Range("A3")

MyList(3, 0) = .Range("A4")

MyList(4, 0) = .Range("A5")

MyList(5, 0) = .Range("A6")

MyList(6, 0) = .Range("A7")

MyList(7, 0) = .Range("A8")

MyList(8, 0) = .Range("A9")

MyList(9, 0) = .Range("A10")

' MyList (Linha {0 to 9}, Coluna{segunda}) = (Coluna D neste exemplo) MyList(0, 1) = .Range("D1")

MyList(1, 1) = .Range("D2")

MyList(2, 1) = .Range("D3")

MyList(3, 1) = .Range("D4")

MyList(4, 1) = .Range("D5")

MyList(5, 1) = .Range("D6")

MyList(6, 1) = .Range("D7")

MyList(7, 1) = .Range("D8")

MyList(8, 1) = .Range("D9")

MyList(9, 1) = .Range("D10")

' MyList (Linha {0 to 9}, Coluna {Terceira}) = (Coluna G neste exemplo) MyList(0, 2) = .Range("G1")

MyList(1, 2) = .Range("G2")

MyList(2, 2) = .Range("G3")

MyList(3, 2) = .Range("G4")

MyList(4, 2) = .Range("G5")

MyList(5, 2) = .Range("G6")

MyList(6, 2) = .Range("G7")

MyList(7, 2) = .Range("G8")

MyList(8, 2) = .Range("G9")

MyList(9, 2) = .Range("G10")

End With

' Agora populamos o Combobox

ComboBox1.List() = MyList

End Sub 

Como usar:

Abra uma planilha MS Excel

Selecione Editor Visual Basic (Tools/Macro/Visual Basic Editor)

Na janela do editor VBA (VBE window), selecione Insert/UserForm

Selecione ComboBox a partir da caixa de ferramentas (toolbox), cole-o no Formulário

Clique o botão direito do mouse no formulário

Selecione Inserir código

Então copie e cole o código acima

Testando o código:

Digite alguns dados nas colunas A, D e G na planilha

Exiba o formulário novamente, agora verá as três colunas preenchidas no Combobox

Segue o 2º exemplo:

Populando o controle:

Option Explicit 

Private Sub UserForm_Initialize() 

     

    With Me.ComboBox1 

        .AddItem "Item 1" 

        .AddItem "Item 2" 

    End With 

     

End Sub 

Populando a partir da seleção de um range na planilha:

Option Explicit 

Private Sub CommandButton1_Click() 

     

    With Sheet1 'code name

        .Range("A1") = Me.ComboBox1.Value 

    End With 

     

End Sub 

Outro:

Private Sub UserForm_Initialize()

    With Worksheets("Sheet1")

        ComboBox1.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value

    End With

End Sub

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

Tags: VBA, Office, Application, Automation, field,  Plan, planilhas, column, Excel, Multi-Collumn, populando, combobox, 

VBA Excel - Limpando cabeçalhos sem uso no Excel

Desenvolvi esta solução a partir de várias soluções que poderão consultar depois.

6º exemplo:

Sub RemovePageHeaders()

    Application.ScreenUpdating = False

    Dim objRange As Range

    Set objRange = Cells.Find("HeaderText")

    While objRange <> ""

        objRange.Offset(1, 0).Rows(1).EntireRow.Delete

        objRange.Rows(1).EntireRow.Delete

        Set objRange = Cells.Find("HeaderText")

    Wend

    MsgBox ("Removido todos os cabeçalhos")

End Sub

Tags: Excel, Delete, clean, remove, header, Linha, Plan, Planilhas, Row,  rows, worksheet, lines, UDF

André Luiz Bernardes

A&A® - In Any Place.

VBA Excel - Deletando linhas - 09 - Deletando linhas Duplicadas

Esta função eliminará todas as linhas duplicadas em um intervalo.

Para usá-la, selecione um intervalo de uma única coluna de células, compreendendo o intervalo de linhas a partir da qual são duplicados a ser excluído, por exemplo, C2:C99. Os valores da coluna selecionada serão comparados para determinar se uma linha tem duplicatas.

Linhas inteiras não são comparadas umas contra as outras. Apenas a coluna selecionada é utilizada para comparação.

Quando forem encontrados valores duplicados na coluna, a primeira linha continua, e todas as linhas subseqüentes são excluídas.

Public Sub DeleteDuplicateRows() 

Dim R As Long  

Dim N As Long 

Dim V As Variant 

Dim Rng As Range 

On Error GoTo EndMacro 

Let Application.ScreenUpdating = False

Let Application.Calculation = xlCalculationManual 

Set Rng = Application.Intersect(ActiveSheet.UsedRange, _                      ActiveSheet.Columns(ActiveCell.Column)) 
Let Application.StatusBar = "Processando as linhas: " & Format(Rng.Row, "#,##0") 

Let N = 0 

For R = Rng.Rows.Count To 2 Step -1 

If R Mod 500 = 0 Then     

Let Application.StatusBar = "Processando as linhas: " & Format (R,  "#,##0") 

End If 

Let V = Rng.Cells(R, 1).Value 

If V = vbNullString Then     

If Application.WorksheetFunction.CountIf(Rng.Columns(1),  vbNullString) > 1 Then         Rng.Rows(R).EntireRow.Delete        

Let 

N = N + 1     

End If 

Else     

If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then         Rng.Rows(R).EntireRow.Delete         

Let 

N = N + 1     

End If 

End If 

Next R 

EndMacro: 

Let Application.StatusBar = False 

Let Application.ScreenUpdating = True 

Let Application.Calculation = xlCalculationAutomatic 

MsgBox "Linhas Duplicadas foram Deletadas: " & CStr(N) 

End Sub
 

Tags: Excel, Column, Coluna, Delete, Linha, Plan, Planilhas, Report, Row,  rows,worksheet, lines

André Luiz Bernardes

A&A® - In Any Place.