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

[paulotuca]

É 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

[AfonsoMira]

@paulotuca Boas,

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

[paulotuca]

@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?

[AfonsoMira]

@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

 

[paulotuca]

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]

@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

[paulotuca]

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?

[paulotuca]

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 

[AfonsoMira]

@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

[paulotuca]

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