• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

MagicMen

macro vba excel

5 mensagens neste tópico

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

Alguem pode dar uma ajuda

Cumps

já encontrei esta ajuda

http://rapidshare.com/files/245370872/exemplo1.zip.html

mas não consigo fazer com que funcione pelo botão calcular

apenas consigo directamente no no USERFORM1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Aquilo que me parece é que queres um código que faça loop em todas as folhas menos na total.

Se assim é:

Sub ConsolLoop()
    TOTAL.Select
    Cells.ClearContents
    r = 0
    n = 0
    
    For i = 1 To 5
        Sheets(i).Select
        GoSub DoCopy
        GoSub DoPaste
        n = n + r
    Next i
    
Exit Sub

DoCopy:
    Cells(1, 1).CurrentRegion.Select
    Selection.Copy
    r = Selection.Rows.Count
    Return
    
DoPaste:
    TOTAL.Select
    Cells(1, 1).Offset(n, 0).Select
    ActiveSheet.Paste
    Return
    
End Sub

Penso que assim deve funcionar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

podes dar um exemplo com a folha de excel

não consigo colocar isto a funcionar.

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora