automatické datování Excel Vyřešeno

[akem]

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

Hlášení.xls

(19 KiB) Staženo 32 x

[Reklama]

[cmuch]

Ahoj,
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ěď

[akem]

Ahoj, díky za pomoc, ale asi dělám něco špatně, protože to vůbec nic nedělá...

Hlášení.xls

(42 KiB) Staženo 28 x

[cmuch]

Makro patří vložit do modulu příslušného listu.

[akem]

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ě...

Hlášení (1).xls

(45 KiB) Staženo 41 x

[cmuch]

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

Kód: Vybrat vše

ActiveSheet.Protect userinterfaceonly:=True

Jak jsem psal výše, musíš smazat ty vzorce v tom sl.B.

[akem]

Funguje díky moc!