Checkboxes

[vmpascual]

I want to print the invoice by checking one or more of the 4 checkboxes. My workbook contains 2 sheets, data sheet and the invoice sheet. My user form contains 4 checkboxes, one print Command Button and on cancell button. When i run the program, i get the error: "Select method of class failed. Following is the code in the print command button..

Private Sub OKButton_Click()
If UserForm1.CheckBox1.Value = True Then
Range("A5").Select
ActiveWorkbook.Names.Add Name:="Start", RefersToR1C1:="=Data!R5C1"
Range("Start").Select
Do While ActiveCell.Value <> Empty
If ActiveCell.Value = 1 Then ActiveCell.Range("A1:T1").Copy Range("A1")
If CheckBox1.Value = True _
Then Sheets("Invoice").Range("A62") = "Account Receivable Copy"
End If
If CheckBox2.Value = True _
Then Sheets("Invoice").Range("A62") = "Remittance Copy - Please return with payment"
End If
If CheckBox3.Value = True _
Then Sheets("Invoice").Range("A62") = "Tenant Copy"
End If
If CheckBox4.Value = True _
Then Sheets("Invoice").Range("A62") = "Tenant File Copy"
End If
If ActiveCell.Value = 1 Then Sheets("Invoice").PrintOut
If ActiveCell.Value = 2 Then ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(1, 0).Select
Loop
End If
Unload UserForm1
End Sub

Hope you could help me guys.

Thanks,
vmpascual

 

[Glory]

Sometimes random messages pop up when you forget to close a block.

It looks like you might be missing an "End If" that should close the first if-block?

Edit: Never mind, I'm putting it in excel's VBA editor now. It's hard to read the way you posted it. I'll repost it with code tags.

 

[Glory]

Private Sub OKButton_Click()
 
If UserForm1.CheckBox1.Value = True Then
    Range("A5").Select
    ActiveWorkbook.Names.Add Name:="Start", RefersToR1C1:="=Data!R5C1"
    Range("Start").Select
 
    Do While ActiveCell.Value <> Empty
        If ActiveCell.Value = 1 Then ActiveCell.Range("A1:T1").Copy Range("A1")
 
        If CheckBox1.Value = True _
        Then Sheets("Invoice").Range("A62") = "Account Receivable Copy"
        End If
 
        If CheckBox2.Value = True _
        Then Sheets("Invoice").Range("A62") = "Remittance Copy - Please return with payment"
        End If
 
        If CheckBox3.Value = True _
        Then Sheets("Invoice").Range("A62") = "Tenant Copy"
        End If
 
        If CheckBox4.Value = True _
        Then Sheets("Invoice").Range("A62") = "Tenant File Copy"
        End If
 
        If ActiveCell.Value = 1 Then Sheets("Invoice").PrintOut
 
        If ActiveCell.Value = 2 Then ActiveCell.[COLOR=red]Offset(0, 0)[/COLOR].Select
 
        ActiveCell.Offset(1, 0).Select
 
    Loop
 
End If
 
Unload UserForm1
 
End Sub

If the red text is necessary, I don't see why.

I don't see anything obviously wrong that should be causing it to fail though.

Have you tried just ommenting out the lines that select ranges? They don't seem particularly necessary either. Or tried replacing them with "Activate"?

It also seems like a good idea to throw in some sheet references ahead of your ranges;

set a = ThisWorkBook.Sheets("sheet name")

 

[vmpascual]

Thanks Glory,

My problem is the printing of the same one invoice template where only the description would change in Range("A60"). The code prints only one checkbox even if I checked all the checkboxes. Checkbox1 should always be checked in order to print the other checkbox. No printing will happen if Checkbox1 is unchecked.

please let me know where i should place in the code the "set a = ThisWorkbook.Sheets("Invoice")

Thanks in advance again if you could help me.