místo userForm1.Show vložit:If Cells(Target.Row, Target.Column) = "Form1" Then
UserForm2.Hide
UserForm1.Show (0)
End If
If Cells(Target.Row, Target.Column) = "Form2" Then
UserForm1.Hide
UserForm2.Show 0
End If
citovat
UserForm2.Hide
UserForm1.Show (0)
End If
If Cells(Target.Row, Target.Column) = "Form2" Then
UserForm1.Hide
UserForm2.Show 0
End If
citovat