Trying to use method to find but generates error

[marreco]

Hi.

Because when I try to open my formulrio this error occurs?
Compilation error:
Variable not defined


The name of the form is in trouble ...
frmCadastroServiçosConvenio

Private Sub txtEndereco_Change()

Dim MyName As String, myRange As Range
Dim Found As Range
MyName = Me.txtEndereco.Text
Set myRange = wbClientes.Worksheets("BDClientes").Range("c:c")
Set Found = myRange.Find(MyName, LookIn:=xlValues, LookAt:=xlWhole)
If Not Found Is Nothing Then
Me.txtCidade = Found.Offset(, 12)
Me.txtRegiao = Found.Offset(, 11)
Me.txtPais = Found.Offset(, 6)
Me.ComboBox1 = Found.Offset(, 8)

End If

End Sub

[enijhuis]

My guess would be that you forgot to declare variable Found

Stating them like this makes it more clear:

Dim MyName As String
Dim myRange As Range
Dim Found as Range <---------

[marreco]

Hi
Thanks for replying but what now

It is giving error.

Runtime Error '9 '
Subscript is in the range

[OnErrorGoto0]

That is because there is no sheet called BDClientes in that workbook.

[marreco]

I did a test and put a sheet with that name, but still gives the same error

Compilation error:
Variable not defined

[marreco]

Hi
Thanks for replying but what now

It is giving error.

Runtime Error '9 '
Subscript is in the range

[OnErrorGoto0]

Since you appear to just be repeating your messages, I'm done.

[marreco]

I'll try to better yourself and then return.

I had not noticed the statements.

Maybe I can solve ams if I can not return again
Thank you!

[marreco]

i'm solved this way..

Private Sub txtEndereco_Change()

Dim MyName As String, myRange As Range
Dim Found As Range
MyName = Me.txtEndereco.Text
Set myRange = wbClientes.Worksheets("BDClientes").Range("c:c")
Set Found = myRange.Find(MyName, LookIn:=xlValues, LookAt:=xlWhole)
If Not Found Is Nothing Then
Me.txtCidade = Found.Offset(, 12)
Me.txtRegiao = Found.Offset(, 11)
Me.txtPais = Found.Offset(, 6)
Me.ComboBox1 = Found.Offset(, 8)

End If

End Sub