Check Box Value
Hi Tom
Solved my little problem with the last snippet of code, much appreciated
--
Many thanks
hazel
"Tom Ogilvy" wrote:
if me.Checkbox4.Value then
ws.Cells(iRow, 3).Value = ws.Cells(irow,3) + 1
End if
If you mean just enter a 1 (add not literally meaning to sum)
if me.Checkbox4.Value then
ws.Cells(iRow, 3).Value = 1
ws.Cells(iRow,3).Numberformat = "£ #"
End if
--
Regards,
Tom Ogilvy
"Hazel" wrote in message
...
Hi All
This will be easy for you experts out there.
On a UserForm I have a Check Box that when I click on it I want it to add
a
value of £1 to a Cell on a particular worksheet see code below.
Private Sub Add2_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Account")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.Tb5.Value
ws.Cells(iRow, 2).Value = Me.Tb3.Value
ws.Cells(iRow, 4).Value = Me.Tb4.Value
'ws.Cells(iRow, 3).Value = Me.CHECKBOX4????????
'clear the data
Me.Tb3.Value = ""
Me.Tb4.Value = ""
Me.Tb5.Value = ""
Me.Tb6.Value = ""
Com3.Value = ""
End Sub
Where the ????? are what code would I add to make this work
--
Many thanks
hazel
|