GoldenLine
Zaloguj się

konto usunięte

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Witam,

Potrzebuję pomocy. Mianowicie, mam plik excel (to-do list) w którym to codziennie dopisuję lub zmieniam pewne komórki. Chciałbym aby w komórce "stan z dnia: tutaj data" została zapisana data z dnia w którym to zrobiłem zapisałem plik excela.
Czy istnieje jakieś proste rozwiązanie?
Z góry dziękuję za pomoc.
Link do wypowiedziLink

konto usunięte

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Witam

Proszę spróbować tak

Private Sub Worksheet_Deactivate()

Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub

Powinno zapisywać aktualną datę w komórce A3 po zamknięciu arkusza.
Oczywiście obiekt Range zgodnie z tym gdzie ma być wprowadzana data

pozdrawiam

Rafał Wiesbach
Link do wypowiedziLink
Artur D.

Artur D. Solution Architect,
Atos IT Services Sp.
z o.o.

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Kopij - wklej jest kompletnie zbędne w kodzie

Private Sub Worksheet_Deactivate()
'komórka w której wklejamy datę
Range("A1").Value = Now()

End Sub
Link do wypowiedziLink

konto usunięte

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Jasne

Dzięki
Link do wypowiedziLink
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Artur D.:
'komórka w której WSTAWIAMY datę
:)
Nie wiem czy zdarzenie dezaktywacji arkusza będzie do końca zgodne z oczekiwaniem.
Może lepiej zmiana w jakimś obszarze?
Link do wypowiedziLink

konto usunięte

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Artur D.:
Kopij - wklej jest kompletnie zbędne w kodzie

Private Sub Worksheet_Deactivate()
'komórka w której wklejamy datę
Range("A1").Value = Now()

End Sub

Procedurę napisałem w związku z otwieraniem arkusza - stąd to kopiowanie (była jeszcze druga która zapisywała arkusz w formacie PDF)
Odnośnie uwagi Pana Sławomira - wydaje mi się że powinno być ok - w to do'sach najczęściej zapisuje się określoną listę zadań z określona datą - w ten sposób zrozumiałem problem - czyli obsługa zdarzenia dla całego arkusza - zapisuję zadanie wychodzę z arkusza - mam datę z danego dnia.

Pozdrawiam

Rafał Wiesbach
Link do wypowiedziLink
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Rafał W.:
Artur D.:
czyli obsługa zdarzenia dla całego arkusza - zapisuję zadanie wychodzę z arkusza - mam datę z danego dnia.
Zrobię zmiany, zapiszę plik bez przechodzenie do innego arkusz i nie mam nic, a zmiany były.
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: Modyfikacja pliku excel i zapis daty modyfikacji



Private Sub Worksheet_Change(ByVal Target As Range)

Dim zakres_zmian As Range

Set zakres_zmian = Range("A5:C4") ' zakres w którym chcemy sprawdzać ew. zmianę

    If Not Intersect(Target, zakres_zmian) Is Nothing Then Sheets("arkusz").Cells(1, 1) = Now 

End Sub
Link do wypowiedziLink

konto usunięte

Temat: Modyfikacja pliku excel i zapis daty modyfikacji

Ma Pan rację
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj