UserForm Load

[halfsparrow]

Hello Everyone, I am stuck at a point in vba and really need help

I have a button in excel sheets upon clicking that button it opens a Userform named as UserForm1 ad it asks user to browse the excel excel and open it

Private Sub CommandButton1_Click()

Dim pathString As String
Dim resultWorkbook As Workbook
Dim found As Boolean
pathString = Application.GetOpenFilename(fileFilter:="All Files (* . xl*) , *.xl* ")

' check if it's already opened
For Each wb In Workbooks
If InStr(pathString, wb.Name) > 0 Then
Set resultWorkbook = wb
found = True
Exit For
End If
Next wb




If Not found Then
Set resultWorkbook = Workbooks.Open(pathString)
End If

Worksheets(3).Activate

Unload UserForm1
UserForm2.Show

End Sub

this is its code

and it opens UserForm2
Now i want textboxs in userform2 to be preloaded from a cell in excel file that a user opened
there are 4 textboxs named
HeatSup, HeatRet, CoolSup, CoolRet
and the cells in excel file are S6,S7,S8,S9

Thanks in Advance

 

[diddi]

try this

Unload UserForm1
With UserForm2
    .HeatSup = Sheets("MySheet").Range("S6")
    .HeatRet = Sheets("MySheet").Range("S7")
    .CoolSup = Sheets("MySheet").Range("S8")
    .CoolRet = Sheets("MySheet").Range("S9")
    .Show
End with

 

[halfsparrow]

THANK YOU IT WORKED.