Aut. datum i excel-cell?

2007-10-13, 13:05 #1

Medlem

Reg: Dec 2004

Inlägg: 7 447

Kan man få en cell att fylla i dagens datum automatiskt om man fyller i ett värde i en annan given cell?

Tack på förhand!

Citera

2007-10-13, 15:15 #2

Medlem

Reg: Sep 2007

Inlägg: 6 168

Går väl alltid lösa med ett litet makro....

Kod:

' Körs när något ändras i worksheet
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' Om värdet i kolumn A (= 1) ändrades
    If Target.Column = 1 Then
        'Kolla om cellen i kolumn B på samma rad är tom
        If Range("B" & Target.Row).Value = "" Then
            ' If so, sätt till dagens datum
            Range("B" & Target.Row).Value = Date
        End If
    End If
End Sub

Citera

2007-10-15, 11:30 #3

Medlem

Reg: Dec 2004

Inlägg: 7 447

Citat:

Ursprungligen postat av gadzoox

Går väl alltid lösa med ett litet makro....

Kod:

' Körs när något ändras i worksheet
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' Om värdet i kolumn A (= 1) ändrades
    If Target.Column = 1 Then
        'Kolla om cellen i kolumn B på samma rad är tom
        If Range("B" & Target.Row).Value = "" Then
            ' If so, sätt till dagens datum
            Range("B" & Target.Row).Value = Date
        End If
    End If
End Sub

Tack, jag ska försöka att implementera detta

Citera

Aut. datum i excel-cell?

Skapa ett konto eller logga in för att kommentera

Skapa ett konto

Logga in