Como utilizar o método FIND para objeto Range?

[ArmandPer]

Caros colegas

Alguém teria alguns exemplos, como utilizar o método FIND para procurar dados em N colunas de uma planilha, sendo que o parâmetro é parte de uma informação digitada em uma TextBox.

Agradeço a ajuda.

[Márcio Rodrigues]

Tente isto

Sub Search()

SearchValue = TextBox1.Text

'Coluna como parametro

With Worksheets("Plan1").Range("D:D")

Set c = .Find(SearchValue, LookIn:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

Set c = .FindNext©

nextAddress = c.Address

Loop While Not c Is Nothing And c.Address <> firstAddress

End If

End With

End Sub

[ArmandPer]

Tente isto

Sub Search()

SearchValue = TextBox1.Text

'Coluna como parametro

With Worksheets("Plan1").Range("D:D")

Set c = .Find(SearchValue, LookIn:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

Set c = .FindNext©

nextAddress = c.Address

Loop While Not c Is Nothing And c.Address <> firstAddress

End If

End With

End Sub

[Márcio Rodrigues]

Tente isto:

'Usei duas LISTBOX para listar os dados

Private Sub TextBox1_Change()

ListBox1.Clear

ListBox2.Clear

Dim MyObject, MyCheckIni, MyCheckPos

MyCheckIni = False

MyCheckPos = False ' Inicialize variável.

For Each MyObject In Worksheets("Plan1").Range("D:D") ' Itere através de cada elemento.

If Not MyObject.Value = Empty Then

'Busca letra no inicio do nome

MyCheckIni = UCase(MyObject.Value) Like (TextBox1.Text & "*")

'Busca letra em qualquer posição no nome

MyCheckPos = UCase(MyObject.Value) Like ("*" & TextBox1.Text & "*")

If MyCheckIni = True Then '

ListBox1.AddItem MyObject.Value

End If

If MyCheckPos = True Then '

ListBox2.AddItem MyObject.Value

End If

End If

Next

End Sub