Application.Caller return value

I'm trying to have A Calendar Userform return the name of the button that called it, so that it can put the date in a different cell or TextBox, depending on which form or button it was called from, and if called from a UserForm, return the name of the UserForm.
I call that Calendar from different Macros from different locations.
Anyone know if Application.Caller can be used to do something like this.
If so, how would I code it to return the name of the caller as either a string or a variable.

Thanks

The UserForm should have a Public Variable. ie Public "CalledBy" As String
You will need an intermediary sub to determine the caller and to call the calendar.
The buttons should call the intermediary sub

Code:

---

Sub Intermediary()
  Load UserFormCalendar
  UserFormCalendar.CalledBy = Application.Caller
  UserFormCalendar.Show
End Sub

---

Edit terminology to suit

Hi:
Thanks for the input.
Still a little lost, but you've pointed me in some direction to investigate.
Thanks

Application.Caller will not work if you call the code from another form.

Hi Aflatoon:

Thanks. I figured that bit out. & That's exactly what I was hoping was possible.
I did a kludge work around.
Put a hidden field into both userforms and stored the calling Userform button value there.

I appreciate all of your input.

A Userform control can have a _Click event.
In that case the 'calling control' is evident.

Code:

---

Private Sub Commandbutton1_Click()
  msgBox commandbutton1.name
End Sub

---

snb:

On the Calendar, I was trying to find out what was calling the Calendar form.
The Calendar will return the date value to entirely different locations based on what called it.
That's what I was investigating.

No rocket science.

Alternative Code:

Code:

---

Private Sub CommandButton1_Click()
    M_snb 1
End Sub

Private Sub CommandButton2_Click()
    M_snb 2
End Sub

Sub M_snb(y)
    UserForm1.Caption = OLEObjects(y).Name
    UserForm1.Show
End Sub

---

Quote:

---

Originally Posted by simora

I'm trying to have A Calendar Userform return the name of the button that called it, so that it can put the date in a different cell or TextBox, depending on which form or button it was called from, and if called from a UserForm, return the name of the UserForm.
I call that Calendar from different Macros from different locations.
Anyone know if Application.Caller can be used to do something like this.
If so, how would I code it to return the name of the caller as either a string or a variable.

Thanks

---

https://trevoreyre.com/portfolio/excel-datepicker/

Why re-invent the wheel?

Trevor Eyre has a free and very flexible date picker that I've found works very well

Attachment 29912

ISO datepicker:

https://www.snb-vba.eu/VBA_Datepicker_en.html

snb

This is what I did.

I send a value from any button calling the form to a hidden field on the UserForm1.
The form will return the date to a location based on what value the hidden field has.
Works like a charm for my purposes.
Anytime I call the UserForm1.Calendar, I just send it some specific button name or whatever, and it will return the date to the location that I desire.
'Place the date from the calendar into a location based on where its called from.

Code:

---

If UserForm1.TextBox1.Value = "1Form" Then
    PForm.TextBox5.Value = UserForm1.Calendar1.Value   
    Else
    MultiCheckForm.TextBox20.Value = UserForm1.Calendar1.Value
End If

    'Dismiss the userform
    Unload Me

---

Paul_Hossler
Hi Thanks:

But I am NOT trying to create a Calendar form.
I already have one that I'm using.
My question was about having different buttons call it, and getting it to return the date to a specific location based on the caller.

In each of the Button_Click subs that call the Userform, store the .Caption (or any identifying data) in a Public variable

Use that after you select a date from the userform to put the answer where you want

Did you notice http://www.vbaexpress.com/forum/show...l=1#post415695 ??