Populate checkbox based on cell value

[p9j123]

I have a vba macro that will populate values of checkbox to a cell, the macro saves in C1 anything that were checked... so if the City has check box, C1 will become City, if there are multiple check box selected let say, City, Province and Town, C1 will become City, Province, Town. This works perfectly fine.

[ ] City
[ ] Province
[ ] Town
[ ] District

Now, I have to creat a edit form, where when I clicked edit all of the content in rows will be populated on the designated text box.

I need help on doing the same for check box.

So if C1 has City, then City Checkbox should be cheked, if C1 has City, Province and Town then the corresponding 3 checkbox should be checked as well.

 

[DanteAmor]

Try this

Private Sub EditForm_Click()
  If InStr(1, Range("C1"), "City", vbTextCompare) > 0 Then CheckBox1.Value = True
  If InStr(1, Range("C1"), "Municipal", vbTextCompare) > 0 Then CheckBox2.Value = True
  If InStr(1, Range("C1"), "Province", vbTextCompare) > 0 Then CheckBox3.Value = True
  If InStr(1, Range("C1"), "District", vbTextCompare) > 0 Then CheckBox4.Value = True
End Sub

 

[p9j123]

Hi @DanteAmor - this works perfectly, thank you so much

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.