Ir ao conteúdo
  • Cadastre-se

Excel aviso automatico de vencimento e retorno ao cliente no excel vba


Posts recomendados

@paulotuca Boas,

Quer que a mensagem apareça quando se abre a planilha?
 

  • Curtir 1
Link para o post
Compartilhar em outros sites

@paulotuca Então tem duas opções, aparecer mensagem ao abrir o userForm, ou criando um botão no mesmo para verificar retornos ou algo do tipo.

Vou deixar os dois exemplos e você vê qual lhe dará mais jeito.

 

Ao Abrir UserForm:Ao Abrir UserForm - Relação de produtos - março.zip

 

Com botão: Com Botão - Relação de produtos - março.zip

 

  • Obrigado 1
Link para o post
Compartilhar em outros sites

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

 

Link para o post
Compartilhar em outros sites

@paulotuca Veja se assim fica bom,

Eu removi o botão editar pois é mais fácil apenas assim com o botão de salvar para não causar o erro.

 

Com Botão - Relação de produtos - março.zip

  • Obrigado 1
Link para o post
Compartilhar em outros sites

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?

Link para o post
Compartilhar em outros sites

@paulotuca Boas, desde já peço desculpas pela demora na resposta.

Veja se agora já dá para excluir e cadastrar novos.

 

Com Botão - Relação de produtos - março.zip

Link para o post
Compartilhar em outros sites

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

 

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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 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

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!