Code problems: combo box - search list - if match - data insert

**standard23** · 02-13-2013, 05:01 PM

I am trying to create a UserForm to track campaigns. I would like to be able to enter the campaign ID name in a combo box (CB_ID) and then have it search a set row (D:D) and if the two match have the data inserted in that same row. I am having problems however writing the code in the section that is in bold below. Any suggestions?

Private Sub ClearDataButton2_Click()

Unload UserForm3
UserForm3.Show
UserForm3.CB_ActualLaunchDate.SetFocus

End Sub

Private Sub EnterDataButton2_enter()

Dim NextRow As Integer
Sheets("Campaigns").Activate
Cells(NextRow, 8).FormulaR1C1 = "=R[-1]C+1"

If CB_ID.Text = Application.WorksheetFunction.Search(CB_ID(Range("D:D"))) Then Cells(NextRow, 9) = CB_ActualLaunchDate.Text

If OB_Sent Then Cells(NextRow, 13) = 1
If OB_NotSent Then Cells(NextRow, 13) = 2

Cells(NextRow, 14) = CB_SentOut.Value
Cells(NextRow, 15) = CB_Opened.Value
Cells(NextRow, 16) = CB_Clicked.Value

End Sub

**Norie** · 02-13-2013, 05:41 PM

What exactly are you trying to do on that line?

**standard23** · 02-14-2013, 10:24 AM

I would like it to search within a column for the text entered in a combo box then if the two texts match then the data will be entered in the same row. Code is very very wrong tho.

**Norie** · 02-14-2013, 10:28 AM

The worksheet function is used to search for a substring within a string, it won't search through multiple values.

You probably want to use VBA's Find but I'm not sure what you are trying find.

**standard23** · 02-14-2013, 05:10 PM

Basically I have created one user form that inserts data pre-campaign and now i need a second form to enter data post campaign.
The data consists primarily of text, values and dates.
I would like the second form to be able to search/find the correct row to start inserting data on.
I thought the easiest way to do this would be to search/ find based on the campaign name (text).