Luciano Piccolo Neto

Bom dia. Desculpe me esqueci de remover a senha das planilhas, segue anexo planilhas desbloqueadas. CONTROLE ALMOXARIFADO - UTD BRUMADO 2020 VERSÃO 2.1.rar

Olá boa noite. Conforme solicitado segue anexo cópia da planilha controle de entrada e saída de materiais. Na planilha formulário entrada de material todos os campos na cor cinza o preenchimento é obrigatório os demais campos são preenchidos de forma automatica, em seguida ao clicar no botão gravar todos os dados são salvos na planilha entradas. porém depois de preenchidos os dados aparece a mensagem do VBA alertando que todos os campos é obrigatorio sendo que os mesmos não estão vazios. Na planilha formulário saída de material está tudo certo e os dados depois de lançados são salvos na planilha saídas, as configurações da planilha saídas foram copiadas para o VBA da planilha entrada, acredito que ao copiar essas programação VBA ocorreu algum erro, por isso aparece essa mensagem. Desde já obrigado pela ajuda e apoio. CONTROLE ALMOXARIFADO - UTD BRUMADO 2020 VERSÃO 2.1.rar

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

Bom dia Rodrigo. Ficou excelente, muito obrigado pelo apoio. Que Deus lhe abençoe sempre.

Esse tipo de problema tem a ver com a versão do oficce? No meu pc uso a versão 2013 e no trabalho utilizo a versão 2016.

Olá pessoal boa noite. Se possivel peço a ajuda de vcs para a solução deste problema. Nesta planilha formulário preciso que a configuração VBA informe a mensagem de erro somente quando o resultado da céluna G16 for igual a corrigir. Sub SALVAR() 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 MsgBox "Verifique o tipo de material e o status baixa. Divergência foi encontrada.", vbCritical, "Erro" Else Sheets("SAÍDAS").Select Rows("3:5").Select Selection.EntireRow.Hidden = False Range("A4:Z4").Select Selection.Copy Rows("5:5").Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Rows("4:4").Select Selection.EntireRow.Hidden = True Range("A5").Select Sheets("FORMULÁRIO SAIDA DE MATERIAL").Select Range("B5,F5,C7,C13,C16,C18,C20,C22,H22,C24,H24,C26,C28,C30").Select Range("C30").Activate Selection.ClearContents Range("B5").Select MsgBox "Dados salvos com sucesso.", vbInformation, "Dados gravados" End If End If Application.ScreenUpdating = True End Sub CONTROLE_ALMOX_VERSÃO_02_-_Cópia.xls

Olá pessoal boa noite. Sou novo aqui no fórum e se possivel peço por favor a ajuda de vocês para me ajudar a resolver um erro que esta ocorrendo na minha planilha de controle de almoxarifado. Criei um formulário para lançar dados e os mesmos serem salvos em outra planilha, porém aparece a mensagem quando vou salvar a macro. Desde já obrigado pela ajuda e apoio. Erro em tempo de execução 1004 Esta operação não é permitida. A operação está tentando descolar céculas em uma tabela da planilha. Sub SALVAR() Dim material As String Dim conta As String Dim qtde As Integer material = form_saida.Range("C15").Text conta = form_saida.Range("H21").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 <> conta Then MsgBox "Verifique o tipo de material e a conta. Divergência foi encontrada.", vbCritical, "Erro" Else Sheets("SAÍDAS").Select Rows("3:5").Select Selection.EntireRow.Hidden = False Range("A4:AA4").Select ActiveWindow.SmallScroll ToRight:=2 ActiveWindow.ScrollColumn = 23 ActiveWindow.ScrollColumn = 3 Selection.Copy Rows("5:5").Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Rows("4:4").Select Selection.EntireRow.Hidden = True Range("B8").Select Sheets("FORMULÁRIO SAIDA DE MATERIAL").Select Range("B5,E5,C7,C17,C19,C21,C23,H23,C25,H25,C27,C29,C31").Select Range("C31").Activate Selection.ClearContents Range("B5").Select MsgBox "Dados salvos com sucesso.", vbInformation, "Dados gravados" End If End If Application.ScreenUpdating = True End Sub Print erro excel Controle de almoxarifado.docx