JoséA

:rolleyes: Se mostrares o arquivo, quem sabe...

Mostra o arquivo...

Penso que deverias trocar a lógica de funcionamento do combobox para refrência ao Listindex... :rolleyes:

Tente pelo evento exit, se não der certo mostre como está fazendo... Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1 = UCase(Me.TextBox1) End Sub

Bom dia, Private Sub TextBox1_Change() Me.TextBox1 = UCase(Me.TextBox1) End Sub

Vlw amigo, estando ao nosso alcance disponha. :D

Para esse problema me parece que na comparação não estava sendo reconhecido o valor númerico, apliquei uma função de conversão. Isso era um código que tinha no seu arquivo original, apenas deletei agora. Bastaria deletar essas duas linhas em Entrada e Saída, respectivamente. Plan1.Range("D2:D65000").Item(LINHA) = Me.Entrada e Plan1.Range("E2:E65000").Item(LINHA) = Me.Saida Veja se é isso... http://www.4shared.com/document/uhT4yBBW/_..._Sandro_3_.html

Veja se atende: http://www.4shared.com/document/ZV5kfYHB/T..._Sandro_1_.html

Seja bem vindo ao fórum. Penso que devias postar a planilha, não apenas o script... Seria mais fácil a visualização.

Bem vindo ao fórum. Além do exemplo citado pelo Kuroi exitem outros exemplos, mas penso que deverias postar o arquivo exemplo...

www.4shared.com www.sendspace.com Dentre outros...

Veja um exemplo de cadastro/senha nesse tópico... http://www.tomasvasquez.com.br/forum/viewt...=70&start=0 Baixe o exemplo do último post. Agora para excluir, penso que deverias criar um form a parte que pesquisaria por usuário e excluiria pelo administrador. Qualquer coisa informe.

No mais das vezes, quando excluí-se dados excluí-se a linha.

Porque não mostra o seu arquivo?? <_<

Renato, Não deixe de verificar essas referências: http://www.tomasvasquez.com.br/forum/viewt...p?f=6&t=233 , http://www.tomasvasquez.com.br/forum/viewt...44&start=10 e http://www.tomasvasquez.com.br/forum/viewt...174&start=0 dentre outros...

Estando ao nosso alcance, disponha.

Em tempo.... Cole como última linha no evento para regarregar o combox1 que foi limpado. Call UserForm_Initialize

:angry: Penso que o tópico criado por vc "Filtro para combobox" foi resolvido, mas não foi informado. Private Sub CommandButton2_Click() If MsgBox("Confirma exclusão de dados de: " & Me.TextBox1 & "; da data: " & Me.TextBox2 & " ?", vbYesNo + vbQuestion, "Cadastro") = vbNo Then Exit Sub End If Selection.Delete Me.ComboBox1.Clear: Me.ComboBox2.Clear Me.TextBox1 = "": Me.TextBox2 = "": Me.TextBox3 = "" End Sub

Então a questão principal do tópico já foi respondida, do 1º post? Veja se atende a sua última solicitação: http://www.4shared.com/document/tIwergsF/C...imagem_v03.html

:D Fico feliz que tenha resolvido, estando ao nosso alcance disponha.

E aí, algum sucesso nessa empreitada? :unsure:

Segue a sua 1ª solicitação. :rolleyes: Cadastro_com_imagem_v01

Acrescente o código abaixo na área de código do seu formulário, digite a matrícula no txt desejado + Enter ou TAB para conferir. Private Sub txt_chapa1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim QualLinha: QualLinha = LocalizarLinha(txt_chapa1, Plan2.Range("A1:A65000")) QualLinha = QualLinha + 1 txt_nome1 = Plan2.Range("B" & QualLinha) End Sub Private Sub txt_chapa2_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim QualLinha: QualLinha = LocalizarLinha(txt_chapa2, Plan2.Range("A1:A65000")) QualLinha = QualLinha + 1 txt_nome2 = Plan2.Range("B" & QualLinha) End Sub Private Sub txt_chapa3_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim QualLinha: QualLinha = LocalizarLinha(txt_chapa2, Plan2.Range("A1:A65000")) QualLinha = QualLinha + 1 txt_nome3 = Plan2.Range("B" & QualLinha) End Sub Private Function LocalizarLinha(Qual, Área As Range) Dim PrimEndereço, C With Área Set C = .Find(Qual, LookIn:=xlValues) If Not C Is Nothing Then PrimEndereço = C.Address LocalizarLinha = C.Row - 1 End If End With End Function

Vejo que encotrastes a solução aquí. vlookup via VBA

Seguindo a sugestão do kuroi segue um exemplo. Pesquisa em ListBox