Listbox within Userform

Hello experts,

I have a nagging problem that perhaps you can help solve.

in the attached file, when a userform is selected a user is supposed to FIRST select a row in the userform and then enter information that populates a sheet in the background. Often times, a user will start typing without selecting a line first. When this happens, and they save the userform, it clears the headers of the sheet and subsequently the listbox. Is there a way to prevent a user from hitting save unless they have selected a row in the listbox? Or is there a way to prevent an inadvertent save from wiping out the headers?

Thanks in advance

Re: Listbox within Userform

Hi Kenneth, thank you for your response,

Where in userform code should I insert this. When I inserted in at the end of the current code, I get an error message.

Thanks

Re: Listbox within Userform

Hi Skywriter,

For example if you follow the following steps, you will see what I mean,

- If you select sheet named Lisa
- Click the link that says "form for this sheet"
- When the user form opens, start typing in the fields, a couple will do
- Click save
- you will see that everything you typed replaced the headers, (project name, project description, etc)
However, if you had only selected row 1 before typing, you would put the information in the right place and it works perfectly.

The problem is many of my users start typing before and ignore the first step of selecting a row .............

I would like to know how to force the user to select a line before they type. A message box suggestion would work as long as it prevents them from wiping the headers out form the spreadsheet. If everytime someone opens their sheet and does not select a row, it will just continue to replace the header and I lose history.

Hope that helps

Re: Listbox within Userform

Quote from rory;778990

Add Kenneth's code to your Save button code:

Code

Private Sub cbnEdit_Click()    If Me.ListBox1.ListIndex = -1 Then
        MsgBox "You must select an item in the list first!"
        Exit Sub
    End If
    Dim lRow As Long




    lRow = GetSheetRow(GetAutoNumber)




    bEditing = 1
    With mySheet
        .Cells(lRow, 2).Value = Me.TextBox1.Value
        .Cells(lRow, 3).Value = Me.TextBox2.Value
        .Cells(lRow, 4).Value = Me.TextBox8.Value
        .Cells(lRow, 5).Value = Me.TextBox9.Value
        .Cells(lRow, 6).Value = Me.TextBox3.Value
        .Cells(lRow, 7).Value = Me.ComboBox1.Value
        .Cells(lRow, 8).Value = Me.ComboBox2.Value
        .Cells(lRow, 9).Value = Me.TextBox18.Value
        .Cells(lRow, 10).Value = Me.TextBox27.Value
        .Cells(lRow, 11).Value = Me.TextBox30.Value
        .Cells(lRow, 12).Value = Me.TextBox31.Value
        .Cells(lRow, 13).Value = Me.TextBox32.Value
        .Cells(lRow, 14).Value = Me.TextBox22.Value
        .Cells(lRow, 15).Value = Me.TextBox17.Value
        .Cells(lRow, 16).Value = Me.TextBox20.Value
        .Cells(lRow, 17).Value = Me.TextBox28.Value
        .Cells(lRow, 18).Value = Me.TextBox15.Value
        .Cells(lRow, 19).Value = Me.TextBox33.Value
        .Cells(lRow, 20).Value = Me.TextBox7.Value
        .Cells(lRow, 21).Value = Me.ComboBox3.Value
    End With
    bEditing = 0




End Sub

Display More

Thank you so much, by inserting the code in the command button to save, it works as intended. I have a number of workbooks that uses this similar style and this has been very helpful.

Thank you!