Change listbox value

Hi Stignone

See if the attached gets you started. The UserForm loads and the Pages get populated with what appears to be the correct ranges of data. I've done nothing with Formatting.

Please note, in previous Sample Files your Ranges ALWAYS started at Row 1. In this new File none of the Ranges start at Row 1. So, in these lines of Code

x = Me.ListBox5.ListIndex + 1    'row index

none of the Row Indexes will be correct (the wrong row will be changed). I'll play around with this issue a bit today and see if I can resolve it.

If you have particular items you DON"T want to allow change, change the TextBox Enabled Property to False. See TexBox49 on Page 5 for an example.

Let me know of issues.

Hi Stignone

I've added some Public Variables (see Module1) and I've changed the Initialize Event Code to capture the Range Start Row for each of your Page Ranges.
I've modified the UpDate Button Code for Page 1 and Page 5 (CommandButton12 and CommandButton10); please make the same appropriate modifications on Page 2, 3 and 4 Update Buttons (CommandButton4, CommandButton6 and CommandButton8)

Let me know of issues.

Hi Stignone

In the UserForm Initialize Event, for each ListBox, change this line of code

Private Sub UserForm_Initialize()
    Dim x As Long
    Dim k As Long
    Dim j As Long
    If MultiPage1.Value = 0 Then x = Sheets("INPUT BS").Range("D10:M50").Rows.Count '<--If you change the Range
    Rx1 = 10 '<----------------------------------------------------------------------You Must Change this
    ListBox1.List = Sheets("INPUT BS").Range("D10:M50").SpecialCells(xlCellTypeVisible).Value '<----Change this line
    For k = 1 To x    'rows
        For j = 1 To 10    'columns
            ListBox1.List(k - 1, j - 1) = VBA.Format(ListBox1.List(k - 1, j - 1), "0")
        Next
    Next

Hi Stignone

You're using Rows 10 to 50 for ListBox1...why are they hidden?