Ajuda em fórmula e inserção de uma lista para seleção de dados

[Michael Mallmann]

Boa Noite,

Estou programando um relatório em uma arquivo do Excel onde tenho uma planilha que funciona como o banco de dados e as outras que estou montando servirão como os relatórios que preciso.

No primeiro relatório que criei, consegui fazer com que funcionasse certinho, mas este segundo não consigo.

Vou colar o código fonte aqui, é pequeno, porque talvez possa agilizar as coisas. Antes de qualquer coisa já agradeço quem puder ajudar.

Sub Relatório_Serragem()

Sheets("Rel_Analise_Estoque").Range("A7:K50000").ClearContents

lin = 2

linha = 7

Do Until Sheets("Dados_Estoque").Cells(lin, 6) = ""

If Sheets("Dados_Estoque").Cells(lin, 6) = Range("E1") Then

Sheets("Rel_Analise_Estoque").Cells(linha, 1) = Sheets("Dados_Estoque").Cells(lin, 1)

Sheets("Rel_Analise_Estoque").Cells(linha, 2) = Sheets("Dados_Estoque").Cells(lin, 2)

Sheets("Rel_Analise_Estoque").Cells(linha, 3) = Sheets("Dados_Estoque").Cells(lin, 3)

Sheets("Rel_Analise_Estoque").Cells(linha, 4) = Sheets("Dados_Estoque").Cells(lin, 4)

Sheets("Rel_Analise_Estoque").Cells(linha, 5) = Sheets("Dados_Estoque").Cells(lin, 5)

Sheets("Rel_Analise_Estoque").Cells(linha, 6) = Sheets("Dados_Estoque").Cells(lin, 6)

Sheets("Rel_Analise_Estoque").Cells(linha, 7) = Sheets("Dados_Estoque").Cells(lin, 13)

Sheets("Rel_Analise_Estoque").Cells(linha, 8) = Sheets("Dados_Estoque").Cells(lin, 14)

Sheets("Rel_Analise_Estoque").Cells(linha, 9) = Sheets("Dados_Estoque").Cells(lin, 18)

Sheets("Rel_Analise_Estoque").Cells(linha, 10) = Sheets("Dados_Estoque").Cells(lin, 19)

Sheets("Rel_Analise_Estoque").Cells(linha, 11) = Sheets("Dados_Estoque").Cells(lin, 20)

Sheets("Rel_Analise_Estoque").Cells(linha, 12) = Sheets("Dados_Estoque").Cells(lin, 21)

Sheets("Rel_Analise_Estoque").Cells(linha, 13) = Sheets("Dados_Estoque").Cells(lin, 22)

linha = linha + 1

End If

lin = lin + 1

Loop

End Sub

Tem algo visivelmente errado no código? Porque depurando ele o VB não faz nada. E quando clico no botão que ativa a macro, nada acontece também.

Obrigado!

Edited November 15, 2011 by Michael Mallmann