Run-time error 13

[josros60]

Hi,

have the code below giving me run-time error 13 type mismatch and highlighting this line:

rowselect = rowselect + 1

Complete code:

Private Sub cmdupdate_Click()
If Me.cmbslno.Value = "" Then
MsgBox "SAGEID Can Not be Blank!!!", vbExclamation, "SAGEID"
Exit Sub
End If
SLNo = Me.cmbslno.Value
Sheets("DISTRIBUTION_SET_G-L_CODING").Select
Dim rowselect As String
Dim msg As String
Dim ans As String
rowselect = Me.cmbslno.Value
rowselect = rowselect + 1
Rows(rowselect).Select
Cells(rowselect, 2) = Me.txtvendor.Value
Cells(rowselect, 3) = Me.txtcurrency.Value
Cells(rowselect, 4) = Me.txtbPO.Value
Cells(rowselect, 5) = Me.txtapprover.Value
Cells(rowselect, 6) = Me.txtGLcode.Value
Cells(rowselect, 7) = Me.txtLineDes.Value
Cells(rowselect, 8) = Me.txttax.Value
Cells(rowselect, 9) = Me.txtAccTer.Value
Cells(rowselect, 10) = Me.txtOrgUnit.Value

rowselect = rowselect - 1
msg = "SAGEID " & rowselect & "  Successfully Updated...Continue?"
Unload Me
ans = MsgBox(msg, vbYesNo, "Update")
If ans = vbYes Then
UserForm1.Show
Else
Sheets("DISTRIBUTION_SET_G-L_CODING").Select
End If
End Sub

Thank you,

 

[josros60]

Yes,

combo box contain unique ID (SAGEID).

thank you,

 

[Domenic]

Try something like this . . .

With Sheets("DISTRIBUTION_SET_G-L_CODING")

    Dim target As Range
    Set target = .Range("A:A").Find(what:=SLNo, after:=.Range("A1"), LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, MatchCase:=False)
   
    If Not target Is Nothing Then
        .Cells(target.Row, 2) = Me.txtvendor.Value
        .Cells(target.Row, 3) = Me.txtcurrency.Value
        .Cells(target.Row, 4) = Me.txtbPO.Value
        .Cells(target.Row, 5) = Me.txtapprover.Value
        .Cells(target.Row, 6) = Me.txtGLcode.Value
        .Cells(target.Row, 7) = Me.txtLineDes.Value
        .Cells(target.Row, 8) = Me.txttax.Value
        .Cells(target.Row, 9) = Me.txtAccTer.Value
        .Cells(target.Row, 10) = Me.txtOrgUnit.Value
    Else
        'SLNo not found, do something else
        '
        '
    End If
   
End With

Notice that there's no need to select your worksheet first before searching and updating it.

Hope this helps!

 

[josros60]

Yes, how can it be fixed?

Thank you,

 

[Domenic]

Yes, how can it be fixed?

Sorry, but how can what be fixed?

 

[josros60]

To stop getting that error when updating a record in any field .

Thank you

 

[Domenic]

Actually, the code I posted in my last post will avoid the error. It searches Column A for the combobox value. If it finds it, the corresponding row is updated. If it doesn't find it, the else statement is executed. I left it blank since I couldn't be sure what you want done in that case.

Have you tried it?

 

[josros60]

I'm really sorry sorry didn't see you posted it will try it and let you know.

My mistake
Thank you so much.

 

[Domenic]

Okay, no problem...

 

[josros60]

Thank you so much for all your help and patience, worked perfectly.

 

[Domenic]

That's great, glad I could help.

Cheers!