[ jaskojsako @ 16.05.2013. 12:30 ] @
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
[ pondeke @ 18.05.2013. 23:06 ] @
okaci gotov primjer
[ jaskojsako @ 20.05.2013. 09:12 ] @
ok evo ide primjer
[ pondeke @ 21.05.2013. 16:46 ] @
TNX care, jos kad bi moglo da se bira i dan posebno?
[ jaskojsako @ 22.05.2013. 09:28 ] @
poz
kako misliš da se bira dan posebno?
[ pondeke @ 23.05.2013. 00:29 ] @
Da bude isto kao za kalendar, kliknem i da mi ponudi da izaberem dan koji mi treba.
[ jaskojsako @ 23.05.2013. 09:08 ] @
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
[ pondeke @ 23.05.2013. 11:09 ] @
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.
[ jaskojsako @ 23.05.2013. 12:26 ] @
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
[ lukarim @ 24.05.2013. 20:20 ] @
Mala dosjetka..............
Code:

Private Sub CommandButton1_Click()
    ActiveCell.Value = UCase(Format(UserForm1.Calendar1.Value, "dddd")) & "    " & Format(UserForm1.Calendar1.Value, "dd.mm.yyyy")
    Unload Me
End Sub
[ pondeke @ 25.05.2013. 17:32 ] @
okacite fajl momci, za nas je to spas :)
[ lukarim @ 26.05.2013. 20:26 ] @
file.................
[ pondeke @ 26.05.2013. 23:52 ] @
to care, samo jos da nije na engleski ?