I always get an error everytime I enter not on the combo box

[jhazziejhazz]

I have this entry form and it has a combobox everytime I accidentally press any letters on the keyboard, an error always occurs.

Also can you guys suggest on what should be done, say in these form I have data like RR NO, INVOICE, INVOICE DATE ORDER TYPE that are repetitive, but I need to be present in the form or in the excel file.

I really have no idea what to do in order to save time manually inputting those data,

The overview is that every 1 invoice there are several items in it.

Thank you in advance, you guys are all amazing.

Jhazzie



Please help.

 

[diddi]

post the combobox_change sub from the userform

 

[jhazziejhazz]

post the combobox_change sub from the userform

Hi,

Here's the code. Thank you.

Private Sub cmbPartNo_Change()

Dim SH As Worksheet
Set SH = ThisWorkbook.Sheets("Product_Masterlist")

Dim i As Integer

If Me.cmbPartNo.Value = "" Then
Else

Me.txt_Description.Value = Application.WorksheetFunction.VLookup(Me.cmbPartNo, SH.Range("B:D"), 2, 0)
Me.txt_Cost.Value = Application.WorksheetFunction.VLookup(Me.cmbPartNo, SH.Range("B:D"), 3, 0)

On Error Resume Next

End If


End Sub

 

[diddi]

try change this

If Me.cmbPartNo.Value = "" Then

to this

If Me.cmbPartNo.ListIndex>-1 Then

 

[jhazziejhazz]

try change this

If Me.cmbPartNo.Value = "" Then

to this

If Me.cmbPartNo.ListIndex>-1 Then

Hi diddi,

I still got the same error.

Thanks tho.

Jhazz

 

[diddi]

If Me.cmbPartNo.ListIndex > -1 Then
    Me.txt_Description.Value = Application.WorksheetFunction.VLookup(Me.cmbPartNo, SH.Range("B:D"), 2, 0)
    Me.txt_Cost.Value = Application.WorksheetFunction.VLookup(Me.cmbPartNo, SH.Range("B:D"), 3, 0)
    On Error Resume Next
End If

you write your if statements with negative logic

 

[jhazziejhazz]

If Me.cmbPartNo.ListIndex > -1 Then
    Me.txt_Description.Value = Application.WorksheetFunction.VLookup(Me.cmbPartNo, SH.Range("B:D"), 2, 0)
    Me.txt_Cost.Value = Application.WorksheetFunction.VLookup(Me.cmbPartNo, SH.Range("B:D"), 3, 0)
    On Error Resume Next
End If

you write your if statements with negative logic

Hi diddi,
I have copied your code and its working.
Thank you,

Sorry for my ignorance, but when you say negative logic, what does that exactly mean., I am new to this.

Thank you so much for your help.

Jhazz

 

[diddi]

the way you write an if statement is like this:
"If the door is closed, then dont do anything, but otherwise you can come in"
Rather than
"If the door is open come in"

 

[jhazziejhazz]

the way you write an if statement is like this:
"If the door is closed, then dont do anything, but otherwise you can come in"
Rather than
"If the door is open come in"

I see.

Thank you diddi for your time and for helping me solve this error.

Jhazzie