Boas pessoal,
Precisava de uma ajuda, tenho uma listagem de vernizes que numa coluna A:B tenho os códigos dos vernizes e numa outra C:D as descrições. Criei uma macro que me permite localizar os códigos na listagem, mas apenas se eu colocar o código tal como ele é. Ou seja se eu tiver o código "20090010" tenho que digitar na procura "20090010" caso contrário não encontra nada. O que eu necessito é que na procura pudesse colocar "900..." e ele procurava-me todos os "900..." que existissem. Ou nas descrições, colocar na procura "OPP..." e a macro procurar todos os "OPP...".
O código VBA que tenho é este:
Sub Botão1_Clique()
Dim EncontraString As String
Dim Rng As Range
EncontraString = InputBox("Informe o valor a procurar")
If Trim(EncontraString) <> "" Then
With Sheets("Sheet1").Range("A:B")
Set Rng = .Find(What:=EncontraString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Não encontrado"
End If
End With
End If
End Sub
Agradeço desde já a ajuda possivel.