Lion,
I am not sure enough about what you are trying to accomplish to write any code for you, but I did analyze what code you have.
Here is what you code is really doing
'CheckBox "Print" was Clicked, True or False, we'll find out.'On sheet(Printed", get Last Row with content in Column "B"
'If CheckBox "Print" was clicked "True" Then
'Copy This Sheet Range "A2" to "O2"
'OverWrite Last Row with content in Column "B" on Sheet "Printed"
'If Checkbox "Print" was clicked "False" Then
'Iterate the number of times there are Rows on sheet "Printed" with Content in Column "B"
'If Range("B" "LastRow") = "B1" then
'Delete whatever Row number was the last one several times.
'Actually, this line in this loop means deleting a number of rows starting at the "lastrow" 'equal to the number of the "last" row.
'Except, Really, Exit the loop after deleting only one Row.
'Loop
'CheckBox "Sent" was Clicked, True or False, who knows?
'On sheet(Printed", get Last Row with content in Column "B"
'If CheckBox "Print" is Checked Then
'Copy this sheet, Range "A3" to "O3"
'Overwrite Last used Row on Sheet "Printed"
'If Checkbox "Print" is not checked, Then
'Iterate the number of times there are Rows on sheet "Printed" with Content in Column "B"
'If, Range("C" LastRow) = Range "D3" then
'Delete whatever Row number was the last one several times.
'Actually, this line in this loop means deleting a number of rows starting at the "lastRow", Except, Really, Exit the loop after deleting only one Row.
'Loop
Here is your code with the above comments included. Note that comments refer to the following code lines.
On Clicking CheckBox "Print"
[vba]'CheckBox "Print" was Clicked, True or False, we'll find out.
Private Sub CheckBox1_Click()
With Sheets("Printed")
'On sheet(Printed", get Last Row with content in Column "B"
ckrownum = .Cells(Rows.Count, "B").End(xlUp).Row
If CheckBox1 Then 'If CheckBox "Print" was clicked "True" Then
'Copy This Sheet Range "A2" to "O2"
Range("A2").Resize(, 15).Copy
'OverWrite Last Row with content in Column "B" on Sheet "Printed"
.Range("A" & ckrownum).PasteSpecial
Else 'If Checkbox "Print" was clicked "False" Then
'Iterate the number of times there are Rows on sheet "Printed" with Content in Column "B"
For x = 1 To ckrownum
'If Range("B" "LastRow") = "B1" then
If .Cells(ckrownum, 2) = Cells(1, 2) Then
'Delete whatever Row number was the last one several times.
'Actually, this line in this loop means deleting a number of rows starting at the "last"
'equal to the numer of the "last" row.
.Rows(ckrownum).Delete
'Except, Really, Exit the loop after deleting only one Row.
Exit For
End If
Next
End If
End With
End Sub
[/vba]
On Clicking CheckBox "Print"
[vba]'CheckBox "Sent" was Clicked, True or False, who knows?
Private Sub CheckBox11_Click()
With Sheets("Printed")
'On sheet(Printed", get Last Row with content in Column "B"
ckrownum = .Cells(Rows.Count, "B").End(xlUp).Row
If CheckBox1 Then 'If CheckBox "Print" is Checked Then
'Copy this sheet, Range "A3" to "O3"
Range("A3").Resize(, 15).Copy
'Overwrite Last used Row on Sheet "Printed"
.Range("A" & ckrownum).PasteSpecial
Else 'If Checkbox "Print" is not checked, Then
'Iterate the number of times there are Rows on sheet "Printed" with Content in Column "B"
For x = 1 To ckrownum
'If, on Sheets("Printed"), Range("C" LastRow) = Range "D3" then
If .Cells(ckrownum, 3) = Cells(3, 4) Then
'Delete whatever Row number was the last one several times.
'Actually, this line in this loop means deleting a number of rows starting at the "last"
.Rows(ckrownum).Delete
'Except, Really, exit the loop after deleting only one Row.
Exit For
End If
Next
End If
End With
End Sub
[/vba]