Write value to worksheet from combobox value

[cdy3900]

I am attempting to write a code that will search for the value in combobox then write the textbox value in the next column, and then the next time the same values is found right in next empty column to it.

this is what I have so far but its not working:

Private Sub CommandButton2_Click()

Dim rowcount As Long
Dim ctl As Control

' write data to worksheet
rowcount = Worksheets("idata").Range("A1").CurrentRegion.Rows.Count
With Worksheets("idata").Range("a1")
.Offset(rowcount, 1).Value = Me.TextBox1.Value
.Offset(rowcount, 2).Value = Me.ComboBox1.Value
.Offset(rowcount, 3).Value = Me.TextBox18.Value
.Offset(rowcount, 4).Value = Me.ComboBox2.Value
.Offset(rowcount, 5).Value = Me.TextBox9.Value
.Offset(rowcount, 6).Value = Me.TextBox6.Value
.Offset(rowcount, 7).Value = Me.TextBox12.Value
.Offset(rowcount, 8).Value = Me.TextBox10.Value
.Offset(rowcount, 9).Value = Me.TextBox6.Value
.Offset(rowcount, 10).Value = Me.TextBox13.Value
.Offset(rowcount, 11).Value = Me.TextBox11.Value
.Offset(rowcount, 12).Value = Me.TextBox8.Value
.Offset(rowcount, 13).Value = Me.TextBox14.Value
.Offset(rowcount, 14).Value = Me.TextBox15.Value
.Offset(rowcount, 15).Value = Me.TextBox16.Value
.Offset(rowcount, 16).Value = Me.TextBox17.Value
.Offset(rowcount, 17).Value = Me.ComboBox3.Value
.Offset(rowcount, 18).Value = Me.ComboBox4.Value



With Worksheets("ap2").Activate
Dim acct1 As String

Dim FoundRange As Range
acct1 = ComboBox2.Value

Set FoundRange = Sheets("ap2").Cells.Find(what:=acct1, LookIn:=xlFormulas, lookat:=xlWhole)
TextBox17.Text = FoundRange.Value
TextBox17.Text = FoundRange.Offset(0, 1).Value
End With
End With

End Sub

HELP ME OBI-WAN KENOBI!

[rreifs68]

Did you try putting a "me" in front of the combobox2.value in:

Dim FoundRange As Range
acct1 = ComboBox2.Value


This is something similar, and works like a champ for me:

ws.Cells(rRow, 1).Value = Me.DBAStudentName.Value
ws.Cells(rRow, 2).Value = Me.DBAChoice.Value
ws.Cells(rRow, 3).Value = Me.Q1.Value
ws.Cells(rRow, 4).Value = Me.Score1.Value
ws.Cells(rRow, 5).Value = Me.Q2.Value
ws.Cells(rRow, 6).Value = Me.Score2.Value
ws.Cells(rRow, 7).Value = Me.Q3.Value
ws.Cells(rRow, 8).Value = Me.Score3.Value
ws.Cells(rRow, 9).Value = Me.Q4.Value
ws.Cells(rRow, 10).Value = Me.Score4.Value
ws.Cells(rRow, 11).Value = Me.Q5.Value
ws.Cells(rRow, 12).Value = Me.Score5.Value
ws.Cells(rRow, 13).Value = Now
ws.Cells(rRow, 14).Value = "Completed"

Student = Me.DBAStudentName.Value
module = Me.DBAChoice.Value
Q1 = Me.Q1.Value
Q2 = Me.Q2.Value
Q3 = Me.Q3.Value
Q4 = Me.Q4.Value
Q5 = Me.Q5.Value
s1 = Me.Score1.Value
s2 = Me.Score2.Value
s3 = Me.Score3.Value
s4 = Me.Score4.Value
s5 = Me.Score5.Value

BobR