Luciano Piccolo Neto
Membro Júnior-
Posts
10 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Luciano Piccolo Neto postou
-
Excel Planilha controle - programação vba
Luciano Piccolo Neto respondeu ao tópico de Luciano Piccolo Neto em Microsoft Office e similares
@osvaldomp Fiz o teste deixando um campo vazio, aparece a mensagem de erro informando que possui campos sem preenchimento, após preencher todos os campos ao clicar no botão GRAVAR a macro não roda. Já na planilha formulário de saída a macro funciona normalmente limpando os dados e salvando-os na guia saídas. -
Excel Planilha controle - programação vba
Luciano Piccolo Neto respondeu ao tópico de Luciano Piccolo Neto em Microsoft Office e similares
@osvaldomp Boa noite Osvaldo, alterei as configurações da linha conforme sugerido, porém ao clicar no botão gravar o erro continua. A planilha possui 12 campos pintados na cor cinza. Segue anexo planilha com as alterações realizadas. If Application.CountA([B5], [C7], [C13:C24], [F5], [E15], [E18]) < 12 Then CONTROLE ALMOXARIFADO - UTD BRUMADO VERSÃO 2.1.rar -
Excel Planilha controle - programação vba
Luciano Piccolo Neto respondeu ao tópico de Luciano Piccolo Neto em Microsoft Office e similares
@osvaldomp Boa tarde. Tentei alterar a variável para corrigir o erro da planilha FORMULÁRIO ENTRADA DE MATERIAL, porém não estou conseguindo. Se possível você poderia me informar qual a variável correta para corrigir esse problema. Desde já obrigado pelo apoio e ajuda. -
Excel Planilha controle - programação vba
Luciano Piccolo Neto respondeu ao tópico de Luciano Piccolo Neto em Microsoft Office e similares
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 -
Excel Planilha controle - programação vba
Luciano Piccolo Neto respondeu ao tópico de Luciano Piccolo Neto em Microsoft Office e similares
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 -
Excel Planilha controle - programação vba
Luciano Piccolo Neto postou um tópico em Microsoft Office e similares
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 -
Excel Planilha controle material almox
Luciano Piccolo Neto respondeu ao tópico de Luciano Piccolo Neto em Microsoft Office e similares
Bom dia Rodrigo. Ficou excelente, muito obrigado pelo apoio. Que Deus lhe abençoe sempre. -
Excel Planilha controle material almox
Luciano Piccolo Neto respondeu ao tópico de Luciano Piccolo Neto em Microsoft Office e similares
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. -
Excel Planilha controle material almox
Luciano Piccolo Neto postou um tópico em Microsoft Office e similares
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 -
Excel Erro em tempo de execução 1004
Luciano Piccolo Neto postou um tópico em Microsoft Office e similares
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
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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