User Form error - type 13 mismatch -

[Marcych]

Hi Guys,

Could you please take a look into the following code and advise what is wrong and causing the type 13 mismatch error?

The case is that the error message came up when I decided to include "BHD" text together with ticket number (highlited)
'Write Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 1) = Me.tbTicketNo.Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 10) = Me.cmbOpenBy.Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 2) = Me.cmbCustID.Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 3) = Me.cmbCustName.Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 4) = Me.cmbCustPhone.Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 7) = Me.tbIssue.Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 11) = Me.cmbSEV.Value
issSheet.Cells(Me.tbTicketNo.Value + 5, 14) = CDate(Me.tbDateOpen.Value)
issSheet.Cells(Me.tbTicketNo.Value + 5, 16) = CDate(Me.tbDateOpen.Value)


Private Sub btwNewTicket_Click()
ClearFields
Range("A" & Rows.Count).End(xlUp).Select
LastRow = "bhd" & ThisWorkbook.Sheets("Issue Log").Cells(Rows.Count, 1).End(xlUp).Row - 4
Me.tbTicketNo.Value = "BHD" & LastRow
Me.tbTicketNo.Locked = True
Me.tbDateOpen = Date
Me.btnAccept.Caption = "Create"
Me.btnAccept.Enabled = True
End Sub

Thank you in advance !

Regards

[davesexcel]

"LastRow = "bhd" & ThisWorkbook.Sheets("Issue Log").Cells(Rows.Count, 1).End(xlUp).Row - 4
Me.tbTicketNo.Value = "BHD" & LastRow"?

Does lastrow end up being a number or a text?

[Norie]

Which line of code is causing the error?

[xlnitwit]

Hi,

You can't add 5 to the text "BHD1" for example. You need to remove the BHD part to get the row number

Please Login or Register  to view this content.

[Marcych]

Thank you xlnitwit, it works now!