Excel Copiar e Colar células no excel

[Rafael Borges P.]

Boa tarde amigos, tenho um documento no excel que possui algumas planilhas...

Estou usando vba e através de um código eu gero dados de duas planilhas para o Word.

 

A primeira planilha é o cadastro de alguns funcionários, já na segunda é a continuação( onde eu coloco local e etc)

Estive com problemas na hora de gerar os dados porque como a primeira planilha as vezes possuía mais de um cadastro, ou seja, usou mais de uma linha. Ai na segunda planilha, como tudo é o mesmo local fica só uma linha. Ao VBA fazer a leitura só passava o primeiro funcionário que cadastrei. Eu queria que então ao clicar no botão, ele copiasse as informações do local ( segunda planilha) e colasse na quantidade de linhas que foram criadas na primeira planilha...

 

Segue os documentos em anexo.

 

Alguém poderia me ajudar? 

Teste_Excel.zip

Teste_Word.zip

[Rafael Borges P.]

Bom dia amigos, mais uma vez venho pedir pela ajuda de vocês.

 

Alguém poderia me ajudar? até agora não consegui solucionar o problema.

[André_Arruda]

Qual é o problema?

[Rafael Borges P.]

Boa tarde André,

Tenho um documento no excel, onde faço cadastro de alguns funcionários, queria que na plan (Gerar documento) só copiasse os dados das colunas A2:H2 e colassem até A6:H6, SE (IF) na plan (Cadastro) tivesse algum valor na coluna A3 ou A4 ou A5 ou A6.

Consegui explicar direitinho?

 

Eu preciso que só copiei na plan (Gerar documento)  os dados da coluna A2:H2 e colem no A3:H3 se na plan (Cadastro) tivesse algum valor na coluna A3 e assim por diante.

 

Segue em anexo o documento.

 

 

To usando o seguinte código: 'Copiar e colar dados do Gerar Documento
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A3:H3").Select
    ActiveSheet.Paste
    
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A4:H4").Select
    ActiveSheet.Paste
    
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A5:H5").Select
    ActiveSheet.Paste
    
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A6:H6").Select
    ActiveSheet.Paste
    
    Application.CutCopyMode = False

 

 

Mas preciso que entre essa condição que pedi nele.....

Teste_Excel.zip

[Rafael Borges P.]

1 hora atrás, Rafael Borges P. disse:

Boa tarde André,

Tenho um documento no excel, onde faço cadastro de alguns funcionários, queria que na plan (Gerar documento) só copiasse os dados das colunas A2:H2 e colassem até A6:H6, SE (IF) na plan (Cadastro) tivesse algum valor na coluna A3 ou A4 ou A5 ou A6.

Consegui explicar direitinho?

 

Eu preciso que só copiei na plan (Gerar documento)  os dados da coluna A2:H2 e colem no A3:H3 se na plan (Cadastro) tivesse algum valor na coluna A3 e assim por diante.

 

Segue em anexo o documento.

 

 

To usando o seguinte código: 'Copiar e colar dados do Gerar Documento
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A3:H3").Select
    ActiveSheet.Paste
    
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A4:H4").Select
    ActiveSheet.Paste
    
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A5:H5").Select
    ActiveSheet.Paste
    
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A6:H6").Select
    ActiveSheet.Paste
    
    Application.CutCopyMode = False

 

 

Mas preciso que entre essa condição que pedi nele.....

Teste_Excel.zip

ACHEI ESSE CÓDIGO, MAS NÃO CONSEGUI ADAPTAR PARA O QUE QUERO. DEU ERRO

 

 

 

Public Sub CORRETO()                        ' Inicio do Programa
Dim Y, X As Integer

Range("B15").Select                         ' Seleciona a começa a correr a celula a partir desta posição
Do                                          ' Inicio do LOOP
If IsEmpty(ActiveCell) = False Then         ' Verifica se posição tem ou não texto
    ActiveCell.Offset(1, 0).Select

End If                                      ' Fim de IF

Loop Until IsEmpty(ActiveCell) = True       ' Se posição inicial não tem texto efetuar comandos
   
    X = InputBox("Digite Quantidade:")      ' Apresenta caixa de texto para inserir valor de X.
   
   
   
   
    Sheets("Plan2").Select                  ' Vai para plan2.
   
    Range("A2").Clear                       ' Limpa a celula A2
   
    Range("A2").Value = X                   ' Insere novo valor
   
    Range("A2 : C2").Select                 ' Na posição A1
   
    Selection.Copy                          ' Copia o valor que estiver na celula
   
    Sheets("Plan1").Select                  ' Busca plan1
   
    ActiveSheet.Paste                       ' Cola o valor da primeira planilha

 

 

 

[Rafael Borges P.]

'Se a coluna A3 da planilha cadastro tiver valor.Então
'vai apagar a linha 3 da plan "gerar documento"

 

'Se a coluna A4 da planilha cadastro tiver valor.Então
'vai apagar a linha 4 da plan "gerar documento"

 

'Se a coluna A5 da planilha cadastro tiver valor.Então
'vai apagar a linha 5 da plan "gerar documento"

 

