Gem tid ved hvert liste valg

Hvis din kliste er en datavalideringsliste, kan du bruge følgende metode:

På kodemodulet til det ark, hnvor du har listen (i eksemplet Ark1) lægger du denne kode:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = Target.Value & " " & Now()
    End If
End Sub

Koden forudsætter at datavalideringslisten findes i Ark1!A1, men det kan du rette i anden linje til den celle, du faktisk har den i.

Når du vælger noget nyt i listen registreres valget, samt dato og tidspunkt for ændringen i kolonne A i ark2. Sørg for, at der står en overskrift i A1 i dette ark, inden du begynder :-)

Din liste kommer så til at se således ud:

Kontakt 03-12-2009 18:49:54
Møde 03-12-2009 18:50:18
Salg 03-12-2009 18:50:20
Kontakt 03-12-2009 20:04:21
Møde 03-12-2009 20:04:39
Salg 03-12-2009 20:04:40
Møde 03-12-2009 20:04:42

Jeg skulle måske lige nævne at hvis din liste er et Combobox kontrolelement, skal koden stadig ligge i arkets kodemodul, nmen se således ud:

Private Sub ComboBox1_Change()
        Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = ComboBox1.Value & " " & Now()
End Sub

Hvor du selvfølgelig rettet ComboBox1 til det, som din komboboks hedder.

Det ser godt ud. Men jeg har fået endnu en udfordring. Jeg skal bruge tider fra flere lister. Valideringslisterne liggende i kollone I2 og igen i I3, I4 osv.

Det var min hensigt at tidsdataerne blev overført til et ark "time"

Her skulle det så gerne så

A                B                C             
Kontakt          Møde              Salg 
01-12-09 12:35  03-12-09 14:35    05-12-09 09:45
04-12-09 14:35  05-12-09 14:35    08-12-09 09:40
05-12-09 12:35  06-12-09 11:35    08-12-09 09:45

Håber at det er nemt at ændre. På forhånd tak

Det kan godt lade sig gøre, men det er ikke en simpel ændring, så jeg vender tilbage senere.

Det tog så alligevel ikke så lang tid:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I2:I30")) Is Nothing Then
        Select Case Target.Value
            Case Is = "Kontakt"
                Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = Now()
            Case Is = "Møde"
                Sheets(2).Range("B65536").End(xlUp).Offset(1, 0).Value = Now()
            Case Is = "Salg"
                Sheets(2).Range("C65536").End(xlUp).Offset(1, 0).Value = Now()
            Case Else
                Exit Sub
            End Select
        End If
End Sub

Ret området i I-kolonnen til det rigtige, og skriv ovewrskrifterne Kontakt, Møde g Salg i kolonnen A, B og C i Ark2.

Det virker fint. Der er dog et ønske. Den skulle gerne gemme det valgte tidspunkt i sammen række om på listearket.
dvs. hvis jeg foretager et valg i række 10 skal den gemme tiden i sammen række i "Time" arket.

Det ville være nemmere, hvis du kom med alle ønsker på én gang :-).

Jeg ser på det og vender tilbage.

Prøv med

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I2:I30")) Is Nothing Then
    rk = Target.Row
        Select Case Target.Value
            Case Is = "Kontakt"
                Sheets(2).Range("A" & rk).Value = Now()
            Case Is = "Møde"
                Sheets(2).Range("B" & rk).Value = Now()
            Case Is = "Salg"
                Sheets(2).Range("C" & rk).Value = Now()
            Case Else
                Exit Sub
            End Select
        End If
End Sub

Vil du oprette et svar så jeg kan give dig dine velfortjenete points. Det virkede perfekt.

Et svar :-)