Run-time error 80020005 - Type mismatch on userform

[aenemus]

I've run into another problem in my vba project, when i insert a value in my form, it searches where that number is on column 1 and returns the values from the same row on column 3 and 12 to the form. When i fill the form and press enter it shows this error:

"Run-time error '-2147352571 (80020005)':
Could not set value property. Type mismatch."

Bellow is the code:

Private Sub txtdevolução_AfterUpdate()

Dim id As String, rowcount As Integer, foundcell As Range

id = txtdevolução.Value

    rowcount = thisworkbook.Sheets("retornos pendentes").Cells(Rows.Count, 1).End(xlUp).Row

    With thisworkbook.Worksheets("retornos pendentes").Range("A1:A" & rowcount)
        Set foundcell = .Find(what:=id, LookIn:=xlValues, lookat:=xlWhole)

        If Not foundcell Is Nothing Then
            txtclienteopl.Value = .Cells(foundcell.Row, 3)
            txtmatricula2.Value = .Cells(foundcell.Row, 12)
         Else
            txtclienteopl.Value = ""
            txtmatricula2.Value = ""
        End If

    End With

End Sub

The line where the debuger stays is: txtclienteopl.Value = .Cells(foundcell.Row, 3)



Thanks.

 

[Skyybot]

Try this:

Private Sub txtdevolução_AfterUpdate()

Dim id As String, rowcount As Integer, foundcell As Range

id = txtdevolução.Value

    rowcount = thisworkbook.Sheets("retornos pendentes").Cells(Rows.Count, 1).End(xlUp).Row

    With thisworkbook.Worksheets("retornos pendentes").Range("A1:A" & rowcount)
        Set foundcell = .Find(what:=id, LookIn:=xlValues, lookat:=xlWhole)

        If Not foundcell Is Nothing Then
            txtclienteopl.Value =Range(foundcell.Row, 3)
            txtmatricula2.Value = Range(foundcell.Row, 12)
         Else
            txtclienteopl.Value = ""
            txtmatricula2.Value = ""
        End If

    End With

End Sub

 

[aenemus]

Thanks for the help,
but it gives the error time 1004 "method range of object_global failed"

 

[dmt32]

Hi,
untested but see if this update to your code will do what you want

Private Sub txtdevolução_AfterUpdate()
    Dim id                  As String
    Dim foundcell           As Range
    Dim wsRetornosPendentes As Worksheet
   
     id = txtdevolução.Value
    If Len(id) = 0 Then Exit Sub
   
    Set wsRetornosPendentes = ThisWorkbook.Worksheets("retornos pendentes")
   
    Set foundcell = wsRetornosPendentes.Columns(1).Find(what:=id, LookIn:=xlValues, lookat:=xlWhole)
   
    If Not foundcell Is Nothing Then
        txtclienteopl.Value = foundcell.Offset(, 2)
        txtmatricula2.Value = foundcell.Offset(, 11)
    Else
        txtclienteopl.Value = ""
        txtmatricula2.Value = ""
    End If
   
End With

End Sub

Dave