Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70214 Skopiuj do schowka Automatyczne wstawianie daty i godziny
Autor Wiadomość
pablito2585 
Świeżak


Wersja: Win Office 2016
Posty: 3
Wysłany: 22-02-2021, 16:40   Automatyczne wstawianie daty i godziny

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ę.
Ostatnio zmieniony przez pablito2585 22-02-2021, 17:04, w całości zmieniany 2 razy  
ID posta: 400850 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4158
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?
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 400851 Skopiuj do schowka
 
 
pablito2585 
Świeżak


Wersja: Win Office 2016
Posty: 3
Wysłany: 22-02-2021, 17:03   

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łą.... :/
ID posta: 400855 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4158
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

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 400858 Skopiuj do schowka
 
 
pablito2585 
Świeżak


Wersja: Win Office 2016
Posty: 3
Wysłany: 22-02-2021, 18:44   

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

Pozdrawiam!
ID posta: 400859 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe