range find data and write to adjacent cell

I have a userform that finds the result of combo box then writes the data from the textbox to a worksheet. it works except the when i run the userform again it overwrites the previous data instead of finding the next blank column adjacent to the found value.

Private Sub CommandButton5_Click()
Dim rFind As Range
Dim lastcolumn As Integer

With Sheets("ap2").Columns(1)
Set rFind = .Find(What:=Me.ComboBox2.Value, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
rFind.Offset(, 1).Value = Me.TextBox17.Value

End With

Please Login or Register  to view this content.

Thanks alphafrog, but it still is not finding the next empty column when i find the same row the next time it just says no match found...any thoughts?

Is the next match an exact match? No unseen trailing spaces or extra characters.

Could you post an example workbook?

FSETT 2013 Q1 (version 2).xls

It is an exact match, Thanks again for your help!

I misunderstood what you wanted. Try this...

Please Login or Register  to view this content.