Este fórum está sendo desativado

[DiMoura]

ola, gostaria de saber como faço pra ficar registrado a ultima pesquisa realizada..
o codigo q estou usando é esse...

Código: Selecionar todos

Private Sub Txt_Forn_Pes_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ActiveSheet.FilterMode = False Then

ElseIf ActiveSheet.FilterMode = True Then

ActiveSheet.ShowAllData

Else

End If

ActiveSheet.Range("$A$2:$G$143592").AutoFilter Field:=5, Criteria1:="=*" & Me.Txt_Desc_Pes.Value & "*"
ActiveSheet.Range("$A$2:$G$143592").AutoFilter Field:=4, Criteria1:=Me.Txt_Forn_Pes.Value & "*"
Lista.ListItems.Clear
Sheets("BASE").Select


LIN = 2
Do Until Sheets("BASE").Cells(LIN, 2) = ""
If Cells(LIN, 1).Rows.Hidden = False Then

Set li = Lista.ListItems.Add(Text:=Sheets("BASE").Cells(LIN, 2).Value)
li.ListSubItems.Add Text:=Sheets("BASE").Cells(LIN, 5).Value
li.ListSubItems.Add Text:=Sheets("BASE").Cells(LIN, 3).Value
li.ListSubItems.Add Text:=Sheets("BASE").Cells(LIN, 4).Value
li.ListSubItems.Add Text:=Format(Sheets("BASE").Cells(LIN, 6).Value, "currency")
li.ListSubItems.Add Text:=Sheets("BASE").Cells(LIN, 7).Value
li.ListSubItems.Add Text:=Sheets("BASE").Cells(LIN, 8).Value


End If

LIN = LIN + 1

Loop

Set li = Nothing

End Sub

Código: Selecionar todos

se algum puder ajudar agradeço..

[DiMoura]

gostaria que quando fizesse a pesquisa e fechasse o formulario, ao abrir novamente o formulario de pesquisa estivesse a ultima pesquisa feita...