Print side | Luk vindue

Dato i celle

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3948
Udskrevet den: 23.Nov.2024 kl. 04:05


Emne: Dato i celle
Besked fra: Torben57
Emne: Dato i celle
Posteringsdato: 01.Jul.2019 kl. 08:49
Hej.
jeg mangler lidt hjælp og forklaring.

Jeg har lavet dette til at indsætte den aktuelle dato i celle "C4"
(indsat i ThisWorkbook)

Private Sub Workbook_Open()

  Range("C4").Find(Empty, LookIn:=xlValues).Select

  ActiveCell = Format(Now(), "dd-mm-yy")

End Sub


Det virker fint men er arket gemt og åbnes en anden dag slettes den gamle dato før den aktuelle date sættes ind.

Hilsen Torben Jensen 


Svar:
Besked fra: Kurt Kubik
Posteringsdato: 04.Jul.2019 kl. 23:57
Hvad er dit sprøgsmål?



-------------

Hej fra Lars (Kurt Kubik)

Besked fra: icet
Posteringsdato: 06.Jul.2019 kl. 08:43
Hej prøv evt. denne kode


Private Sub Workbook_Open()

If IsEmpty(Range("C4").Value) Then
        Range("C4").Value = Format(Now(), "dd-mm-yy")
End If

End Sub


Print side | Luk vindue