userforma popup calendar

poz
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

Potpis

Jasmin

okaci gotov primjer

ok evo ide primjer

Potpis

Jasmin

TNX care, jos kad bi moglo da se bira i dan posebno?

poz
kako misliš da se bira dan posebno?

Potpis

Jasmin

Da bude isto kao za kalendar, kliknem i da mi ponudi da izaberem dan koji mi treba.

Poz,
koliko vidim kad se otvori kalendar možeš birati i dan i godinu koju želiš,samo prošetaj kalendarom klikni na dan koji hočeš i ok
Pozdrav

Potpis

Jasmin

Kalendar je ekstra, ali mene bi odgovaralo da mogu iskljiucivo dan da izaberem, jer imam izvjestaj dje je skroz desno datum a dan se upisuje skroz lijevo. Na primjer SUBOTA 20.05.2012
Izvjestaj je takav, ne mogu da ga mijenjam i prilagodjavam, da mogu iskoristio bih ovaj kalendar i za dan i za datum, kroz date opciju. Kad bi se mogao ubacit padajuci meni za biranje iskljucivo dana u nedelji to bi bilo ekstra ili neshto slicno.

Poz,
evo upiši ovu formulu u čeliju gdje želiš da ti pokaže koji je dan za taj datum :
=TEXT(WEEKDAY(A2); "dddd") "A2 je broj ćelije gdje je datum upisan preko kalendara"
poz

Potpis

Jasmin

Mala dosjetka..............

okacite fajl momci, za nas je to spas :)

file.................