Load from a spreadsheet into a userform

[gmazza76]

Afternoon,

I need to load about 6 sets of numbers onto a userform when the stats userform is loaded to give an overview to managers.

I am using the code below but it debugs out.
I have tried stepping into the code but it isnt showing anything.

Please help
Many Thanks
Gavin

'enters the date on the form
Private Sub userform_Initialize()
Dim Today
Today = Format(Now, "dd/m/yyyy")
Me.Today.Value = Today
Me.Today.Locked = True
 
Workbooks.Open Filename:="C:\Users\MAZZA\Documents\Gavin\Car Park\FYVData.xls" 'Home

On Error Resume Next
Set myBook = Application.Workbooks("FYVData.xls")
On Error GoTo 0
    
Dim iRow As Long
Dim ws As Worksheet
Dim lRow As Integer
Set ws = Worksheets("Breakdown Stats")
            FYVOverview.Show False
            FYVOverview.TextBox1.Value = Cells(C3)
            FYVOverview.TextBox7.Value = Cells(C4)
            FYVOverview.TextBox6.Value = Cells(C5)
 
 
End Sub

 

[gmazza76]

Many Thanks

It does pull the info in but gives the following

Run-time '400':

Form already displayed; cant show modally.

When i click debug it brings me back to the Sub Group7_Click() that loads the userform

 

[RoryA]

No idea offhand, unless you double-clicked the button that macro is attached to? Or assigned it to a button and included parentheses in the OnAction?

 

[gmazza76]

Sorry,

I am sounding really thick.
The userform loads from a button.

What does
"parentheses in the OnAction?"
mean

Cheers

 

[RoryA]

What macro did you assign to the button exactly?

 

[gmazza76]

I used a button to load the form as below
The code you gave i have added in the "Private Sub userform_Initialize()"

Is this correct ?

Sub Group7_Click()
    FYVOverview.Show
End Sub

 

[RoryA]

Is the first code you posted in the FYVOverview form? If so you are trying to reshow the form while it's loading, which is your problem. I have no idea why you are doing that so can't really say much more.