Populate a textbox based on combobox selection and other conditions

[DanSMT]

All,

Im trying to figure out why the following code is not working... Im trying to pull data from a sheet into a textbox based on the change of a combobox. See below;

Private Sub ComboBox10_Change()

Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet

Me.TextBox13 = ""

Set ws = Sheets("paste log")

lastrow = ws.Range("f" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow

If Me.ComboBox11.Value = ws.Cells(i, "b") & Me.ComboBox8.Value = ws.Cells(i, "c") Then

Me.TextBox13 = ws.Cells(i, "f").Text

End If

Next i

End Sub

If i run the following code the code runs, but only brings the latest date in relation to a "NA" line on the spreadsheet and then stops.

Private Sub ComboBox10_Change()

Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet

Me.TextBox13 = ""

Set ws = Sheets("paste log")

lastrow = ws.Range("f" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow

If Me.ComboBox10.Value = ws.Cells(i, "e") Then

Me.TextBox13 = ws.Cells(i, "f").Text

End If

Next i

End Sub

Any help would be greatly appreciated. Thanks!!

 

[Fluff]

If the number occurs multiple times then the textbox will have the value from col F for the last occurrence.

 

[DanSMT]

If the number occurs multiple times then the textbox will have the value from col F for the last occurrence.

What is i use the following?

If Me.ComboBox11.Value = ws.Cells(i, "b").Text And Me.ComboBox7.Value = ws.Cells(i, "a").Text Then

 

[DanSMT]

What is i use the following?

If Me.ComboBox11.Value = ws.Cells(i, "b").Text And Me.ComboBox7.Value = ws.Cells(i, "a").Text Then

which still appears to bring back the incorrect value

 

[Fluff]

That should get the last occurrence of when when combo11 = col B & combo7 =col A

 

[DanSMT]

That should get the last occurrence of when when combo11 = col B & combo7 =col A

its not pulling that though. its pulling the last row in column h

Private Sub ComboBox10_Change()

Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet

'Me.TextBox13 = ""

Set ws = Sheets("paste log")

lastrow = ws.Range("a" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow

If Me.ComboBox11.Value = ws.Cells(i, "b").Text And Me.ComboBox7.Value = ws.Cells(i, "a").Text Then

Me.TextBox13 = ws.Cells(i, "h").Value

End If

Next i

End Sub

 

[DanSMT]

I think i may have figured it out.

 

[DanSMT]

Final Code

Private Sub ComboBox10_Change()

Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet

'Me.TextBox13 = ""

Set ws = Sheets("paste log")

lastrow = ws.Range("a" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow

If Me.ComboBox11.Text = ws.Cells(i, "b").Text And Me.ComboBox7.Text = ws.Cells(i, "a").Text _
And Me.ComboBox8.Text = ws.Cells(i, "c").Text And Me.ComboBox10.Text = ws.Cells(i, "e").Text Then

Me.TextBox13 = ws.Cells(i, "h").Value
Me.TextBox12 = ws.Cells(i, "i").Value

End If

Next i

End Sub

Thank you Fluff!!

 

[Fluff]

Glad you sorted it & thanks for the feedback.