paulotuca

Professor @RafaVillani boa noite! Desculpe pela demora hoje foi bem corrido no trabalho. Esse erro será que te alguma coisa a ver com o gerenciamento de nome que fiz no excel lá tem uma função desloc? e se não for quer que eu faça do zero? Sim esta feito e obrigado estou aprendendo muito obrigado e como disse se precisar eu começo do zero de novo Com Botão - Relação de produtos - teste 08-03.rar

Boa noite professor @RafaVillani caramba você e muito bom mesmo, conseguiu arrumar minha bagunça de código. professor se não for meu pc ou o excel percebi que o ultima linha do listbox da aba consultar não funciona o duploclick será que pode conferir. Agora algo que não sei fazer e gostaria de aprender existe a possibilidade de ao selecionar o combobox status cada item como ex. Vendido, Retorno e Cancelado ter sua própria planilha e ter um controle mensal? e você teria alguma dica para essa planilha ficar mais profissional, mais rapida e melhorar ela?

Professor @RafaVillani no cadastro novo esta incluindo na mesma linha

Boa tarde Professor @RafaVillani eu durante o final de semana tinha feito esse mesmo teste sem a função limpar campos mais agradeço muito a sua atenção e dedicação. Me deparei com a seguinte questão, a hora eu tinha colocado no userform assim: Private Sub UserForm_Initialize() txtdata = Date txtHora = Time txtdata.Enabled = False txtHora.Enabled = False Mais este nem sempre fica no formato de hora esta aparecendo números 0,12122212112121 e pelo que vi então tenho bastante códigos que esta nestas planilha para excluir né?

Professor se achar melhor começar do zero e mudar tudo eu prefiro porque vou ser sincero remendei muitos códigos nela. mais agradeço a sua atenção e tempo comigo, e quando puder me avise obrigado.

@RafaVillani Amigo será que posso desistir dessa planilha e começar de novo? kkk cara agora quando vou editar fecha e como não sei código que usou não consigo arrumar

@RafaVillani rafa agora sim só não entendi algumas alterações que você fez mais vou estudar todos os códigos esse final de semana inteiro, agradeço muito a sua ajuda. Obs. eu tinha colocado os campos obrigatórios, quando alguem clicar em salvar a caixa de texto ficar vermelha e avisar que é obrigatório, agora com essa alteração. ela fica vermelha, da o aviso, mais ai ele inclui na planilha e da a msgbox de editado com sucesso e não consigo mais fazer nada.

Bom dia @RafaVillani A sim agora achei ontem estamos se desentendo rsrsrs, o local que esta dando o erro é apenas na caixa de texto de Nº ORÇ nas outras esta perfeito, faça o teste ai por gentileza e peço mil desculpas pelo incomodo

Bom dia @RafaVillani Obrigado pela grande ajuda só reparei um detalhe aqui. quando clico e consultar e dou dois clicks e vou em alterar não esta alterando e sim incluindo outro cadastro abaixo.

Boa tarde @RafaVillani perfeito estava certo eu abri a planilha errada, eu já estou quase para desistir desta planilha será que consegue me ajudar na parte editar, queria fazer a mesma coisa dois cliques e ir para aba cadastro e la poder editar mais edita só a primeira depois não faz mais Poderia me dize qual foi a alteração que você fez para poder analisar meus erros, por favor

Boa tarde! @RafaVillani ao licar na planilha ja da esse erro aqui @RafaVillani para excluir tenho que deixar selecionado no listbox2 da aba cadastro né? tem como eu dar 2 clicks e na aba consulta e esse já ficar selecionado para excluir?

Bom dia. me desculpe tantas perguntas e incomodar mais estou estudando trabalhando bastante para entender e aprender sobre VBA, essa planilha que você enviou logo ao clicar nela da essa msg. Depois seleciono na aba consultar dou dois clicks no listbox ele volta para a aba cadastro ele só excluir se o listbox da aba cadastro estiver selecionado e queria que exxluise o que eu já selecionei antes, e na segunda exclusão da o seguinte erro. clico em depurar o erro fica marcado esse linha Sub Excluir() bloqueado = True Dim tabela As ListObject Dim n As Integer, l As Integer Set tabela = Planilha1.ListObjects(1) n = UserForm2.ListBox1.Value <<<<<aqui aconte o erro>>>>>> l = tabela.Range.Columns().Find(n, , , xlWhole).Row tabela.Range.Rows(l).Delete Call atualizar_listbox MsgBox "O Registro foi excluido" Call limparcampos(UserForm2) bloqueado = False End Sub

