Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
SURFERLUCAS

Macro para copiar dados de uma célula para outra com condição

Mensagem Recomendada

Bom dia pessoal, é o seguinte, to tentando criar uma macro para copiar dados dados da Plan1 para Plan2.

A condição é a seguinte, vou olhar na Plan1 se a célula está escrito "ATUALIZAR", se sim, copia a linha inteira onde está ocorrendo a verificação para Plan2, e a verificação ocorre na próxima linha, se aparecer outro atualizar, copia para linha abaixo da que tinha copiado anteriormente(não pode sobrescrever). Resumindo quero jogar todas as linhas que estão escrito atualizar para Plan2. Quando eu rodo o código, não acontece nada. Estou enviando o arquivo do excel, espero que me ajudem

O código que eu estava tentando fazer é esse:


    Sub BuscaDados()
    
 
 Dim Ppra As Workbook
 
 Dim Plan1 As Worksheet
 
 Dim Plan2 As Worksheet
   

'aqui eu coloquei o "i" indo até 10 só para testar, mas na verdade é ate a ultima linha que é 134
     For i = 4 To 10
    

'o 5 é porque quero as células da coluna F

    If Cells(i, 5).Value = "ATUALIZAR" Then
   
    
    Sheets("Plan1").Range("B5").Copy
     
     Sheets("Plan2").Activate
     
     Range("A1").Select
     
   ActiveSheet.Paste
   
    Else
    
 
End If
   

Next i

Application.CutCopyMode = False

 End Sub
 

 

CONTROLE PPRA PARCIAL.xlsm

Editado por SURFERLUCAS

enviado sem ter terminado de digitar

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite

Seja bem-vindo ao fórum!

Baixe a planilha e teste clicando no botão Testar e dê retorno.

Apliquei uma macro com Filtro Avançado

[]s

16_01_18_CONTROLE PPRA PARCIAL_Patropi.zip


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites

CARA, clico em testar e a planilha some, e na planilha2 não aparece nada

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...