Hello,
What are we doing wrong?
It seems i can't fill out the labels with the selected result i want to show
Dim Numb As Long
Dim iCheckCount, lastrow, cardid As Long
Dim FoundMemb As Range
Dim Shp As Shape
iCheckCount = 0
lastrow = Tasks.Range("A99999").End(xlUp).Row
If lastrow < 3 Then Exit Sub
For Numb = 3 To lastrow ' For 3 to last row in Tasks...
On Error Resume Next
For Each Shp In Shapes ' loop through shapes to see if there's a name match
If Shp.Name = "Card" & Numb Then 'if so..
With Shapes("Card" & Numb) 'check ...
If .GroupItems("bPic" & Numb).TextFrame2.TextRange.Text = "þ" Then '..it has been checked/marked like a checkbox
iCheckCount = iCheckCount + 1 ' if so, increase the count
Dim ctrl As Control
With UserForm2
For Each ctrl In .Controls
If TypeName(ctrl) = "Label" Then
For ResultCount = 4 To iCheckCount
If Not ctrl.Caption = ResultCount Then
ctrl.Caption = Tasks.Range("B" & Numb).Value 'like to fillout the labels for each selected?
End If
Next
End If
Next ctrl
End With
End If
End With
End If
Next Shp
Next Numb
UserForm2.Show