copy checkbox string and paste it in excel sheet

[MOHAMMEDSALMAN]

Hi Everyone,

I have checkboxes on vba form and a Sheet as "Sheet3". What I want is, when the user checks any of the checkbox on form I want to copy that string and paste it in column A of Sheet3 and column B should be marked as "X"
I am using the below code but it fails

For Each ctl In frmEqpDetails.MultiPage1.Pages(0).Controls
    If ctl.Value = True Then
    Sheets("Testing_Sheet").Find(test_info(eqp_count - 1).vis_tests(looper), LookIn:=xlValues) = "X"
    End If
    looper = looper + 1
Next

Please advise.

[Debaser]

You have not provided enough information - how does this code fail?

[NoSparks]

Check boxes are boolean not string type.
Can you elaborate?

[MOHAMMEDSALMAN]

I have a sheet as "Sheet1" which have test_names in column A.

Equipment Finishing (painting, scratches, damage, etc)
Equipment Alignment (doors, removable panels/covers, locks, section-to section, etc)
Equipment / Device Labels/Nameplates and Component Layout
Torque Marking
Component / Device Inspection (damage to parts, missing screws, etc)

and so on ....

I displaced this test in a form of checkboxes in userform.
There is a copy of this same sheet in the same workbook with sheetname "Testing_Sheet".

Now what I want is, when the user checks any of the checkboxes in userform, an "X" should be placed in "Testing_Sheet" in column B.

Please find the attachment for better understanding and please advice me.

[NoSparks]

Try this using F8 to step through the code and see where you would be putting the "X"

Sheets("Testing_Sheet").Cells.Find(test_info(eqp_count - 1).vis_tests(looper), LookIn:=xlValues).Select

think you'll need to be including an Offset to position the "X"

[MOHAMMEDSALMAN]

Hi,


Thanks a lot. Its working. The only minor problem is that I want to put "X" in column B but its getting placed in column A.

How can I define column B in the following code. The following code worked properly.

Sheets("Testing_Sheet").Cells.Find(test_info(eqp_count - 1).vis_tests(looper), LookIn:=xlValues) = "X"

Thanks

[NoSparks]

from my previous post
you'll need to be including an Offset to position the "X"

Obviously you prefer fish to fishing.

[MOHAMMEDSALMAN]

Thanks,

It worked.

Sheets("Testing_Sheet").Cells.Find(test_info(eqp_count - 1).vis_tests(looper), LookIn:=xlValues).Offset(, 1) = "X"