Relátorio Excel VBA

[william jurity de carvalho]

Gente Bom dia!

Estou a procura de uma macro, ou ideias de como posso copiar dados de várias planilhas com um critério. Como um Relatório.

Eu tenho várias planilhas, cada uma com uma série, contendo as seguintes informações, Matricula, Aluno, Turma, Disciplina.

O que eu preciso é varrer em todas as planilhas, pegar estas as informações organizadas assim.

6º ANO e todas aquelas informações acima, que contenham somente a disciplina Língua Portuguesa 

6º ANO e todas aquelas informações acima, que contenham somente a disciplina Matemática

7º ANO e todas aquelas informações acima, que contenham somente a disciplina Matemática

Se for possível, tudo em uma única planilha, um abaixo do outro, facilitaria muito.

Vai desculpando, sou iniciante em VBA.

Grato desde já.

[CasaDoHardware]

Um modelo da planilha com alguns dados (nao devem ser reais), e o resultado esperado ajudam bastante.

 

O modelo deve ser fiel a planilha original, principalmente no formato. quantidade de colunas e posição dos dados.

[william jurity de carvalho]

8 horas atrás, CasaDoHardware disse:

Um modelo da planilha com alguns dados (nao devem ser reais), e o resultado esperado ajudam bastante.

 

O modelo deve ser fiel a planilha original, principalmente no formato. quantidade de colunas e posição dos dados.

Sim, porém to batendo cabeça como fazer.

[CasaDoHardware]

 

11 horas atrás, william jurity de carvalho disse:

Estou a procura de uma macro, ou ideias de como posso copiar dados de várias planilhas com um critério. Como um Relatório.

Eu tenho várias planilhas, cada uma com uma série, contendo as seguintes informações, Matricula, Aluno, Turma, Disciplina.

Isso é o seu modelo.

Agora monte uma planilha com o resultado do que espera.

 

 

[william jurity de carvalho]

14 horas atrás, CasaDoHardware disse:

 

Isso é o seu modelo.

Agora monte uma planilha com o resultado do que espera.

 

 

Aqui esta um exemplo do que imagino. No arquivo existem 3 planilhas, uma com as séries 6º AM e a outra 7º AM junto a uma planilha chamada relatório, onde no caso, consta as informações dos  alunos que ficaram na segunda chamada de matemática. A matéria a ser "puxada" seria definida através de um formulário com combobox ou uma célula, sei lá.

Se alguém puder me ajudar com isto, serei muito grato!

só falta isto para concluir meu projeto.

Exemplo.zip

[william jurity de carvalho]

Tentei bolar um código mas continua a dar erro no while.

Alguém poderia analisar e me dar um feedback?

 

Sub Relatorio()
    Dim Planilhas, Relatorio As Worksheet
    Dim Linha, Coluna, Cont As Integer
    Dim Copia As String
    Dim Last As Long
    Linha = 5
    Coluna = 1
    'Conta as planilhas, e atribui o nome a variável planilha
    For Cont = 1 To Worksheets.Count
    Planilhas = Worksheets(Cont).Name
    
    'Ativa a planilha que foi atribuida a variável planilha pelo For
    Worksheets(Planilhas).Activate
    
    'Enquanto a linha da planilha for diferente de vazio
    While Planilhas.Cells(Linha, Coluna) <> ""
    
    'Copia a célula
    Cells(Linha, Coluna).Select
    Selection.Copy
    
    'Ativa a planilha relatorio
    Set Relatorio = Worksheets("Relatório")
    Worksheets(Relatorio).Activate
    
    'acha a ultima linha vazia
    Last = Relatorio.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    
    ' Cola o a célula
    With Relatorio
    Cells(Last, Coluna).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    End With

    'Ativa a planilha que conta ainda na variável
    Worksheets(Planilhas).Activate
    Wend

    'adiciona +1 para linha e o contador
    Linha = Linha + 1
    Cont = Cont + 1
    Next
    End Sub