locked
Macro que gera relatório em outra planilha

    Pergunta

  • Boa tarde a todos.

    Estou com alguma dificuldade

    em 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.

    quarta-feira, 25 de fevereiro de 2009 19:33