Computer Idee Forum

Computer Idee Forum (http://forum.computeridee.nl/index.php)
-   Software Overige (http://forum.computeridee.nl/forumdisplay.php?f=119)
-   -   nieuwe rij is nieuwe checkbox (http://forum.computeridee.nl/showthread.php?t=81615)

anoniem34505 18 July 2017 21:08

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?

anoniem13291 19 July 2017 16:43

Crosspost:
http://www.helpmij.nl/forum/showthre...ieuwe-checkbox


Alle tijden zijn GMT +1. Het is nu 23:20.

Powered by vBulletin Version 3.8.6
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.