istenilen alanlarda takvim

[limanC34]

Selam Arkadaşlar
Sadece renkli kolon ve satırlar arası tek tıkla ogünün tarihini gösteren takvim açar hücreye yazdırabilirim?
Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B3:D23,F3:G23,I3:J23")) Is Nothing Then Exit Sub
On Error Resume Next
UserForm1.Calendar1.Value = Date
UserForm1.Show
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Format(Calendar1.Value, "dd.mm.yyyy")
Unload Me
End Sub

 

[limanC34]

Sayın Evren Gizlen
Herzamanki gibi çözüm ve alakanıza teşekkür ederim.

 

[Orion1]

Sayın Evren Gizlen
Herzamanki gibi çözüm ve alakanıza teşekkür ederim.

Rica ederim.
İyi çalışmalar.