none
Copiar linha de uma planilha para outra RRS feed

  • Pergunta

  • Olá, tenho uma pasta de trabalho com duas planilhas. 

    Na plan1 eu insiro informaçoes de produção de produtos. Quando determinado produto for entregue, a coluna C será preenchida com a palavra "embarcado". Gostaria então que essa linha fosse movida para a plan2, nao permanecendo na plan1. Sempre que a palavra embarcado for inserida na coluna C, a linha seria recortada e copiada na plan2.

    Qual a melhor maneira de conseguir essa ação?

    terça-feira, 28 de julho de 2015 17:47

Respostas

Todas as Respostas

  • embarcado = Range("C2")

    Sheets("Sheet1").Activate

    If embarcado = "Embarcado" Then
        Rows("2:2").Select
        Selection.Cut
        Sheets("Sheet2").Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
        Selection.Delete Shift:=xlUp
    End If

    Meu excel é em Inglês por isso troque os Sheet1 por Plan1 e assim por diante.

    Tem como vc variar mais, veja que estou checando apenas a célula A2, vc pode adicionar um Do while para ele varrer toda coluna C e o que for igual a embarcado corta para a Plan2.

    Espero ter ajudado


    terça-feira, 28 de julho de 2015 19:19
  • Agradeço a ajuda, 

    Mas aparece uma mensagem de erro... solicitando função

    Sub embarcado()

    embarcado = Range("C6")

    Sheets("atualização").Activate

    If embarcado = "Embarcado" Then
        Rows("2:2").Select
        Selection.Cut
        Sheets("embarcado").Select
        ActiveSheet.Paste
        Sheets("atualização").Select
        Selection.Delete Shift:=xlUp
    End If
    End Sub

    a coluna que contem os dados onde será inserida a palavra embarcado é a coluna C, a tabela inicia na linha 5. 

             

     
                 
     


    EXPORTAÇÃO







    quarta-feira, 29 de julho de 2015 13:49
  • Experimente renomear

    Sub embarcado()
    

    para:

    Sub EmbarcadoFazer()
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 7 de agosto de 2015 14:26
    Moderador