Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Automatyczne wstawianie daty i godziny

pablito2585 · Świeżak Wersja: Win Office 2016 Posty: 3

Witam,
Proszę o podpowiedź jak zrobić, by w komórce obok automatycznie wstawiała się data i godzina, jeśli w sąsiedniej komórce coś wpiszemy.
Czyli np. wpisujemy coś w A1 a w B1 wskoczy data i godzina. Ważne by data ta nie została zmieniona następnego dnia, gdy włączę Excel.

Proszę o radę.

umiejead · Wysłany: 22-02-2021, 16:48

Witamy na Forum.

Kod:

Ważne by data ta nie została zmieniona następnego dni, gdy włączę Excel

Chyba tylko VBA.

PS. Na pewno w B2 a nie w B1?
.

pablito2585 · Świeżak Wersja: Win Office 2016 Posty: 3

Tak tak, miałem na myśli oczywiście B1, już poprawiam. Nie mam pojęcia jak to zrobić. Myślałem, że uda się to jakąś magiczną formułą.... :/

umiejead · Wysłany: 22-02-2021, 18:07

Makro zdarzeniowe (reaguje na zmianę wartości kom. w kol. A - w obie strony: przy usunięciu wartości usuwa datę):

Kod:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&

i = Target.Row

On Error GoTo laEnd

Application.EnableEvents = False

If Not Intersect(Target, Range("A:A")) Is Nothing Then

If Cells(i, 1) <> "" Then
Cells(i, 2).Value = Now()
Else
Cells(i, 2).Value = ""
End If

End If

Application.EnableEvents = True

Exit Sub

laEnd:
Application.EnableEvents = True

End Sub

Dopisz_date.xlsm

Pobierz Plik ściągnięto 11 raz(y) 13.67 KB

pablito2585 · Świeżak Wersja: Win Office 2016 Posty: 3

Serdeczne podziękowania! Wszystko pięknie działa

Pozdrawiam!