Notifications

Clear all

Copiar de uma sheet para outra, CONCATENANDO OS DADOS

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

6 Posts

1 Usuários

0 Reactions

1,126 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Olá pessoal,

Gostaria da colaboração de vcs para a criação de código VBA para copiar da plan1 para plan2, concatenando os dados.
Ex:

PLAN1
A B
1 C10
2 C11
3 C12
4 C13
5 C14
6 C15

copiar esse range acima para a coluna A da Plan2, concatenando, linha por linha, as colunas A e B de cada linha.

PLAN2
A
1C10
2C11
3C12
4C13
5C14
6C15

Obrigado a todos.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/07/2012 12:23 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Boa tarde,

Veja se atende:

Sub CopiarConcatenando()
    Dim i As Long
    
    i = 1
    While Sheets("Plan1").Cells(i, 1).Value <> ""
        Sheets("Plan2").Cells(i, 1).Value = Sheets("Plan1").Cells(i, 1).Value & Sheets("Plan1").Cells(i, 2).Value
        i = i + 1
    Wend
End Sub

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/07/2012 1:06 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Era exatamente isso que precisava JValq.

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/07/2012 1:16 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Uma coisa que esqueci.

E se fosse para a cópia começar na celula A3 da Plan2,por exemplo, ao invés de começar na A1. Como ficaria esse código?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/07/2012 1:48 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Boa noite,

Veja se atende:

Sub CopiarConcatenando()
    Dim i As Long
    
    i = 1
    While Sheets("Plan1").Cells(i, 1).Value <> ""
        Sheets("Plan2").Cells(i + 2, 1).Value = Sheets("Plan1").Cells(i, 1).Value & Sheets("Plan1").Cells(i, 2).Value
        i = i + 1
    Wend
End Sub

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/07/2012 5:04 pm