Los bericht bekijken
Oud 18 July 2017, 22:08   #1
anoniem34505
Guest
 
Berichten: n/a
Standaard nieuwe rij is nieuwe checkbox

Hallo allemaal,

Ik ben bezig om een uitzet lijst te maken. ik wil dit makkelijk maken door in excel direct een checkbox toe te laten voegen met VBA zodat ik bij het printen meteen een kruisje kan zetten op de goede plek.

ik wil ook als ik iets compleet te hebben deze aan kruisen en dan hem in 1 keer groen te maken met een voorwaardelijke opmaak.

toch kom ik er niet uit met de VBA code
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ToRow As Long
    Dim LastRow As Long
    Dim MyLeft As Double
    Dim MyTop As Double
    Dim MyHeight As Double
    Dim MyWidth As Double
    '--------------------------
    LastRow = Range("C65536").End(xlUp).Row
    For ToRow = 2 To LastRow
        If Not IsEmpty(Cells(ToRow, "C")) Then
            '-
            MyLeft = Cells(ToRow, "A").Left
            MyTop = Cells(ToRow, "A").Top
            MyHeight = Cells(ToRow, "A").Height
            MyWidth = MyHeight = Cells(ToRow, "C").Width
            '-
            ActiveSheet.CheckBoxes.add(MyLeft, MyTop, MyWidth, MyHeight).Select
             With Selection
                .Caption = ""
                .Value = xlOff
                .LinkedCell = "C" & ToRow
                .Display3DShading = treu
            End With
        End If
    Next
End Sub
Voor de goede orde ik wil graag in rij A een compleet checkbox in rij B (verborgen) waar/onwaar en in C de spullen.

ik wil pas een nieuwe checkbox als cell C veranderd maar wat ik ook probeer het lukt gewoon niet. Wat doe ik nu toch fout?
  Met citaat antwoorden