Avatar billede ceacer Praktikant
20. februar 2008 - 01:16 Der er 3 kommentarer

hurtig makro til datoskift

Jeg ønsker en makro der kan lægge 7 dage til en dato i F9 og G9. Hvis datoerne fx er 14-01-2008 i F9 og 18-01-2008 i G9, så skal man ved at trykke på en knap få 21-01-2008 og 25-01-2008 i de to celler.
Det burde være lige til, men kan ikke finde ud af VBA.
Der gives ekstra point da den haster lidt. :)
Avatar billede mrjh Novice
20. februar 2008 - 08:00 #1
Marker celle med dato og kør denne


Sub test()

With Selection
If IsDate(.Value) Then
.Value = .Value + 7
End If
End With

End Sub
Avatar billede mrjh Novice
20. februar 2008 - 08:27 #2
Er vist ikke helt vågen endnu. Vi prøver lige igen

Sub test()

For Each Cell In Range("F9:G9")
If IsDate(Cell.Value) Then
Cell.Value = Cell.Value + 7
End If
Next Cell

End Sub
Avatar billede ceacer Praktikant
26. februar 2008 - 17:44 #3
Den virker rigtig godt. smider du et svar?
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