Boa tarde, sou um iniciante nos estudos de excel e me deparei com um problema no trabalho.

Trabalho em uma obra e temos um arquivo onde fazemos nosso controle de projetos (quem está com qual projeto). Esta planilha foi feita por uma técnica que separou cada "dia de coleta" de projetos em uma aba, que são numeradas no formato xxx2014 (onde xxx vai de 001 em diante), resultando em uma planilha pouco prática.

O meu objetivo é condensar as entradas de dados das 50 abas em uma única planilha, para isso, preciso copiar as informações das linhas de cada aba até que ela seja vazia e também o nome da aba (que é nossa numeração adotada).

Com esse objetivo criei um "algoritmo" tentando buscar algumas funções do VBA, o qual não estou familiarizado ainda, que tenta executar essa rotina.

Peço vossa ajuda para que eu possa conseguir escrever esse código em linguagem VBA e detectar os prováveis problemas no mesmo.

Um abraço

Start
Dim integer n=Worksheets.Count //declara como n o número de abas
Dim integer k=1 //declara k como 1 para valor de controle
Dim integer x=6 //linha inicial da coleta de dados
Dim integer y=6 //linha de entrada de dados na planilha final
Dim string info1; info2; info3; info4; info5
Em Worksheet(k) repita até que k=n
Enquanto b(x)!=NULL
Info1 = Worksheet(k).name
Info2 = Worksheet(k).Range(b(x))
Info3 = Worksheet(k).Range(c(x))
Info4 = Worksheet(k).Range(d(x))
Info5 = Worksheet(k).Range(e(x))
Em Worksheet(n+1)
Range(a(y)) = Info1
Range(b(y)) = Info2
Range(c(y)) = Info3
Range(d(y)) = Info4
Range(e(y)) = Info5
Y++
End
X++
X=6
K++
Fim repita
End