Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar de uma sheet...
 
Notifications
Clear all

Copiar de uma sheet para outra, CONCATENANDO OS DADOS

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
1,116 Visualizações
RSS
Fernando Fernandes
 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
 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
 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
 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
 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
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu JValq

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

 
Postado : 13/07/2012 9:01 am
Forum Jump:
  Tópico Anterior
Próximo Tópico