Podmienka v excel

[jujul65]

Dobrý deň,
neviem prísť na to, ako v excel dosiahnuť toho, aby pri napísaní čísla v jednej bunke mi hneď vo vedľajšej bunke automaticky napísalo čas, kedy bola vedľajšia bunka pozmenená, inými slovami, napríklad ak napíšem do bunky 13, tak vo vedľajšej bunke mi automaticky zobrazí časový údaj, kedy som to číslo 13 napísal, prípade ideálne by bola nastaviť ešte aj formát času, napríklad hh:mm a ideálne aj ten čas mínus 1 minúta.
A úplne najideálnejšie by bolo, ak by tento automaticky vytvorený časový údaj vo vedľajšie bunka sa pri ďalšej zmene obsahu vedľajšej bunky nemenil - t. j. napríklad ja napíšem číslo 13 v bunke B1 a v bunke A1 mi napíše automaticky časový údaj v mnou zadanom formáte (ideálne) mínus mnou zadanou hodnotou, napr. 1 minúta (ideálne) a pri ďalšej zmene hodnoty v bunke, kde som ako v tomto príklade uviedol číslo 13 by sa čas už nemenil, ale zostal by taký, aký bol pri prvotnom vpísaní čísla pôvodného - v tomto prípade príklade 13 (!) - ideálne.
Samozrejme ak by v bunke nebolo nič, ani vedľa v bunke by sa nezobrazil žiaden časový údaj...
Vôbec neviem akým spôsobom toho možno docieliť, mňa napadlo cez podmienku vzorca if, no stále neviem, čo mám napísať, ak je v bunke niečo, aby mi vedľa napísalo časový údaj, kedy bolo do bunky prvý krát niečo napísané (hore uvedený problém)
=if(ISBLANK(B1);;"")

Za každý nápad budem vďačný.

[MePExG]

Na zaznamenanie zmeny bunky sa dá použiť cyklický vzorec C1

=IF(ISBLANK(B1);C1;NOW())

, ale neviem, ako zabezpečiť, aby sa pri zmene v bunke B1 neprepísal nový čas.

[jujul65]

dobre, aj to by mi stačilo, ale (!!!) je tu zásadný praktický problém a to, že po zatvorení a znovuotvorení dokumentu sa čas zasa aktualizuje! A navyše ďalší problém, ak skopírujem vzorec v stĺpci a v niektorej inej vedľajšej bunke v stĺpci napíšem text, zmenia sa vedľa všetky časové údaje v stĺpci!

Možno by pomohol takýto kód, ale neviem ako sa dá uplatniť na viacero buniek v stĺpci!

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

[Grimm]

Kód: Vybrat vše

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = "2" Then
       With Cells(Target.Row, Target.Column + 1)
            .Value = Format(Now, "d.m.yyyy hh:mm:ss")
            .EntireColumn.AutoFit
       End With
    End If
End Sub

[jujul65]

Funguje to ako má a formát dátum som si ešte v kóde upravil... Mnohokrát ďakujem.

[elninoslov]

Iteračný výpočet