Creating a Check/Guestlist

[mooface]

Hi guys,

What I would like is to have a list of names in column 1 and a some checkboxes in column 2. When I check one of these boxes I'd like the row I've checked to vanish and for the name to be copied into a separate sheet (to indicate that they have paid)

So far I have this code but it's sloppy and doesn't quite work as the checkbox doesn't hide and I haven't figured out how to copy the name over

Public Sub Button2_Click()

r = ActiveSheet.UsedRange.Rows.Count
For i = 1 To r
If ActiveSheet.Range("C" & i).Value = "True" Then
ActiveSheet.CheckBoxes.Visible = False
ActiveSheet.Range("C" & i).EntireRow.Hidden = True
End If
Next i
End Sub


Sub AddCheckBox()
Dim cell As Range

'DelCheckBox  'Do the delete macro
'or delete all checkboxes in the worksheet
ActiveSheet.CheckBoxes.Delete
Dim LastRow As String
LastRow = Range("A65536").End(xlUp).Row
For Each cell In Range(Cells(1, 2), Cells(LastRow, 2))
      With ActiveSheet.CheckBoxes.Add(cell.Left, _
     cell.Top, cell.Width, cell.Height)
     .LinkedCell = cell.Offset(, 1).Address(External:=True)
     .Interior.ColorIndex = x1None   'or  xlNone or xlAutomatic
     .Caption = "Paid?"
     .Border.Weight = xlThin
     .OnAction = "Button2_Click"
       
  End With
  Next

With Range(Cells(1, 2), Cells(LastRow, 2))
.Rows.RowHeight = 15
End With
End Sub

[Mumps1]

Hi mooface. I've always found working with check boxes a little awkward. Instead of check boxes, would a drop down list in column 2 where you could choose "Paid" or "Unpaid" work for you?

[mooface]

Hi ya,

Yeah I am starting to consider that option. The idea was for this to be functional on a Tablet/touch screen environment so I thought a check box to be the easiest, but I suppose running a drop-down list could work out... I would still need some kind of active macro to hide the rows and copy the name over to a PAID sheet, any ideas?

Hi mooface. I've always found working with check boxes a little awkward. Instead of check boxes, would a drop down list in column 2 where you could choose "Paid" or "Unpaid" work for you?

[Mumps1]

Hi again. Try the attached file. I've just entered some generic data to use as a test. The drop down list in column B goes down to row 20. If you have more names, you just have to copy the validation list down column B as far as you need it. When you choose "Paid" from the list the corresponding name will be copied to sheet "Paid". I have also included a button that will show all your names if they are hidden.

[Mumps1]

My apologies mooface. I found a little glitch. Please use this attachment.

[mooface]

that's amazing thank you!!

[Mumps1]

Let's try one more time.