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í...