Hi,
I have the following code that does not seem to want to work when make
an entry using the second value and not the first consecutive times.
So if there is no entry for ChkBox1PATS caption two or more times,
then nothing will change on the worksheet that I'm copying to. Any
ideas what may be causing this would certainly be appreciated.
Thanks,
Steve
Private Sub CmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ECO")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row + 1
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.ChkBox1PATS.Caption
ws.Cells(iRow, 2).Value = Me.ChkBox2HI.Caption
'clear the data
Me.ChkBox1PATS.Caption = ""
Me.ChkBox2HI.Caption = ""
End Sub
Worksheet columns A & B look like the following:
Col A Column B
X X
X X
X
X
X
X
X X
X
X
X
X
X X
X X
X X
X
When I have a null entry for 2 or more times in a row under column B,
nothing happens after the first entry that gets copied...
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
