Avatar billede kgndksv Juniormester
14. september 2011 - 15:01 Der er 3 kommentarer og
1 løsning

skrive Auto-dato i en celle, når en celle i et bestemt område ændres

Hej Jeg har problemer med nedenstående kode. Jeg vil registrere datoen for den dag hvor jeg ændre indholdet af en celle i et område. datoen skal registreres en bestemt celle i samme række som det område hvor dataen ændres.

Mit problem er at koden først kører efter ændringen er lavet altså efter jeg har trykket enter eller på piltasten og derfor er target.address ikke det samme som tastefelt.

Kan man lave det på anden vis?

Private Sub Worksheet_Change(ByVal Target As Range)
   
If Selection.Row >= 0 And Selection.Row < 10 Then
    If Selection.Row >= 0 And Selection.Row < 10 Then
        tastefelt = Selection.Address
        TasteRk = Selection.Row
    End If
End If

If Target.Address = tastefelt Then
    ActiveSheet.Cells(TasteRk, 11) = Time
End If

End Sub
Avatar billede supertekst Ekspert
14. september 2011 - 15:15 #1
Hvis du tilføjer:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

og gemmer adressen på Target
Avatar billede store-morten Ekspert
14. september 2011 - 18:45 #2
Prøv:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:J")) Is Nothing Then
R = Target.Row
Cells(R, 11).Value = Now
    End If
End Sub
Avatar billede kgndksv Juniormester
15. september 2011 - 09:45 #3
Store-morten sender du et svar ;-)
Avatar billede store-morten Ekspert
15. september 2011 - 11:09 #4
Ja, det kommer her ;-)
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
Kurser inden for grundlæggende programmering

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