Avatar billede Super Mester
07. september 2021 - 09:37

Activex Checkbox og dato stempel

Mit excel sheet indeholder 150 rækker med hver sin checkbox. Når jeg klikker i checkboxen ønsker jeg at der i samme række, menbi en anden kollonne automatisk bliver entered en blivende dags dato.

Jeg har prøvet med nedensteående VBA kode. Den virker på sin vis hvis jeg i stedet for If Cell.Value <> "" Then bruger If Cell.Value = True Then

MEN, den virker kun når jeg indtaster True som er relateret til checkboksen (skriver eller overskriver manuelt), ikke med hjælp fra macroen når jeg klikker i checkboxen.

Private Sub Worksheet_Change(ByVal Target As Range)
' Auto Date
Dim Cell As Range
For Each Cell In Target
    If Cell.Column = Range("A:A").Column Then
        If Cell.Value <> "" Then
            Cells(Cell.Row, "B").Value = Int(Now)
        Else
            Cells(Cell.Row, "B").Value = ""
        End If
    End If
Next Cell
End Sub
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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