MS Excel

Potřebuji datum a čas zápisu do buňky.
Tato funkce je ale dynamická a neustále se mi čas mění.

=KDYŽ(K5=1; NYNÍ(); "")

Děkuji

Zaslat odpověď >

Lugr(11.10.2025 15:01)#057552

Myslím, že tohle vzorcem nevyřešíš. Musel bys přes VBA.

Zkus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K5")) Is Nothing Then
Range("L5").Value = Now()
Range("L5").NumberFormat = "dd.mm.yyyy hh:mm:ss"
End If
End Subcitovat

junis(11.10.2025 21:03)#057556

Pak tedy Poprosím, pokud bude ve sloupci K "1"(jednička jako hodnota) do sloupce L se zapíše do příslušného řádku datum a čas.
To by mělo fungovat od čtvrtého řádku níže (záhlaví).
Pokud jedničku smažu, odstraní se i datum a čas ze sloupce L.
Potřeboval bych zda by bylo možné aby makro fungovalo jak na jedničky vepsané klávesnicí, tak i na rozkopírování a vložení.
Je to možné. Moc děkujicitovat

Lugr(11.10.2025 22:41)#057558

Private Sub Worksheet_Change(ByVal Target As Range)

Const SledovanyRozsah As String = "K4:K1000"
Dim IntersectRange As Range
Set IntersectRange = Intersect(Target, Me.Range(SledovanyRozsah))
If Not IntersectRange Is Nothing Then
Application.EnableEvents = False
Dim c As Range
For Each c In IntersectRange
Dim ZaznamovaBunka As Range
Set ZaznamovaBunka = c.Offset(0, 1)
If c.Value = 1 Then

If ZaznamovaBunka.Value = "" Then
ZaznamovaBunka.Value = Now()
ZaznamovaBunka.NumberFormat = "dd.mm.yyyy hh:mm:ss"
End If
Else
ZaznamovaBunka.ClearContents
End If
Next c
Application.EnableEvents = True
End If

End Subcitovat

junis(12.10.2025 9:33)#057559

Lugr moc a moc děkuji, funguje přesně podle zadání.
Skvělécitovat

Lugr(12.10.2025 11:48)#057560

Není za co. Máš to od K4 do K1000. Uprav si to podle potřeby.citovat

Téma: Změna vzorce

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje