Checkbox in Userform

[lukael]

Hello, I want to make this code working on my Userform1, which has checkbox in It. Userform1 is activated with macro1(Userform1.Show) on worksheet (button). Code works great with no Userfom :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim blnValue As Boolean
Dim shpCB As Shape
If Target.Count = 1 Then
  If Not Intersect(Target, Range("C4,C6")) Is Nothing Then
    blnValue = WorksheetFunction.CountA(Range("C4,C6")) = 2
    For Each shpCB In ActiveSheet.Shapes
      If shpCB.Name Like "Check*" Then
        shpCB.ControlFormat.Value = blnValue * -1
      End If
    Next shpCB
  End If
End If
End Sub

 

[royUK]

What do you want the userform checkbox to actually do?

 

[lukael]

What do you want the userform checkbox to actually do?

Checkbox must be ticked If two cell values (E4,E6) on worksheet are not blank (both of them), which is their default value (drop-down list).

 

[royUK]

Try

Option Explicit




Private Sub UserForm_Initialize()
Me.CheckBox1 = application.WorksheetFunction.CountA(Sheet1.Range("E4,E6")) = 2
End Sub

Also, take a couple of minutes and read about crossposting

 

[lukael]

Try

Option Explicit

Private Sub UserForm_Initialize()
Me.CheckBox1 = application.WorksheetFunction.CountA(Sheet1.Range("E4,E6")) = 2
End Sub

Also, take a couple of minutes and read about crossposting

Code works, but checkbox must be ticked only if both values are not blank, this one ticks if one is blank and other not. I was warned about crossposting, when I find solution I will post on all forum a solution and mark It as SOLVED.

many thanks royUK !

 

[royUK]

Both cells must have an entry for my code to tick the checkbox.

 

[lukael]

Sorry, I've done mistake in typing cell numbers. Your code works great

THANK YOU 1000 TIMES !!!

just tell me how to mark this thread as Solved !!

 

[royUK]

here's an example

 

[royUK]

I don't think that you can mark a Thread solved here, I can only see Like or Share buttons in the post.