Vie niekto poradiť s makrom

Tak sem právě zjistil, že makro se nechová přesně podle představ. Konkrétně při výběru odpovědi "NE" na msgboxu se sice hodnota buňky B2 (měsíc) nezmění, ale hodnota spinbutton (číselník) ano. Což vede k chybě při příštím stisku "ANO". Měsíc se nezmění na následující ale jeden se přeskočí.

Proto přikládám opravený soubor který se již chová korektně

Ja som si urobil nieco také (trocha si ma inspiroval) a to mi aj celkom vyhovuje. Hoci sa to nepýta ci "ANO" alebo "NIE" ale to je v tomto pripade nepodstatné. To som chcel len použit v inom pripade. Ale mam otazocku a ta je v prilohe. Ak vložim ovladaci prvok tak mu neviem priradt hodnoty ani makro - neni tam taka moznost. dik za radu a ochotu.

V prvním případě je vložen číselník z panelu Formuláře. Dá se využít na listu i bez makra, nebo při použití ke spuštění předem zapsaného makra.
V druhém případě je vložen číselník z panelu Visual Basic (VBA - makra) - ovládací prvky. Hodnoty tohoto číselníku se již nastavují přes makra (ALT+F11), číselník je schopen reagovat i na události v kódu.

dik za vysvetlenie

Bolo by mozne nejakym jednoduchym sposobom urobit tak aby pri zmene mesiaca naskocilo okno s inf . napisom "Dátum bol zmenený" nemusi to byt makro. ale moze

Tohle lze makrem. Jen bych potřeboval vědět kde* si to okno přeješ.

*) v souboru "kopie-zmena-mesiaca- tlacitkom.xls" nebo "ciselnik.xls" a na jakém listu případně buňce. Nebo při kliknutí na číselník? Jaký?

Ja som uz nieco urobil len to skus dokoncit Po kliknuti na ciselnik nech vyskoci okno s oznamom "Dátum bol zmenený" na cca 3 sekundy, nemusi tam byt nijake OK NO YES len oznam. Posielam subor. dik dik

Tak se na to koukni

dik je to super.
Len otazočka da sa nejak menit dlzka oznamu?

Ano v makru.
ALT+F11 ti otevře editor VBA. Po levé straně je stromová struktura kde je složka "Form" obsahující userform frm-oznam na něj poklikáš a zobrazí se userform (okno). Když na to okno poklikneš zobrazí se kód

Private Sub UserForm_Activate()
'nastavení jak dlouho se má userform zobrazit
Application.Wait Now + TimeValue("00:00:03")
'zavření userformu
Unload Me
End Sub

kde stačí zněnit hodnotu v

TimeValue("00:00:03")

Pokud se do toho nemůžeš dostat, tak sem ti tu hodnotu vložil jako konstantu do module1

' zde se nastaví jak dlouho má být zobrazen "Oznam"
Public Const Cas_zobrazeni = "00:00:03"

Podarilo sa mi do toho dostat a upravil som si to podla tvojich instrukcii. Ake je to jednoduche ked to clovek vie že?? To plati na teba . dik za rady velmi si mi pomohol.
Keby nieco tak sa este ozvem. Zatial VEĽKÉ dik dik