none
macro vba excel RRS feed

  • Pergunta

  • Estou com uma dúvida ou melhor na achei a solução para esse problema.
    Eu preciso fazer uma MACRO que copie algumas informações de 5 Planilhas (PlanA, PlanB, PlanC, PlanD, PlanE) e cole esse dados em uma planilha TOTAL, todas essas planilhas estao no mesmo arquivo do excel. Essa Macro deve copiar as informaçoes da PlanA na Planilha TOTAL depois logo abaixo deve ser copiado os dados da PlanB na planilha TOTAl e assim por diante ate preencher toda a Planilha Total, mas a questao e que toda segunda sao acrescentados novos dados nas 5 planilhas e o numero de linhas vao mudar

    obrigado
    sábado, 13 de junho de 2009 09:23

Respostas

  • Tente isso

    Sub Copia_Pastas()
    '
    ' Macro4 Macro
    ' Macro gravada em 18/08/2009 por wmatos
    '

    '
    Dim n As Long

    For n = 1 To 5
        Sheets(n).Select
        Range("A1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        Sheets("Total").Select
        Range("A65000").Select
        Selection.End(xlUp).Select
        If ActiveCell.Text <> "" Then
            ActiveCell.Offset(1, 0).Select
        End If
        ActiveSheet.Paste
    Next
    End Sub

    Valeu


    Wesley
    terça-feira, 18 de agosto de 2009 12:19