Hi People,
I'm trying to add properties to my userform1.
I have function declared in class module:
Function Login() As String
Login = Environ("USERNAME")
End Function
And i want to have a property from userform1 object inside userform1 for each private sub (userform_activate, listbox_change etc.).
How can I do this?
I would like to have property like this (and when I have userform2 - i want to have this property also here if it is possible).
Private Sub UserForm_Activate()
dim Name as string
dim LastRow as long
LastRow = A_Wniosek.Range("A1").CurrentRegion.Rows.Count
Name = userform1.login() & "_" & LastRow
end sub
Thank You in advance for your help,
Best regards,
Jacek Antek
Bookmarks