Bom dia! Estou tentando arrumar este código para excluir o arquivo selecionado e não estou conseguindo da o seguinte erro: quando clico em excluir volta para esta tela: e não esta excluindo a linha selecionado, minha tabela esta assim entro no consultar no lisbox dou 2 cliques e ele volta para a aba cadastro e ai eu deveria editar e ou exlcuir. Sub Excluir() bloqueado = True Dim tabela As ListObject Dim n As Integer, l As Integer, x As Integer Set tabela = Planilha1.ListObjects(1) For x = 0 To UserForm2.ListBox2.ListCount If UserForm2.ListBox2.Selected(x) = True Then l = x x = UserForm2.ListBox2.ListCount + 1 End If Next x tabela.Range.Rows(l).Delete <<<<<aqui ocorreo o erro>>>>>>>>> Call atualizar_listbox MsgBox "O Registro foi excluido" Call limparcampos(UserForm2) bloqueado = False End Sub Com Botão - Relação de produtos - teste 08-03.rar

Professor antes de perguntar eu tentei arrumar mais não consegui, o atualizar como foi alterado não esta atualizando da como registro atualizado mais na verdade esta cadastrando outro? e quando vou excluir da o seguinte erro "erro em tempo de execução "1004: Sub Excluir() bloqueado = True Dim tabela As ListObject Dim n As Integer, l As Integer, x As Integer Set tabela = Planilha1.ListObjects(1) For x = 0 To UserForm2.ListBox2.ListCount If UserForm2.ListBox2.Selected(x) = True Then l = x x = UserForm2.ListBox2.ListCount + 1 End If Next x tabela.Range.Rows(l).Delete <<<<<<aqui acontece o erro) Call atualizar_listbox MsgBox "O Registro foi excluido" Call limparcampos(UserForm2) bloqueado = False End Sub

Boa tarde professor @AfonsoMira descobri que a atualização que foi feito por ultima esta com um erro, quando vou alterar ele só altera uma vez a segunda ele não faz nada. e ficou sem o exlcuir também

Grande professor parece que ficou até mais leve a planilha... obrigado estou lendo e estudando todos códigos que me passou onde posso ler e entender mais o que você fez para dar a data de retorno?, gostei muito. prometo fazer a ultima pergunta, no campo Nº de Orç. preciso buscar da seguinte forma: vai ter orçamento com o numero 9620 e vai ter outro com mesmo numero mais um texto a frente 9620-REV2 eu esqueci o código que busca parcialmente o txtbox. e depois dessa magia todo que o professor fez minha hora txtHora - time não aparece no formato certo aparece assim 0,55252522222222 o que ocorre?

Bom dia @AfonsoMira Perfeito adorei o do botão ficou bem melhor, posso rodar sempre que quiser. Mais fazendo o teste geral me ocorreu os erros de outra parte, quando cadastro novo cliente ele inclui normal, quando clico em consultar digito o cliente que desejo ele aparece na listbox até ai tudo ok, minha listbox esta programada para dar duplo click e o cliente retornar para aba cadastro e lá poder fazer as alterações, nesta hora o botão de ativação (Editar) fica cinza inativo, clico nele para fazer a alteração e depois em gravar ai da o seguinte erro: erro em tempo de execução '13': tipos incopativeis Sub Editar() bloqueado = True Dim tabela As ListObject Dim n As Integer, l As Integer Set tabela = Planilha1.ListObjects(1) n = UserForm2.ListBox1.Value ------aqui acontece o erro------------ l = tabela.Range.Columns(1).Find(n, , , xlWhole).Row tabela.Range(l, 2).Value = UserForm2.txtorcamento.Value tabela.Range(l, 3).Value = UserForm2.txtdata.Value tabela.Range(l, 4).Value = UserForm2.txtHora.Value tabela.Range(l, 5).Value = UserForm2.cbbVendedor.Value tabela.Range(l, 6).Value = UserForm2.txtcliente.Value tabela.Range(l, 7).Value = UserForm2.txtcidade.Value tabela.Range(l, 8).Value = UserForm2.txtuf.Value tabela.Range(l, 9).Value = IIf(UserForm2.obpadrao.Value, "Padrão", "Fora de Padrão") tabela.Range(l, 10).Value = UserForm2.cbbProduto.Value tabela.Range(l, 11).Value = UserForm2.txtcapacidade.Value tabela.Range(l, 12).Value = UserForm2.txtpreco.Value tabela.Range(l, 13).Value = UserForm2.txtContato.Value tabela.Range(l, 14).Value = UserForm2.txttelefone.Value tabela.Range(l, 15).Value = UserForm2.txtcelular.Value tabela.Range(l, 16).Value = UserForm2.txtemail.Value tabela.Range(l, 17).Value = UserForm2.cbbStatus.Value tabela.Range(l, 18).Value = UserForm2.txtDataDeRetorno.Value tabela.Range(l, 19).Value = UserForm2.txtObs.Value Call atualizar_listbox MsgBox "O Registro foi atualizado" Call limparcampos(UserForm2) bloqueado = False End Sub

@AfonsoMira Professor a minha planilha esta para abrir o userform assim que clica nela, como eu realmente não sei nada sobre esse código, o que você indicaria o melhor?

