none
Dificulades no VBA RRS feed

  • Pergunta

  • Bom dia 

    Tenho uma VBA que vou postar abaixo, ela faz em partes o que eu estou querendo, mas quando preciso que o comando execute a separação dos itens, eu não consigo resolver esta questão...

    Na plan1 tenho todos os dados e nas plans 2, 3 e 4 eh as que vão receber os dados separados, ou seja,

    Plan1 tenho na coluna "b" os produtos Y, X e Z, e eu quero que o comando pegue os os produtos Y da plan1 e copie para a plan2 sendo a linha completa que vai de "a:g", então ficaria assim plan2 colunas "a, b c, d, e, f, g" com data, produto, quantidade, nf, lote, nf saida, e quant saida.

    Espero ter sido claro e desde já agradeço

    A VBA que tenho eh esta ela copia mas não separadamente item por planilha

    Sub Teste()

    Application.ScreenUpdating = False

    Dim P1 As Worksheet
    Dim P2 As Worksheet
    Dim UltimaLinha As Integer

    Set P1 = ThisWorkbook.Worksheets("Plan1")
    Set P2 = ThisWorkbook.Worksheets("Plan2")


    'Acha a última linha preenchida da Plan1
    With ActiveSheet
        UltimaLinha = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With


    'Apaga Dados da Plan2
    P2.Activate
    P2.Range("A3:G100000").ClearContents


    'Copia Dados da Plan1
    P1.Activate
    P1.Range("A3:G" & UltimaLinha).Select
    Selection.Copy


    'Cola Dados na Plan2
    P2.Activate
    Range("A3").Select
    Selection.PasteSpecial xlPasteValues


    P1.Activate
    Application.CutCopyMode = False
    Range("A1").Select


    MsgBox "Todos os dados procurados foram copiados."

    End Sub

    
    terça-feira, 14 de julho de 2015 12:06

Todas as Respostas

  • Meu caro, não entendi

    Poderia dar mais detalhes ?

    É possível inserir imagens aqui no fórum também para facilitar o entendimento

    Abs

    terça-feira, 14 de julho de 2015 16:39