Excel - zaznamenani casu zmeny hodnoty bunky

[bobulin]

Dobry den,
mel bych prosim nasledujici dotaz.
Mam bunku (napr. A1) kde manualne menim hodnotu.
Potreboval bych do jine bunky vytvorit vzorec, ktery zaznamena datum a cas posledni zmeny bunky A1.

Vim, ze neco takoveho se necha vytvorit pres sdileni sesitu a sledovani zmen, ale to mi nevyhovuje.

Dekuji moc za radu.

S pozravem Pavel K.

[navstevnik]

Pokud ma byt zaznam o zmene v bunce (napr. A1) stabilni, tj. nemenit se pri kazdem prepoctu (byt i rucnim) listu, pak jedine mozne reseni je pouziti udalosrni procedury spojene se zmenou obsahu bunky.
Takze tvuj pozadavek na reseni pouze pomoci funkce listu je nerealny.

[bobulin]

Děkuji za odpověď.
Já ale potřebuji, aby se datum měnil při každém přepočtu buňky A1.

Děkuji.

[navstevnik]

Je jasne, ze pri zmene hodnoty v A1, ale snad ne pri zmene hodnoty kterekoliv jine bunky, takze pokud pouze pri zmene hodnoty v A1, pak pouze a jenom reseni s udalostni procedurou.

[mike007]

Přesně jak říká návštěvník. Toto se nedá řešit fcí listu (vzorcem), ale jedině událostní procedurou.
Klikni pravým tlačítkem myši na záložku ve které chceš, aby to fungovalo a z kontextového menu vyber možnost Zobrazit kod. Do bílého okna napravo nakopíruj tuto proceduru:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells(1, 3) = Now
End If
End Sub

Pokud se změní hodnota v buňce A1, do buňky C1 se automaticky vepíše datum a čas změny.

[Renoslav]

Dobrý den,
řeším velmi podobnou situaci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells(2, 7) = Now
End If
End Sub


Ale chtěl bych zaznamenat do jedné buňky změnu ve sloupci.
Zkoušel jsem:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
For x = 1 To 500
If Target.Address = "$A$x" Then
Cells(2, 7) = Now
End If
Next x
End Sub

Ale nefunguje to.
Můžete mi pls někdo poradit ?
Děkuji

Michal P.

[mike007]

Nevím, zda jsem to pochopil dobře. Snad ano ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(2, 7) = Now
End If
End Sub

[Renoslav]

Pochpil jste to naprosto správně a funguje to.
Mockrát dík.