Avatar billede svla Mester
10. november 2009 - 18:33 Der er 5 kommentarer og
1 løsning

VBA kode ved opdatering af excelark

Hej derude!

Er der nogen som lige kan hjælpe, med en VBA-kode som aktiveres når excelarket lukkes og som indsætter dags dato i f.eks. celle B2, KUN hvis der er sket rettelser et eller andet sted på arket.

Håber nogen lige har den rette kode ???
Avatar billede excelent Ekspert
10. november 2009 - 20:06 #1
Indsæt i ThisWorkbook modulet

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ActiveWorkbook.Saved Then
Sheets("Ark1").Range("B2") = Date
ThisWorkbook.Save
End If
End Sub
Avatar billede svla Mester
10. november 2009 - 20:29 #2
Tak - tak

Det var lige det jeg manglede, men man kode så datoen bliver indsat før f.eks udskrivning, - altså koden aktiveres når der "klikkes på udskriv" ??
Avatar billede excelent Ekspert
10. november 2009 - 20:33 #3
jada - indsæt koden samme sted

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Ark1").Range("B2") = Date
End Sub
Avatar billede svla Mester
10. november 2009 - 20:34 #4
Læg forøvrigt et svar mit første spørgsmål er jo afklaret helt perfekt, og tak.
Avatar billede excelent Ekspert
10. november 2009 - 20:36 #5
ok velbekom
Avatar billede svla Mester
10. november 2009 - 20:40 #6
Jeg takker igen for hjælpen, det virkede også perfekt.

- Dejlig side, her kan man altid hente lidt hjælp.

Så mangler der kun lige dit svar !

Tak - tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester