Student1000
Board Regular
- Joined
- Jul 17, 2007
- Messages
- 58
Ok, i have created checkbox(es) that i want it to add values to cells upon clicking. Once selected (checked), the option(value) should be populated on the next available row in column D within (D5:D20) range.
Uncheck to clear.The value will be a sentence like "Thank you for choosing our services, we appr your busin"
Here is what i can come up with which i know does not make much sense. Thanks
Private Sub CheckBox1_Click()
Application.WorksheetFunction.CountA (Range("D:D")) + 1
If CheckBox1 = 1 Then Application.Goto Sheet1.Range("D5:20")
& Cells(NextRow, 2) = "Thank you for choosing our services, we appr your busin"
Elseif activesheet.range().value = Null
NextRow =Application WorksheetFunction.CountA(Range("D:D"))+1
End Sub
Uncheck to clear.The value will be a sentence like "Thank you for choosing our services, we appr your busin"
Here is what i can come up with which i know does not make much sense. Thanks
Private Sub CheckBox1_Click()
Application.WorksheetFunction.CountA (Range("D:D")) + 1
If CheckBox1 = 1 Then Application.Goto Sheet1.Range("D5:20")
& Cells(NextRow, 2) = "Thank you for choosing our services, we appr your busin"
Elseif activesheet.range().value = Null
NextRow =Application WorksheetFunction.CountA(Range("D:D"))+1
End Sub