evo ako kome treba kalendar forma za upis u čeliju(dupli klik na čeliju i otvara se forma kalendara)
evo kod i forma kalendara(kopirati kod kompletan VB editoru) na list na kojem hoćete kalndar
pozdrav
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng1 As Range
'Assign the range to work with
Set Rng1 = Range("B7:B7") 'promjeni ćeliju gdje će duplim klikom pokazati kalendar
'Only work on assigned range
If Intersect(Target, Rng1) Is Nothing Then Exit Sub
'Cancel cell editing that would normally trigger when you double click
Cancel = True
'Call the userform
UserForm1.Show
End Sub