Looping Checkboxes on Worksheet

R

Robbyn

Yet another annoying question..(thanks again Norman for helping me get started)

I have a series of checkboxes (from control toolbox) on a worksheet and need
to pass the values to another worksheet("Data"). The problem I'm having with
the following code is if the value of the checkbox is false the corresponding
cell in "Data" needs to be blank; instead, if there is a total of 6
checkboxes checked , the first 6 cells in "Data" are marked as true.

n = 43
For Each OLEObj In sh.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
If OLEObj.Object.Value Then
n = n + 1
rng.Offset(0, n).Value = Chr(82)
End If
End If
Next OLEObj
 
T

Tom Ogilvy

n = 43
For Each OLEObj In sh.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
n = n + 1
If OLEObj.Object.Value Then
rng.Offset(0, n).Value = Chr(82)
End If
End If
Next OLEObj
 
R

Robbyn

Grrrr..thanks Tom. I should have seen that.

Tom Ogilvy said:
n = 43
For Each OLEObj In sh.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
n = n + 1
If OLEObj.Object.Value Then
rng.Offset(0, n).Value = Chr(82)
End If
End If
Next OLEObj
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top