Ahoj,
potřebuji nějak vymyslet nastavení datumu a času, tak aby když zapíšu do buňky B4 cokoliv, tak v buňce C4 se uloží aktuální datum a čas, ale pak už se nebude nikdy měnit... to znamená aby se po uložení a opětovném otevření znova nepřepisoval...
Něco jsem zkoušel, ale to nefunguje tak jak má a nevím proč, ale nejde tam čas...
Excel 2003
automatické datování Excel Vyřešeno
automatické datování Excel
Naposledy upravil(a) akem dne 01 dub 2014 11:19, celkem upraveno 1 x.
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: automatické doplnění datumu a času a pak už stálé
Ahoj,
tak tady je jedno makro. Prvně smaž ty vzorce a v makru nastav oblast se jmény.
Aby byl v buňkách vidět i čas tak musíš změnit formát buněk. Buď v datum a čas nebo ve vlastním si nastavit vlastní formát.
Doufám, že je to rychlá odpověď
tak tady je jedno makro. Prvně smaž ty vzorce a v makru nastav oblast se jmény.
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RngOblast As Range
'nastaveni oblasti
Set RngOblast = Range("B4:B30")
'je ymenena bunka v oblasti
If Not Intersect(Target, RngOblast) Is Nothing Then
'pokud v bunce nic neni tak konec
If Not Target <> "" Then Exit Sub
'je jiz zadan datum - ano/ne
If Target.Offset(0, 1) <> "" Then
Exit Sub
Else
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End If
End If
End Sub
Aby byl v buňkách vidět i čas tak musíš změnit formát buněk. Buď v datum a čas nebo ve vlastním si nastavit vlastní formát.
Doufám, že je to rychlá odpověď
Re: automatické doplnění datumu a času a pak už stálé
Ahoj, díky za pomoc, ale asi dělám něco špatně, protože to vůbec nic nedělá...
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: automatické doplnění datumu a času a pak už stálé
Makro patří vložit do modulu příslušného listu.
Re: automatické doplnění datumu a času a pak už stálé
Super díky moc!! Dá se nějak ta buňka zamknout, aby to pak nešlo přepsat?
--- Doplnění předchozího příspěvku (31 Bře 2014 22:18) ---
no, asi sem zase někde udělal chybu.. od 3. řádku to pak mění všechny stejně...
--- Doplnění předchozího příspěvku (31 Bře 2014 22:18) ---
no, asi sem zase někde udělal chybu.. od 3. řádku to pak mění všechny stejně...
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: automatické doplnění datumu a času a pak už stálé Vyřešeno
Zamknutí proti nechtěnému přepisu můžeš udělat tak že ve formátu buněk na kartě Zámek si odškrtni zamčeno u buněk, které chceš editovat a pak list zamkni.
Pak do makra na začátek přidej
Jak jsem psal výše, musíš smazat ty vzorce v tom sl.B.
Pak do makra na začátek přidej
Kód: Vybrat vše
ActiveSheet.Protect userinterfaceonly:=True
Jak jsem psal výše, musíš smazat ty vzorce v tom sl.B.
Re: automatické datování Excel
Funguje díky moc!
Říkám co si myslím a myslím si co chci...
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
ASUS ROG G751JT-T7009H / i7-4710HQ 2.5Ghz / 8GB / 256 GB SSD + 1TB HDD / GeForce GTX 970M
Apple MacBook Air M1
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Automatické přehrávání videa Příloha(y)
od fafejt » 09 úno 2024 13:59 » v Internet a internetové prohlížeče - 4
- 2311
-
od fafejt
Zobrazit poslední příspěvek
09 úno 2024 17:30
-
-
- 4
- 5837
-
od ArtisPier
Zobrazit poslední příspěvek
26 zář 2023 12:29
-
- 16
- 8422
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 3
- 1692
-
od mmmartin
Zobrazit poslední příspěvek
28 kvě 2024 23:45
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 4736
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů