Skip blank cells; Run-time error 380

J

jbpyron

have a userform with several comboboxes. When I hit the "next" button,
it goes to the next row down, but if that is empty, then I'll get an
error of:

Runtime error '380'
Could not set the Value property. Invalid property value.

The combobox MatchRequired property is set to False.

Here's the basics of my code. I will be more than willing to email the
file. It's too large to post.


Code:
--------------------

Private Sub LoadRow()

txtTapeNumber.Text = ActiveCell.Value
txtCode.Text = ActiveCell.Offset(0, 1)
cboChannel.Value = ActiveCell.Offset(0, 2) <--error here
cboBrand.Value = ActiveCell.Offset(0, 3)
cboFormat.Value = ActiveCell.Offset(0, 4)
cboLength.Value = ActiveCell.Offset(0, 5)
cboCategory.Value = ActiveCell.Offset(0, 6)
cboVersion.Value = ActiveCell.Offset(0, 7)
txtTapeTitle.Text = ActiveCell.Offset(0, 10)
txtKeywords.Text = ActiveCell.Offset(0, 11)
etc...(more txt boxes)

--------------------


Here is my next button code...


Code:
--------------------

Private Sub cmdNext_Click()

' Save form contents before changing rows:
SaveRow

' Increment row number:
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If

' load info from sheet1 into userform
LoadRow

' Set focus to Name textbox:
txtTapeNumber.SetFocus

End Sub

--------------------


this is the last major piece of the puzzle to get this working. If I
want to add a new line, that's no problem, it's just on hitting
"Next".


Thanks for reading and for the help!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top