Close VBA form

[vitorio]

Enclosed Excel macro file (CalendarFormHelp.xlms).


I will like that after pressed de X button in the form, the form closed, without entering any date.


Leaving the cell C7 empty.


Just without entering any date (just empty).


Is this possible?


Thanks for the suggestion.

[Aussiebear]

Welcome to VBAX Vitorio. I notice that two of the contributors to the Calender form are Graham Mayor and Greg Maxey, both are active members here. One or both could be along shortly.

[vitorio]

Hope to see then. Thanks.

[vitorio]

File in first post.


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Thanks to Dan McGovern for suggesting and supplying this code
Dim TriggerCells As Range
' The cells you click in to display the calendar
Set TriggerCells = Range("C7")
If Not Intersect(TriggerCells, Target) Is Nothing Then
ActiveCell.value = CalendarForm.GetDate(FirstDayOfWeek:=Monday, SaturdayFontColor:=RGB(250, 0, 0), SundayFontColor:=RGB(250, 0, 0))
End If
End Sub


Maybe something like this:



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' If CloseMode = 0 Then
' Cancel = True
' DateOut = SelectedDateIn
' Me.Hide
' End If
'End Sub

[Aflatoon]

If you just want to leave it as it is:


If Not Intersect(TriggerCells, Target) Is Nothing Then Dim SelectedDate As Date
SelectedDate = CalendarForm.GetDate(FirstDayOfWeek:=Monday, SaturdayFontColor:=RGB(250, 0, 0), SundayFontColor:=RGB(250, 0, 0))
If SelectedDate <> 0 Then ActiveCell.value = SelectedDate
End If

[vitorio]

This week I am going to test the recommendations made, since I am out of town. As soon as finish I will le you know the results.

Thanks to all for your help.

[Paul_Hossler]

You can use the QueryClose event to pass a global variable when you click on the [X] that says to clear the cell

Search for bClearDate in the code




Public bClearDate As Boolean ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<




Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


If CloseMode = 0 Then
Cancel = True
bClearDate = True ' <<<<<<<<<<<<<<<<<<
Me.Hide
Unload Me
End If


End Sub

[vitorio]

Just return this week.

Tested the recommended recommendations. Thanks to all for the help provided , specially for McGovern for answer the special request to help.

Solutions provided solved my request.

Until the next time!!!

[Aussiebear]

McGovern?

[vitorio]

Please remove.

[vitorio]

From above post, #4



"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Thanks to Dan McGovern for suggesting and supplying this code
Dim TriggerCells As Range" ...