Macro que gera relatório em outra planilha
-
quarta-feira, 25 de fevereiro de 2009 19:33
Boa tarde a todos.
Estou com alguma dificuldadeem elaborar uma macro que gere um relatório. Deveria funcionar da seguinte forma:
Na 1ª planilha existem alguns dados que em cada linha eu posso ter até 3 ferramentas em colunas diferentes. Eu gostaria que em outra planilha criasse uma lista de todas estas até que não existissem mais suboperações.
Pra ver melhor:
Planilha 1 (Processo):
Suboperações (C13) - Ferr1 (T13) - Ferr2 (U13) - Ferr3 (V13)
Podem existir diversas suboperações e cada uma pode ter até 3 ferramentas.
Planilha 2 (Ferramental):Ferramental (A3)
Lista simples das ferramentas
Tentei uma macro assim:
Sub relatorio()
'iniciar na Planilha Processo, célula C14. Onde estão descritas as operações
Set celAtual = Worksheets("Processo").Range("C14")
'fazer loop até encontrar célula vazia
linha = 13 'inicia na linha 13
Do While Not IsEmpty(celAtual) 'início do loop com a condição até vazio
Set proxCel = celAtual.Offset(1, 0)
linha = linha + 1 'contador de linhas com dados
'copiar células da Processo e colar na Ferramental
Worksheets("Ferramental").Cells(linha, 1) = Worksheets("Processo").Cells(linha, 7)
Set celAtual = proxCel
Loop 'retorno do loop
End Sub
Acho que falta declarar alguma variável porque a linha de destino é diferente.
Se alguém puder me dar uma luz, agradeço. Apanhei boa parte do carnaval.

