Relationship from 2 sheets with one form

[sergeos]

how best to organize the relationship there are 2 sheets with some functions and there is one form with a button.
from sheet1 I call the form, and there I click the button. the event of this button should call the code from sheet1.
the code from the second sheet2 also calls this form, however, clicking on the button should already call some procedure placed in the sheet2 code.



the form does not run at the same time. only one caller sheet.

[jdc2000]

That is quite confusing. Are you wanting to have one form with one button that does different things depending on which sheet initiated the display of the form? Please supply more details on exactly what you are wanting to accomplish.

[Zvoni]

Should be easy with a "ParentSheet"-Property of the Form.
Then it's an easy Select Case/If then Else


In Sheet1

Public Sub S1()
    Debug.Print "Hello from S1 in Sheet1"
End Sub

Sub CallForm()
    Load MyForm
    Set MyForm.ParentSheet = Me
    MyForm.Show
End Sub

In Sheet2

Public Function F2()
    Debug.Print "Hello from F2 in Sheet2"
End Function

Sub CallForm()
    Load MyForm
    Set MyForm.ParentSheet = Me
    MyForm.Show
End Sub

In UserForm

Public ParentSheet As Worksheet

Private Sub CommandButton1_Click()
    If ParentSheet Is Sheets(1) Then Sheets(1).S1
    If ParentSheet Is Sheets(2) Then Sheets(2).F2
End Sub