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.
Pergunta
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!
Editado por Michael MallmannLink para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.