JoséA

'QUANDO O ITEM É CLICADO NO LISTBOX, FOCA NA CÉLUAL CORRESPONDENTE Private Sub listBox1_Click() Dim Employee As Variant Dim Name As String Dim firstaddress As String Employee = Empty 'SE PRECISAR MAIS DE 500 LINHAS É SÓ ALTERAR ABAIXO With ActiveSheet.Range("a1:a500") Name = ListBox1.Value Set Employee = .Find(what:=Name, LookIn:=xlValues) If Not Employee Is Nothing Then Employee.Rows.EntireRow.Select Else Exit Sub End With 'FECHA O FORM QUANDO CLICA NO NOME 'Unload Me Set Employee = Nothing 'OPCIONAL MOSTRA O ITEM SELECIONADO NA CELULA PARTINDO DE A Range("I1") = ListBox1.Value End Sub

Mostre o que já tem pronto :rolleyes:

Para lançar datas na plan utilize a função CDate: CDate(campodata.Value)

Há algo aquí: http://www.tomasvasquez.com.br/forum/viewt...f=22&t=1594

Mostra o seu arquivo... Feliz Ano Novo à todos. :wub:

O importante é que deu certo. :unsure:

Tente assim... Sub Data() Cells.Find(What:=CDate(Date), After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate End Sub

Estando ao nosso alcance disponha.

Porque na sua macro há uma instrução para selecionar uma área da Plan "Análise MOV" Sheets("Análise MOV").Cells(i, "C").Select Para resolver o caso insira que ative a Plan "Análise MOV" e depois retorne para Plan desejada. Sub InsereLinha() Dim i As Long For i = 50007 To 1 Step -1 If Sheets("Análise MOV").Cells(i, "C") = Sheets("Config").Cells(3, "I") Then Sheets("Análise MOV").Select Sheets("Análise MOV").Cells(i, "C").Select Selection.EntireRow.Insert Sheets("Config").Cells(3, "I").Copy Selection.PasteSpecial Paste:=xlPasteValues Sheets("Config").Cells(3, "J").Copy ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues Sheets("Config").Select Exit Sub End If Next i End Sub

Penso que esse tópico poderá lhe ajudar. :blink: http://www.babooforum.com.br/forum/index.p...vb/page__st__20

Mostar como esta fazendo...

Tem vários fóruns que disponhem de muito material para download, confira: http://www.vbaexcelforum.com/ http://info.abril.com.br/forum/viewforum.php?f=149 http://www.tomasvasquez.com.br/forum/index.php http://www.babooforum.com.br/forum/index.p...owerpoint-word/ http://forum.clubedohardware.com.br/microsoft-office/f48 http://tudosobrexcel.com/excel_forum/index...e2fcddeaaf98323 http://social.msdn.microsoft.com/Forums/pt/vbapt/threads dentre outros...

Segue um exemplo com alteração utilizando o controle ListBox... http://www.4shared.com/document/uAMIZxp0/ListboxAlterar.html

Não entendí...

Desculpe-me pela demora é que só agora sobrou um tempo. Usando a mesma lógica da sua pesquisa bastaria inverter a ordem, tipo: 'Verificar se foi digitado um nome na primeira caixa de texto If txt_pesq_cheque_cheque.Text = "" Then MsgBox "Digite um Cheque de um cliente" txt_pesq_cheque_cheque.SetFocus GoTo Linha4 End If With Worksheets("CHEQUE").Range("a:a") Set C = .Find(txt_pesq_cheque_cheque.Value, LookIn:=xlValues, LookAt:=xlPart) If Not C Is Nothing Then C.Activate C.Value = txt_pesq_cheque_cheque.Value C.Offset(0, 1).Value = txt_pesq_cheque_valor.Value C.Offset(0, 2).Value = txt_pesq_cheque_matricula.Value C.Offset(0, 3).Value = txt_pesq_cheque_emissao.Value C.Offset(0, 4).Value = txt_pesq_cheque_compensacao.Value C.Offset(0, 7).Value = txt_pesq_cheque_descricao.Value C.Offset(0, 6).Value = cbo_pesq_cheque_oficio.Value C.Offset(0, 5).Value = txt_pesq_cheque_situacao.Value MsgBox "Dado alterado com sucesso" Else MsgBox "Cheque não encontrado!" End If End With Linha4: Em tempo... Utilizei como exemplo o seu frm_pesquisa_cheque.

Para modificar é preciso fazer uma pesquisa, como você faz essa pesquisa? :( Agora você pode dispor o arquivo aquí: http://www.4shared.com/ ou www.sendspace.com/, dentre outros.

Penso que deverias mostrar a sua planilha para melhor adequação ao que tens pronto. :wub:

Tente a mesma lógica utilizada para o ComboBox apenas alterando p/ o evento click.

O importante é que deu certo. Vejo que utilizasstes o nome da guia da plan, enquanto utilizei o nome de propriedades da plan. Qualquer um dá certo. Felicidades!!!!

'bsp.com', Seja bem vindo ao fórum. Tente assim: Private Sub ComboBox1_Change() LINHA = ComboBox1.ListIndex + 1 TextBox1.Value = Plan1.Range("B2:B65000").Item(LINHA) TextBox2.Value = Plan1.Range("C2:C65000").Item(LINHA) TextBox3.Value = Plan1.Range("D2:D65000").Item(LINHA) End Sub

Mostra o que já tem pronto...

Tu disponibilizastes imagens, sugiro que mostre a planilha que tens pronto. :rolleyes:

Mostre o seu arquivo...

Mostra o seu arquivo ou um resumo do mesmo...

Para não apagar a formatação troque a linha que apaga os valores anteriores, por: ' Apaga valores anteriores Plan23.Range("A5:M65536").ClearContents