Dirceu Seregatti Soares

@Basole Meu amigo !!!! Muito obrigado pela ajuda e atenção !!! Ficou perfeito, do jeito que eu estava precisando !!! Mais uma vez obrigado pela disposição e tempo para me ajudar !!!! Obrigado !!!

Boa Tarde !! Meu amigo, acho que já estou tempo demais tentando essa planilha funcionar que não consigo mais testar as soluções propostas. Tentei fazer aqui o que você me mandou, mais não obtive resposta. Será que consegue me ajudar ? Estou mandando com a textbox que preciso que verifique a duplicidade e o arquivo completo. Desde já agradeço a sua ajuda e atenção. Obrigado. Ocorrencias_Dez_15 (Salvo automaticamente).rar

Boa Tarde !!! Correto apareceu sim a mensagem. Segue em anexo, o arquivo. Ele vai abrir o Userform para Digitar as informações, para fechar o mesmo e entrar no excel é só usar ALT + F4 No VBA o UserForm está com o nome Pesquisa. Mais uma vez agradeço a ajuda !!! Obrigado Ocorrencias_Dez_15 (Salvo automaticamente).rar

Basole, tentei a sua dica aqui. Ao testar o programa agora ele não retorna nada, o campo fica em branco. Obrigado pela ajuda, e disposição em ajudar.

Olá Pessoal. Possuo em uma planilha varias informações, a maior parte delas são datas. Já tentei criar um UserForm de pesquisa para me retornar as datas no formulario. Cheguei a utilizar algumas rotinas que encontrei na internet, elas funcionam para busca outras informações, mais para retonar a data no UserForm não. Toda vez que faço a pesquisa das datas, em vez de aparece no UserForm a data como 11/01/2016 parace como 42380. O que estou fazendo de errado para as datas não aparecem corretamente no UserForm ? Desde já agradeço a atenção e ajuda de todos !!! Obrigado. Private Sub Txt_Comunicado_AfterUpdate() Dim intervalo As Range Dim texto As String Dim codigo As Double Dim pesquisa Dim mensagem codigo = Txt_Comunicado.Text Sheets("teste").Select Set intervalo = Range("A3:N7000") On Error GoTo trataErro pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False) pesq4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False) pesq5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False) pesq6 = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False) pesq7 = Application.WorksheetFunction.VLookup(codigo, intervalo, 9, False) pesq8 = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) pesq9 = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False) pesq10 = Application.WorksheetFunction.VLookup(codigo, intervalo, 12, False) pesq11 = Application.WorksheetFunction.VLookup(codigo, intervalo, 13, False) Txt_manut.Text = pesquisa Txt_nota.Text = pesq1 Txt_dtimtbf.Text = pesq2 Txt_dtfmtbf.Text = pesq3 Txt_dtimttr.Text = pesq4 Txt_dtfmttr.Text = pesq5 Txt_hrimtbf.Text = pesq6 Txt_hrfmtbf.Text = pesq7 Txt_hrimttr.Text = pesq8 Txt_hrfmttr.Text = pesq9 MTTR.Caption = pesq10 MTBF.Caption = pesq11 Txt_hrimtbf = Format(Txt_hrimtbf, "hh:mm") Txt_hrfmtbf = Format(Txt_hrfmtbf, "hh:mm") Txt_hrimttr = Format(Txt_hrimttr, "hh:mm") Txt_hrfmttr = Format(Txt_hrfmttr, "hh:mm") MTTR.Caption = Format(MTTR.Caption, "###0.00") MTBF.Caption = Format(MTBF.Caption, "###0.00") Txt_Comunicado.SetFocus Exit Sub trataErro: texto = "Comunicado não Localizado!" mensagem = MsgBox(texto, vbOKOnly + vbInformation) End Sub

Olá Pessoal. É possível verificar se um nome ou palavra já consta na coluna da planilha através digitação na textbox pelo procedimento Exit?? Ou seja, ao terminar a digitação e sair da textbox uma msgbox para informa se o nome já consta na listagem. Assim evitamos de inserir dados em duplicidade. Fico no aguardo.

