mcml.lima

Movi tua dúvida para um novo tópico.

Sempre crie um novo tópico para as tuas dúvidas, não poste em tópicos dos outros.
Cole o link dos tópicos que você acha que podem ajudar, mas num novo tópico.

Leia as regras do fórum,

[]s

Patropi - Moderador

Bom dia!!

Use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... s%20(excel)%20em%20uma%20%C3%BAnica%20planilha&gsc.page=1

Poste seu arquivo modelo compactado!

Att

Boa tarde!

Obrigada por mover, só postei em outro tópico por acreditar que seria mais fácil explicar.

Usei a pesquisa do fórum, copiei e colei.

Em anexo a planilha compactada.

Para resumir, preciso colocar as informações de cada planilha em apenas uma sem consolidar, de maneira um pouco mais prática, pois terei que fazer isso para todos os meses de 2014.

Se alguém puder fazer alguma sugestão, fico grata.

Obrigada
Michele Lima

Boa tarde!!

Digamos que você tem uma guia Principal de nome AleVBA, então insira o código abaixo.

Public Sub AleVBA_14953()
Dim ws  As Worksheet, _
    LR1 As Long, _
    LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "AleVBA" Then
        LR1 = Sheets("AleVBA").Range("A" & Rows.Count).End(xlUp).Row + 1
        LR2 = ws.Range("A" & Rows.Count).End(xlUp).Row
        ws.Range("A2:H" & LR2).Copy Destination:=Sheets("AleVBA").Range("A" & LR1)
    End If
Next ws
Application.ScreenUpdating = True
End Sub

Boa tarde!

Alexandre,

Excelente.

Era exatamente isso.

Muito obrigada.

Boa tarde!!

Eu fico feliz em ajudar, obrigado pelo retorno!!

Att