PC-HELP.CZ

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.

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.

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.

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.

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:



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

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.

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

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