Ir ao conteúdo
  • Cadastre-se
Luciano Piccolo Neto

Excel Planilha controle - programação vba

Posts recomendados

Pessoal boa noite.

Utilizo uma planilha para controle de material onde a mesma possui formulario de saída e formulário de entrada de materiais. Alguns dados o preenchimento é obrigatorio. Porém na planilha formulário entrada de materiais o campos com preenchimento obrigatório estão todos preenchidos e mesmo assim esta aparecendo a mensagem Existem dados obrigatórios não preenchidos. Verifique. 
Se possivel alguem pode me ajudar com esse problema, desde já obrigado pelo apoio e ajuda.

 

Sub GRAVAR()

Dim material    As String
Dim status      As String
Dim qtde        As Integer

material = form_saida.Range("E5").Text
status = form_saida.Range("G16").Text
qtde = var.Range("B2").Value

Application.ScreenUpdating = False

If qtde = 0 Then

MsgBox "Existem dados obrigatórios não preenchidos. Verifique.", vbCritical, "Dados ausentes"

Else

If material <> status Then
If status = "CORRIGIR" Then


MsgBox "Verifique o tipo de material e o centro de custo. Divergência foi encontrada.", vbCritical, "Erro"


Else

    Sheets("ENTRADAS").Select
    Rows("3:3").Select
    Selection.EntireRow.Hidden = True
    Rows("2:4").Select
    Selection.EntireRow.Hidden = False
    Range("A3:T3").Select
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    Selection.Copy
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Rows("3:3").Select
    Selection.EntireRow.Hidden = True
    Range("A4").Select
    Sheets("FORMULÁRIO ENTRADA DE MATERIAL").Select
    Range("B5,F5,C7,C13,C15,E15,C16,C18,E18,C20,C22,C24").Select
    Range("C24").Activate
    Selection.ClearContents
    Range("B5").Select
    
    MsgBox "Dados salvos com sucesso.", vbInformation, "Dados gravados"

End If
End If

Application.ScreenUpdating = True

End If

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel, com botão para carregar o Form que está apresentando o problema e informe com exatidão quais os campos de preenchimento obrigatório.

 

Esclareça o que você quer dizer com "Porém na planilha formulário entrada de materiais ..." Você se refere a uma planilha, a um UserForm ou ... ?

 

Em qtde = var.Range("B2").Value, esclareça sobre a variável var, que não está declarada e nenhum objeto/valor está atribuído a ela no seu código.

 

dicas:

1. para responder clique na caixa Responder, localizada abaixo da última postagem

2. ao publicar código aqui no fórum, selecione-o e clique no ícone <> localizado no menu da caixa de resposta

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

ebook grátis "Aprenda a ler resistores e capacitores", de Gabriel Torres

GRÁTIS! BAIXE AGORA MESMO!