Beleženje ure spremembe celice

Pomoč pri delu z MS Excelom
Odgovori
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Beleženje ure spremembe celice

Odgovor Napisal/-a jumanjy »

Pozdravljeni!
V stolpcu A bi si nekaj zapisoval hkrati pa bi hotel, da se mi zraven v stolpec B zabeleži ura spremembe celice.
Če ima kdo kakšno idejo kako bi se tega lotil bi bil zelo vesel.

lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Beleženje ure spremembe celice

Odgovor Napisal/-a admin »

Pozdravljeni,

Tega brez makra ne morete rešiti, z makrom pa je dokaj trivialno. Ob spremembi vrednosti v celici A1, zapiši čas v celico B1:

Koda: Izberi vse

Private Sub Worksheet_Change(ByVal Target As Range)
 If (Not Intersect(Target, Range("A1")) Is Nothing) Then
  Range("B1").Value = Now
 End If
End Sub
lp,
Matjaž Prtenjak
Administrator
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: Beleženje ure spremembe celice

Odgovor Napisal/-a jumanjy »

Da to sem želel samo še kako bi to razširil na več vrstic naprimer območje A1:A100?
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Beleženje ure spremembe celice

Odgovor Napisal/-a admin »

Takole:

Koda: Izberi vse

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  
  Set rng = Intersect(Target, Range("A1:A100"))
  If (Not rng Is Nothing) Then
    rng.Offset(0, 1) = Now
  End If
End Sub
lp,
Matjaž Prtenjak
Administrator
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: Beleženje ure spremembe celice

Odgovor Napisal/-a jumanjy »

Tako zdaj pa deluje kot sem želel.
Dodal sem še vrstico v kodo, da mi spremeni obliko B:B stolpca v h:mm:ss kot potrebujem jaz.

Prav lepa hvala in lep dan še naprej
Odgovori