selectievakjes in Excel kopieeren

[vos1650]

Hoi,

ik weet dat het kan maar het lukt me niet. in het bestand Map1 staat op blad 1 een sheet om de status van het installatie proces te volgen. misschien heb ik wel een beetje omslachtig gemaakt

op blad 2 zeg ik dat al het selectievakje waar is, is het een bepaalt aantal procent van het proces als het onwaar is is het nul.
dit tel ik onderaan op en zie zo hoever een bepaalde machine is.

maar dat wil in voor alle machines maar ik krijg de vakjes niet goed gekopieerd, nu moet ik dus heel veel kollommen data maken en heel veel selectievakjes toewijzen aan een cel.

is er iemand die een oplossing heeft? (of misschien wel iemand die even snel wil/kan maken)

alvast bedankt!!!!

gr Jacco

 

[edmoor]

Dat worden dan 817 CheckBoxes.
Denk je dat je daar een gebruiker blij mee maakt?

 

[VenA]

If Target.Value = "5" Then
            Target.Value = "0"
        Else
            Target.Value = "0"
        End If

Ziet er nogal logisch uit

 

[HSV]

Sub hsv()
Dim cl As Range
 With Sheets("blad1")
   .CheckBoxes.Delete
  For Each cl In .Range("b12:as31")
   If cl.Row <> 25 And cl.Column <> 34 Then
      With .CheckBoxes.Add(cl.Left + 15, cl.Top, 0, 0)
        .Characters.Text = ""
        .LinkedCell = cl.Address
      End With
   End If
  Next cl
 End With
End Sub

 

[vos1650]

Hi, bedankt ik ga het proberen..

@ #2 ja dat denk ik wel, ze ze mogen er 3 maanden over doen voor dat ze alles hebben gehad.

gr jacco