Basole

@Maico schroer se pudesse compartilhar sua planilha ou um modelo facilitaria a quem possa lhe ajudar.

@Ma pode ser "n" possibilidades, que esta causando este error. Como disse anteriormente o ideal seria se você compartilhasse sua planilha ou um modelo, facilitaria a quem possa lhe ajudar.

@Ma Coloque uma condicao no evento Double-Clck, para se o listbox estiver vazio a rotina encerra: Isso vai evitar o error que voce citou Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListBox1.ListCount = 0 Then Exit Sub ' condicao p se estiver vazio o listbox a rotina e encerrada Me.txtID.Text = ListBox1.List(ListBox1.ListIndex, 0) Me.txtDataRecebimento.Text = ListBox1.List(ListBox1.ListIndex, 1) Me.txtExpediente.Text = ListBox1.List(ListBox1.ListIndex, 2) Me.txtDataEntrega.Text = ListBox1.List(ListBox1.ListIndex, 3) Me.txtResponsavel.Text = ListBox1.List(ListBox1.ListIndex, 4) Me.cbostatus = Me.ListBox1.List(ListBox1.ListIndex, 5) End Sub

No meu post, no seu exemplo no Listbox eu inseri 6 campos. De acordo com que voce postou, agora esta com 10 campos -> " Me.ListBox1.List(ListBox1.ListIndex, 9) " Pode ser que o erro esteja ai. Se puder postar seu exemplo com as alteracoes que ja fez, fica mais fácil de entender o que esta gerado esse error.

@Jeniffer Do Bruno Pamplona poste sua planilha ou um exemplo com alguns dados

@Eloize Teixeira aqui pra min este codigo esta funcionando perfeitamente. Qual o error que aparece ? voce poderia anexar sua planilha ou um modelo com alguns dados ficticios.

@Ma como disse o colega CasaDoHardware, o ideal seria indicar qual o campo que voce deseja pesquisar. Bom mas como disse nao quer usar esta opcao, então eu fiz de uma forma que a rotina ira pesquisar o campo de acordo com o textbox que estiver preenchido. Ex se o textbox "txtID" estiver vazio a macro pesquisará pelo "txtExpediente" e assim seguindo esta sequencia, o que estiver preenchido ira pesquisar. E para exibir mais de um registro eu inseri um Listbox e ao cliclar duas vezes sobre o registro a macro insere o registro em usas respectivas textbox. Veja se lhe atende Exemplo-Basole.xlsm

@Rafael Bonemann seja bem vindo a bordo. Veja esse exemplo: http://goo.gl/yEJGPR e http://goo.gl/vIUyD8

@ricardo stavarengo seja bem vindo a bordo. Tem sim ! Se seu codigo de barras, seguir um padrão de formatacao, o exemplo que fiz (anexo) lhe atendera Para testar coloque o cursor no textbox1 e digite a tecla Enter. para simular o scanner.* * Lembrando que o leitor do codigo de barras apos ler o codigo, ele emite o sinal de enter. Lendo Codigo de Barras-Basole.xlsm

@André Luiz Cezar seja bem vindo a bordo !! Para facilitar o entendimento a quem possa lhe ajudar, poste suas planilhas ou um um exemplo c/ alguns dados ficticios.

@Akinowfx tente: insirr o " Application.ScreenUpdating = False" no inicio do codigo, e Application.ScreenUpdating = True no final Ficando assim : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("C3:CM600")) Is Nothing Then Dim c As Range Application.ScreenUpdating = False Me.Unprotect "suaSenhaAqui" Application.EnableEvents = False For Each c In Me.Range("C3:CM600") If c.Interior.ColorIndex = 1 Then c.Locked = True Else c.Locked = False End If Next c Application.EnableEvents = True Me.Protect "suaSenhaAqui" Application.ScreenUpdating = True End If End Sub

@Ana Carolina Menezes seja bem vinda a bordo. Tente criar um novo 'Name_Selector" -> "Name_Selector2" por exemplo referenciando o endereco do novo intervalo que voce criou.

Dependendo da versao do seu office, Altere: C.Interior.ColorIndex= 1 para: C.DisplayFormat.Interior.ColorIndex = 1

Segue em anexo com as alteracoes, veja se e isso mesmo ! FORM_TESTE-Basole.xlsm

Respondido no seu outro topico: Verificar dado repetidos ao sair da textbox !!

Segue em anexo com as alteracoes: Inclui a funcao que verifica se ja existe no evento Exit do TextBox, que postei anteriormente. Fiz tambem as correçoes com o formato da Dada conforme o seu topico: VBA - Fazer pesquisa de Datas !!! Ocorrencias_Dez_15-Basole.zip

Pode ser que a macro nao esteja encontrando o dado. Apareceu tb a msg "Comunicado não Localizado!" ? Acho que seria bom se compartilhasse seu arquivo ou um exemplo

Tente inserir o valor nas TextBox com formatacao de data ex.: Txt_nota.Text = Format(pesq1, "dd/mm/yyyy")

Use esta funcao abaixo para verificar se ja existe no intervalo: * cole a funcao em um modulo Function Verifica_Exist(text As Variant, rCells As Range, stt As Boolean) Dim txt As String Dim rRange As Range Dim SubjCell For Each rRange In rCells SubjCell = rRange txt = text If InStr(txt, SubjCell) <> 0 Then Verifica_Exist = SubjCell stt = True Exit For End If Next rRange End Function Segue abaixo um exemplo de utilizacao. você pode tambem inserir o codigo diretamente no evento exit do seu textBox: Sub teste() Dim rng As Range Dim sText As String Dim stt As Boolean sText = SuaTextBox.text Set rng = Sheets("Plan1").Range("B2:B100") Verifica_Exist sText, rng, stt If stt = True Then MsgBox "Ja existe.....", 64, "Atenção" Exit Sub Else ' Sua macro End If End Sub

@Akinowfx seja bem vindo a bordo ! As celulas são "pintadas" manualmente ou por formatacao condicional? O ideal seria ve. enviar sua planilha ou um exemplo com alguns dados ficticios, para melhor entendimento.

use o " Application.DisplayAlerts = False " antes de SaveAs

@Gustavo Erthal seja bem vindo a bordo Pf poste sua planilha ou um exemplo c/ dados ficticios

Pf poste sua planilha ou um exemplo

Pf poste sua planilha ou um exemplo

Opa curto muito Cruzeiros novos, principalmente o "Oasis of the Seas" pode ser !!! kkkkkk.. Mais tarde faco um exemplo de pop-up e posto aqui. Abx.