Jump to content
Sign in to follow this  
MagicMen

macro vba excel

Recommended Posts

MagicMen

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

Share this post


Link to post
Share on other sites
jmaocubo

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.

Share this post


Link to post
Share on other sites
MagicMen

podes dar um exemplo com a folha de excel

não consigo colocar isto a funcionar.

Obrigado

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.