Ir para conteúdo
Fórum Script Brasil
  • 0

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


Michael Mallmann

Pergunta

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 Mallmann
Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...