MS Excel

čest kucí prosím o pomoc jukněte na přílohu. Když kliknu do buňky tak chci aby se mi zobrazil kalendář kde si vyberu datum a to aby se mi zaneslo do buňky ve formátu "dd/mm" to znamená že datum 1.1.2013 se zapíše jako "01/01", mi se zdá že vše fachčí ok, ale výsledek se mi přehazuje měsíc s dnem, ale dle krokování bych měl mít vše ok tak už netuším kde se tesař utnul díky za každou radu

Uzamčeno - nelze přidávat nové příspěvky.

AL(23.4.2013 1:37)#013064

No, napísať, že 1.1.2013 chceš ako "01/01" je fakt super skvelé jednoznačné vyjadrenie

To skoro na konciTarget.Value(datum) = datchce byť čo, prosím?

Napíš miesto tohoTarget.Value = dat, malo by to fungovať, pokiaľ som pochopil správne

Každopádne, potom máš v stĺpci A iba text, nie dátum, to samé platí o bunke O1. Pre získanie skutočného dátumu, t.j. numerickej hodnoty, musíš v kóde formulára zmeniť udalosť Click naPrivate Sub Calendar1_Click()
'Dim datum
datum = UserForm1.Calendar1.Value
MsgBox (datum)
Range("O1").Value = CDate(datum) 'tu je ta zmena, o ktorej hovorim
Unload Me
End Subcitovat

lopi007(23.4.2013 9:18)#013065

AL - tak jsem to zkusil, ale bohužel mi to nefunguje.
Problém je že netuším jak si deklarovat globální proměnnou, která bude dostupná odevšad. Proto to ukládám v této metodě do buňky "O1", ta je jen pomocná
Private Sub Calendar1_Click()
datum = UserForm1.Calendar1.Value
MsgBox (datum)
Range("O1").Value = CDate(datum)
Unload Me
End Sub
a jen tak mezi řečí v té buňce "O1", tak tam se mi datum zobrazuje správně, ale ne už tam kde chci v buňkách "A4:A41" tam mi to přehazuje datum a vůbec netuším proč.

tu proměnnou bych potřeboval přenést sem do této metody,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
....
...
End Sub

prostě po kliku ve formu na datum potřebuji aby se mi v buňce "A4:A41" zobrazil datum v mnou požadovaném formátu tzn.: "dd/mm" a toto mi nějak nejde.

Už tuším proč se mi v hlavě ozývá hlas, který křičí že má hlad. To bude můj mozkožrout, který umírá hlady

citovat

AL(23.4.2013 10:13)#013067

Mno, pokiaľ som Tvoje makro spúšťal u seba, tak síce v O1 bolo niečo, čo sa ako dátum tvárilo, v skutočnosti to ale bol text. V stĺpci A, než som konvertoval reťazec v O1 na dátum, tak mi to vyhadzovalo chybu, následne sa mi v stĺpci A zobrazujú textové reťazce v tvare "DD/MM" ale stále je to text. Takže, netuším, prečo to u teba funguje inak, tipol by som na iné nastavenie v národnom prostredí.citovat

lopi007(23.4.2013 13:10)#013069

hm tak jsem to vyřešil, přehodil jsem měsíc s dnem a ono to fachčí

tak to můžeme lockcitovat

Téma: Pomoc s VBA

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Jak odstraním duplicitní údaje

Jak odstraním duplicitní údaje

Vyhledej

Vyhledej