@CasaDoHardware Eu testei a sua dica, só que nessa caso ele mostrar a data atual no meu formulário de pesquisa. Eu quero que ele me mostre a data que esta no Excel. Por que cada ocorrência pode acontecer em dias diferentes. Já tentei mudar o meu código para as opções abaixo mais nada ainda. Txt_dtimtbf = Format (Date, "DD/MM/YYYY") Txt_dtimtbf = Format (Txt_dtimtbf.Value, "DD/MM/YYYY") ActiveCell.Value = Format (Txt_dtimtbf.Value, "DD/MM/YYYY") Txt_dtimtbf = Format (Txt_dtimtbf, "##/##/####")

Bom dia a Todos !!! Pessoal, novamente venho recorrer a ajuda de vocês. Criei um formulário de pesquisa em VBA, para localizar as informações da planilha do Excel. Acontece que consegui fazer todos os campos aparecerem conforme eu queria. Mais nos campos de Datas está me dando trabalho, ao pesquisar ele não retorna a Data e sim um numero, conforme telas em Anexos. Como posso fazer para que apareça as datas corretamente ? Segue abaixo o código que estou usando para fazer a pesquisa: Private Sub Txt_Comunicado_AfterUpdate() Dim intervalo As Range Dim texto As String Dim codigo As Double Dim pesquisa Dim mensagem codigo = Txt_Comunicado.Text Sheets("teste").Select Set intervalo = Range("A3:N7000") On Error GoTo trataErro pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False) pesq4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False) pesq5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False) pesq6 = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False) pesq7 = Application.WorksheetFunction.VLookup(codigo, intervalo, 9, False) pesq8 = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) pesq9 = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False) pesq10 = Application.WorksheetFunction.VLookup(codigo, intervalo, 12, False) pesq11 = Application.WorksheetFunction.VLookup(codigo, intervalo, 13, False) Txt_manut.Text = pesquisa Txt_nota.Text = pesq1 Txt_dtimtbf.Text = pesq2 Txt_dtfmtbf.Text = pesq3 Txt_dtimttr.Text = pesq4 Txt_dtfmttr.Text = pesq5 Txt_hrimtbf.Text = pesq6 Txt_hrfmtbf.Text = pesq7 Txt_hrimttr.Text = pesq8 Txt_hrfmttr.Text = pesq9 MTTR.Caption = pesq10 MTBF.Caption = pesq11 Txt_hrimtbf = Format(Txt_hrimtbf, "hh:mm") Txt_hrfmtbf = Format(Txt_hrfmtbf, "hh:mm") Txt_hrimttr = Format(Txt_hrimttr, "hh:mm") Txt_hrfmttr = Format(Txt_hrfmttr, "hh:mm") MTTR.Caption = Format(MTTR.Caption, "###0.00") MTBF.Caption = Format(MTBF.Caption, "###0.00") Txt_Comunicado.SetFocus Exit Sub trataErro: texto = "Comunicado não Localizado!" mensagem = MsgBox(texto, vbOKOnly + vbInformation) End Sub

Alpheratz Muito obrigado pela ajuda, fiz o teste aqui na planilha simples e deu certo. Agora vou testar na planilha mestre que estou montando. Obrigado.

Alpheratz, Eu acrescento essa parte em meu codigo ? Ficaria da forma abaixo : Private Sub TextBox1_Change() 'Formata : dd/mm/aaaa ActiveCell.Value = Format(TextBox1.Value, "MM/DD/YYYY") If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then TextBox1.Text = TextBox1.Text & "/" SendKeys "{End}", True End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Limita a Qde de caracteres TextBox1.MaxLength = 10 'para permitir que apenas números sejam digitados If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If End Sub

Boa Tarde !! Segue em anexo, agora já aparecendo a Form. Teste2.xlsm

Boa Tarde a Todos !!! Pessoal, necessito da ajuda de vocês. Peguei na Net, um código para inserir as barras no campo de data automaticamente, em uma textbox. Para o usuário não ter que ficar digitando as " / " Acontece que essa rotina esta entendendo os dias de 01 a 12 como meses, e retornando para a tabela do Excel como data americana (mm/dd/aaaa) Quero que a data fique no formato brasileiro dd/mm/aaaa. Então se digito na Textbox 01/12/2015 ela manda para Excel como 12/01/2015 Como posso resolver isso ? Código que estou usando hoje: Private Sub TextBox1_Change() 'Formata : dd/mm/aaaa If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then TextBox1.Text = TextBox1.Text & "/" SendKeys "{End}", True End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Limita a Qde de caracteres TextBox1.MaxLength = 10 'para permitir que apenas números sejam digitados If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If End Sub Teste2.xlsm Teste2.xlsm