If CheckBox is True, copy all rows

[taNkbilen123]

Hi,
Im new to this site and also creating macros, but this macro feels like it should be easy…
I have a checkbox that hide and unhide rows. If that checkbox is true when i press a specific button i want the rows that are visible to be copied into a new sheet for printing otherwise not. But it doesn't work for me...

The code for the checkbox that hide and unhide rows:

Private Sub cb_as_Click()
If Me.cb_as = True Then
    Rows("182:191").Select
    Selection.EntireRow.Hidden = False
    Range("H177").Select
Else
    Rows("182:191").Select
    Selection.EntireRow.Hidden = True
    Range("H177").Select
End If

End Sub

And the code for the button that should copy the rows if the checkbox is true:

Sub GenereraRB()

    If cb_as = True Then
    Sheets("Data").Select
    Range("A180:H191").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("sheet 2").Select
    Range("A43").Select
    ActiveSheet.Paste
End If

End Sub

If i delete the if-statement in the code for the button it always copy the rows. But i only want it to copy if the checkbox is true.

Can someone help me?

Thank you in advance

 

[Fluff]

Hi & welcome to MrExcel.
In what way doesn't your code?
Do you get any messages?

 

[taNkbilen123]

Hi & welcome to MrExcel.
In what way doesn't your code?
Do you get any messages?

No i don't get any messages at all, it just won't "print" any rows if i use the if-statement and print Everything (even if i check the checkboxes or not) if i skip the if-statement.

 

[Fluff]

As that code works for me, a few questions.
1) Is it an ActiveX checkbox?
2) Is it on the sheet called Data?
3) Is the Sub GenereraRB() code in the Data sheet module?

 

[taNkbilen123]

As that code works for me, a few questions.
1) Is it an ActiveX checkbox?
2) Is it on the sheet called Data?
3) Is the Sub GenereraRB() code in the Data sheet module?

Oh okey
1) Is it an ActiveX checkbox? Yes
2) Is it on the sheet called Data? Yes, i have a sheet called data where i have different data on different rows. Not all data is relevant for the user so it is divided in to different chapters (on the same sheet).Every chapter has an ActiveX Checkbox next to its title where you can hide or unhide the information (data). If the user chooses to use a chapter by activating a checkbox he can then press a separate button Where all the information from all the chosen chapters are being copied to a different sheet (named sheet 2).
3) Is the Sub GenereraRB() code in the Data sheet module? Yes

Hope this clarifies what i'm trying to accomplish

 

[Fluff]

In that case your code works for me, although you can simplify it to

Sub GenereraRB()

   If cb_as = True Then
      Range("A180:H191").Copy Sheets("sheet 2").Range("A43")
   End If

End Sub

 

[taNkbilen123]

In that case your code works for me, although you can simplify it to

Sub GenereraRB()

   If cb_as = True Then
      Range("A180:H191").Copy Sheets("sheet 2").Range("A43")
   End If

End Sub

Hmm okey, thanks i'll simplify it.

 

[Fluff]

Does that code work for you, or do you still get the same problem?