Private Sub UserForm_Initialize() how to combine 2 codes together

[Patriot2879]

Hi hope you can help i want to combine the 2 vba codes below together if possible as i cant have both on same sheet as i get an error hope you can help?

Private Sub UserForm_Initialize()

    cmdUpdate.Enabled = False 'Only enable the button when a row has been returned
    
    'Source for this nifty code is from here:
    'http://stackoverflow.com/questions/10763310/how-to-populate-data-from-a-range-multiple-rows-and-columns-to-listbox-with-vb
    Dim rng As Range
    Dim i As Long, j As Long, rw As Long
    Dim Myarray() As String
    
    Set rng = Range("ListBox1")

    With Me.ListBox1
        .Clear
        .ColumnHeads = False
        .ColumnCount = rng.Columns.Count

        ReDim Myarray(rng.Rows.Count, rng.Columns.Count)

        rw = 0

        For i = 1 To rng.Rows.Count
            For j = 0 To rng.Columns.Count
                Myarray(rw, j) = rng.Cells(i, j + 1)
            Next
            rw = rw + 1
        Next

        .List = Myarray
        '.TopIndex = 1
        
    End With
    
    If Val(Me.txtLBSelectionIndex) > 1 Then
        Me.ListBox1.Selected(Val(Me.txtLBSelectionIndex)) = True
    End If

End Sub

And

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 24
ListBox1.RowSource = "B2:F7"
ListBox1.ColumnHeads = True
End Sub

 

[Norie]

I'm sorry but I don't follow.

The code you posted uses 2 different methods, List and RowSource, and, seemingly, 2 different sets of data to populate the listbox.

You should only be using one method to populate the listbox.

 

[Patriot2879]

Hi i used the code below (which worked) to populate the data into the listbox.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 24
ListBox1.RowSource = "B2:F7"
ListBox1.ColumnHeads = True
End Sub

Then the other code which i tried to combine with the above was to do any update/changes from the textbox.

 

[Patriot2879]

I hope someone can look at my spreadsheet that i added to dropbox and help me with this please?
listbox view in userform.xlsm

 

[Norie]

You wouldn't use the Initialize event to update/change the textboxes, that would be a separate event.

 

[Patriot2879]

You wouldn't use the Initialize event to update/change the textboxes, that would be a separate event.

Can you advise me how I would do that please