Guru do Excel e Power BI

Enviado: **07 Jun 2017 às 18:09**

Caros,

Gostaria de gerar uma plan3 que contivesse os dados de plan1 mais um dos dados de plan2. Exemplo abaixo.

Plan1 Plan2
A B C D A B C D
1 2 3 4 5 6 7 8

Plan3
A B C D
1 2 3 4
1 2 3 5
1 2 3 6
1 2 3 7
1 2 3 8

Enviado: **08 Jun 2017 às 16:15**

Boa tarde!!

O que é Plan1 e Pla2, são guias? ou arquivos?

Se for guias de um único arquivo, você deseja unir na terceira guia do mesmo arquivo?

Código: Selecionar todos

Sub AleVBA_4812()

Dim ws  As Worksheet, LR1 As Long, LR2 As Long
Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Plan3" Then
            LR1 = Sheets("Plan3").Range("A" & Rows.Count).End(xlUp).Row + 1
            LR2 = ws.Range("D" & Rows.Count).End(xlUp).Row
            ws.Range("A1:D" & LR2).Copy Destination:=Sheets("Plan3").Range("A" & LR1)
        End If
    Next ws
Application.ScreenUpdating = True
End Sub

Att

Enviado: **08 Jun 2017 às 16:31**

alexandrevba escreveu:Boa tarde!!

O que é Plan1 e Pla2, são guias? ou arquivos?

Se for guias de um único arquivo, você deseja unir na terceira guia do mesmo arquivo?

Att

Olá Alexandre. Sim, são guias de um único arquivo, porém na terceira guia eu gostaria de unir todos números que estão na guia 1 acrescentando um número da guia 2 gerando assim as linhas. Eu estou colocando uma arquivo em anexo onde na guia3 eu deixo claro o resultado esperado. Acredito que seja algo muito parecido com esta sua codificação.

Grato desde já

Enviado: **08 Jun 2017 às 16:36**

Boa tarde!!

Não muda nada além do nome da guia!

Código: Selecionar todos

Sub AleVBA_4812()

Dim ws  As Worksheet, LR1 As Long, LR2 As Long
Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet3" Then
            LR1 = Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row + 1
            LR2 = ws.Range("D" & Rows.Count).End(xlUp).Row
            ws.Range("A1:D" & LR2).Copy Destination:=Sheets("Sheet3").Range("A" & LR1)
        End If
    Next ws
Application.ScreenUpdating = True
End Sub

Att

Enviado: **08 Jun 2017 às 16:45**

[quote="alexandrevba"]
/quote]

Vou testar então e na sequência eu dou feedback e o dedão botini de qualidade

.
De qualquer forma eu agradeço de antemão a dica.

Guru do Excel e Power BI

Ler dados de plan1 e plan2 e gerar plan3

Ler dados de plan1 e plan2 e gerar plan3

Re: Ler dados de plan1 e plan2 e gerar plan3

Re: Ler dados de plan1 e plan2 e gerar plan3

Re: Ler dados de plan1 e plan2 e gerar plan3

Re: Ler dados de plan1 e plan2 e gerar plan3