'Se a coluna A6 da planilha cadastro tiver valor.Então
'vai apagar a linha 6 da plan "gerar documento"

 

[LaerteB]

Em 24/10/2018 às 12:01, Rafael Borges P. disse:

Boa tarde amigos, tenho um documento no excel que possui algumas planilhas...

Estou usando vba e através de um código eu gero dados de duas planilhas para o Word....

Boa tarde, Rafael Borges P.

 

Primeiro gostaria de dar um toque para ti, quando anexar conteúdo de seu problema, coloque dados fictícios (não coloque dados reais) para não dar dor de cabeça para ti no futuro .

 

Segundo não estou compreendendo o que quer fazer... você tem três planilhas, Menu, Cadastro e Gerar Documentos.. o menu leva para as abas especificas; mas você quer que quando gerar o documento ele grave na aba Cadastro a cópia do quê?? ..

Por gentileza dar uma breve explicação do que realmente o seu projeto fará, para que possamos analisar melhor o seu caso.

 

Abraços

LaerteB.

 

[Rafael Borges P.]

Boa tarde Laerte,

 

Esse documento é fictício.

Tenho um documento no excel, e preciso que na Plan. "Gerar documento"  só copie os dados das células  A2:H2 e cole no A3:H3 SE na Plan. (Cadastro) tiver  valor na célula A3 e assim por diante (o limite é ate A6, não passará disso). Ex: Tendo valor na A4 (Cadastro), ta autorizada a cópia dos dados da A2:H2 (Gerar documento) para A4:H4 (Gerar documento) e etc.

 

o código que to utilizando por enquanto:
'Copiar e colar dados da Gerar Documento
    Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A3:H3").Select
    ActiveSheet.Paste

Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A4:H4").Select
    ActiveSheet.Paste

Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A5:H5").Select
    ActiveSheet.Paste

Sheets("GERAR DOCUMENTO").Select
    Range("A2:H2").Select
    Selection.Copy
    Sheets("GERAR DOCUMENTO").Select
    Range("A6:H46").Select
    ActiveSheet.Paste
   
    Application.CutCopyMode = False

 

Pensei então que pode haver outra opção, usando uma condição que faça o seguinte:
'Se a célula A3 da planilha cadastro tiver valor.Então
'vai apagar a linha 3 da plan "gerar documento"
'Se a célula A4 da planilha cadastro tiver valor.Então
'vai apagar a linha 4 da plan "gerar documento"
'Se a célula A5 da planilha cadastro tiver valor.Então
'vai apagar a linha 5 da plan "gerar documento"
'Se a célula A6 da planilha cadastro tiver valor.Então
'vai apagar a linha 6 da plan "gerar documento"

Mas talvez  seja considerável ficar com a primeira opção, pois penso que a segunda será mais trabalhosa, uma vez que ( vai copiar e colar dos dados e depois irá ter que ficar excluindo caso não tenha valor na(s) célula(s) A3 ou A4 ou A5 ou A6.

 

@LaerteB

 

[LaerteB]

4 horas atrás, Rafael Borges P. disse:

Boa tarde Laerte,

 

Esse documento é fictício.

Tenho um documento no excel, e preciso que na Plan. "Gerar documento"  só copie os dados das células  A2:H2 e cole....

 

@LaerteB

 

Boa tarde, Rafael Borges P.

 

Olha eu fiz um módulo com o que você mencionou na mensagem acima (se eu compreendi o que quer realizar; se eu estiver equivocado me fale OK), e inclui um botão para acionar o comando.

 

Você pode chamar esse código de outra forma de acordo com o seu projeto.

Obs: tem um comando no código para apagar as células A3 até H6 da Plan4 (Gerar Documento) antes de realizar as cópias.. e outro igual caso não tenha valor na(s) célula(s) A3 até A6 na Plan1 (Cadastro) - foi o que entendi na mensagem acima.

 

Veja se é isto que queria (o arquivo está em anexo)...

 

Abraço

 

LaerteB

Teste_Excel- exemplo1.rar

[Rafael Borges P.]

@LaerteB

Boa tarde laerte, poderia me enviar o documento sem ser em rar? poderia ser normal?

[LaerteB]

Rafael Borges P.

 

Opa não consigo colocar no formato .xlsm, pois aqui não é permitido, mas estou enviando em .zip (que você mesmo anexou), ..

espero que lhe sirva..

 

LaerteB

Teste_Excel- exemplo1.zip

[Rafael Borges P.]

Consegui, muito obrigado, estarei verificando e já já te dou um feedeback.

adicionado 11 minutos depois

Carambaaaaa @LaerteB você é o CARA, muito obrigado, funcionou perfeitamente e era isso que eu queria....

 

Estou muito feliz!!! Obrigado mais uma vez...

 

Abraços,

Rafael

[LaerteB]

Rafael Borges P.

 

Fico contente que lhe serviu e te ajudou.

Eu que agradeço a ti; pois aqui a gente sempre aprende de todas as formas ....

 

Abraço .

 

LaerteB