Excel Como criar um macro que fosse capaz de selecionar células não vazias e copiá-la?

[Luiz Fernando Souza Mailho]

Olá!

Estou com uma dificuldade, tenho uma planilha, onde nessa, eu gostaria de fazer um macro que fosse capaz de copiar células não vazias e cola-las (com seus valores e formatação original) dentro de outra planilha no mesmo arquivo, e para que não houvesse a substituição dos arquivos já existentes nessa outra planilha, gostaria que esse macro fosse capaz de fazer a colagem sempre 2 linhas após a ultima linha com valores preenchidos.

 

Por exemplo, no meu arquivo de teste, no link em anexo, eu tenho a planilha "APR-HO" onde eu gostaria de selecionar as células não vazias nesta, e colá-las na planilha "PPRA", mantendo sempre apenas os valores e a formatação original da planilha de onde foram copiadas.

 

Anexo: https://drive.google.com/file/d/1RrNxxYcppPcTUfLVIoVPQAI18S4drVgH/view?usp=sharing

[Carlos FW Informatica]

base muito grande né??? ;-;

[Swalls]

acredito que o python faça isso que você deseja usando o júpiter.

essa aula talvez lhe ajude a como fazer do zero.

segundo o que me falaram essa aula pega do zero, mas se não entender procure a aula 1.

 

 

[CasaDoHardware]

Eu não consegui salvar o arquivo e não sei o motivo disso, sendo assim não sei como é a planilha, se você fizer um exemplo menor fique mais fácil ajudar.


Não consegui subir o arquivo que fiz, mas tenta ajustar este codigo.

 

Sub Copiar()

Dim W As Worksheet
Dim WS As Worksheet
Dim lRow As Long

Set W = Sheets("APR-HO")
Set WS = Sheets("PPRA")

'Pula duas linhas a partir da ultima com dados.
    lRow = WS.Range("A" & Rows.Count).End(xlUp).Offset(2, 0).Row
    
    'Copia e cola os dados incluindo a formatação.
    W.Range("A4:L19").Copy Destination:=WS.Range("A" & lRow)
    

End Sub

 

[Luiz Fernando Souza Mailho]

23 minutos atrás, CasaDoHardware disse:

Eu não consegui salvar o arquivo e não sei o motivo disso, sendo assim não sei como é a planilha, se você fizer um exemplo menor fique mais fácil ajudar.


Não consegui subir o arquivo que fiz, mas tenta ajustar este codigo.

 

Sub Copiar()

Dim W As Worksheet
Dim WS As Worksheet
Dim lRow As Long

Set W = Sheets("APR-HO")
Set WS = Sheets("PPRA")

'Pula duas linhas a partir da ultima com dados.
    lRow = WS.Range("A" & Rows.Count).End(xlUp).Offset(2, 0).Row
    
    'Copia e cola os dados incluindo a formatação.
    W.Range("A4:L19").Copy Destination:=WS.Range("A" & lRow)
    

End Sub

 

Esse exemplo aqui é menor, aí no caso a "Planilha 1" e "Planilha 2" substituem as "APR-HO" e "PPRA" respectivamente.

Mas eu fiz um teste em uma linha bem simples aqui e deu certo, acredito que isso ira suprir a minha necessidade, só tenho que fazer algumas alterações, no caso só não entendi muito bem a parte de selecionar as células não vazias.

Obrigado amigo, me ajudou muito!!!

Pasta1.xlsx

[CasaDoHardware]

Experimente este ajuste.

 

Sub Copiar()

Dim W As Worksheet
Dim WS As Worksheet
Dim lRow As Long

Set W = Sheets("APR-HO")
Set WS = Sheets("PPRA")

'Pula duas linhas a partir da ultima com dados.
    lRow = WS.Range("B" & Rows.Count).End(xlUp).Offset(2, 0).Row
    
    'Copia e cola os dados incluindo a formatação.
    W.Range("B2:S23").Copy Destination:=WS.Range("B" & lRow)
    

End Sub
 

[Luiz Fernando Souza Mailho]

17 horas atrás, CasaDoHardware disse:

Experimente este ajuste.

 

Sub Copiar()

Dim W As Worksheet
Dim WS As Worksheet
Dim lRow As Long

Set W = Sheets("APR-HO")
Set WS = Sheets("PPRA")

'Pula duas linhas a partir da ultima com dados.
    lRow = WS.Range("B" & Rows.Count).End(xlUp).Offset(2, 0).Row
    
    'Copia e cola os dados incluindo a formatação.
    W.Range("B2:S23").Copy Destination:=WS.Range("B" & lRow)
    

End Sub
 

Obrigado amigo, na hora de colar os dados estava dando errado, mas eu fiz umas alterações no alterações na minha planilha e no seu macro e consegui exatamente o que eu queria.

A parte de seleção, e das duas linhas que são puladas, é exatamente o que eu buscava.

Muito obrigado amigo!!!