Bom dia Professor! segue link do novo tópico Uma duvida eu tenho aqui que encerrar esse que foi resolvido tem algum lugar para avaliação? uma

É possível em um planilha Excel VBA com UserForm eu ter uma data de retorno um aviso automático que tal dia preciso entrar em contato com o cliente? Planilha em anexo Cópia de relação de produtos - março (1).rar

@AfonsoMiracara não tem como não chamar você de professor ou de mestre, mais uma vez deu tudo certo, existe alguma lugar aqui para dar avaliação, porque você é nota DEZ....... Professor agora uma pergunta é possível neste tipo de planilha com userform eu ter uma data de retorno um aviso automático que tal dia preciso entrar em contato com o cliente? sei que já estou incomodando demais né kkkk

@AfonsoMira Bom pelo que já li aqui no fórum você ensinando considero um grande professor, só tenho a agradecer. Com a alteração mencionada acima deu certo mais uma busca não esta fazendo correto, a de Nº de Orç. (que seria numeros e texto tambem EX: 8575 ou 8575-REV1) na verdade ele até busca mais quando clico no botão limpar ele limpa o listbox e todos os outros campos e não faz mais busca por campo nenhum. sendo que os outros campos(textbox, combobox) esta normal a busca posso limpar e não some o listbox. no botão limpar uso seguinte código: Private Sub btLimpar_Click() limparcampos (UserForm2) End Sub nos campos textbox, combobox uso o código: Private Sub txtC_Orcamento_Change() Planilha2.Range("W2") = txtC_Orcamento Call Filtro End Sub em anexo a planilha se precisar Cópia de relação de produtos - março (1).rar

Boa tarde Professor @AfonsoMira Era exatamente esse a solução obrigado, mais em seguida me deparei com outro erro: Na Verificação imediata aparece assim Erro em tempo de execução "424" O objeto é obrigatório, será que poderia me ajudar? Sub Filtro() Dim base As Range Dim crt As Range Dim filtrada As Range Dim nome As String Set base = Planilha1.Range("A1").CurrentRegion Set crt = Planilha2.Range("V1:AO2") base.AdvancedFilter xlFilterCopy, crt, Planilha2.Range("A1:T1") Aqui ocorre o erro Set filtrada = Planilha2.Range("A1").CurrentRegion nome = "'" & Planilha2.Name & "'!" UserForm2.ListBox1.RowSource = nome & filtrada.Address End Sub

Sub Editar() bloqueado = True Dim tabela As ListObject Dim n As Integer, l As Integer Set tabela = Planilha1.ListObjects(1) n = UserForm2.ListBox1.Value l = tabela.Range.Columns().Find(n, , , xlWhole).Row tabela.Range(l, 2).Value = UserForm2.txtorcamento.Value tabela.Range(l, 3).Value = UserForm2.txtdata.Value tabela.Range(l, 4).Value = UserForm2.txtHora.Value tabela.Range(l, 5).Value = UserForm2.cbbVendedor.Value tabela.Range(l, 6).Value = UserForm2.txtcliente.Value tabela.Range(l, 7).Value = UserForm2.txtcidade.Value tabela.Range(l, 8).Value = UserForm2.txtuf.Value tabela.Range(l, 9).Value = IIf(UserForm2.obpadrao, "Padrão", "Fora de Padrão") < AQUI APARECE O ERRO tabela.Range(l, 10).Value = UserForm2.cbbProduto.Value tabela.Range(l, 11).Value = UserForm2.txtcapacidade.Value tabela.Range(l, 12).Value = UserForm2.txtpreco.Value tabela.Range(l, 13).Value = UserForm2.txtContato.Value tabela.Range(l, 14).Value = UserForm2.txttelefone.Value tabela.Range(l, 15).Value = UserForm2.txtcelular.Value tabela.Range(l, 16).Value = UserForm2.txtemail.Value tabela.Range(l, 17).Value = UserForm2.cbbStatus.Value tabela.Range(l, 18).Value = UserForm2.txtDataDeRetorno.Value tabela.Range(l, 19).Value = UserForm2.txtObs.Value Call atualizar_listbox MsgBox "O Registro foi atualizado" bloqueado = False End Sub Boa noite, estou tendo este erro e não sei como arrumar alguem pode me auxiliar, arquivo esta em anexo Cópia de relação de produtos - março (1).rar

@Edson Luiz Branco Esta minha planilha em anexo estou tendo 02 (duas) dificuldades, primeira queria fazer a busca por todos os campos, cidade, cliente e numero de orçamento, aparentemente eu faço mais quando clico em limpar ai some tudo do listview e para de fazer busca principalmente no numero de orçamento. Então creio que estou com problema na busca e na limpeza de busca. a 02 (segunda) queria saber como dar dois clicks no item achado pela busca e ele voltar para a page cadastro e poder fazer alteração. PLanilha em anexo. Cópia de relação de produtos - terça.rar