Hello,

I'm using a macro to hide certain rows based on clicking a checkbox.
Normaly the rows I want to hide are laying beneith each other but now
I want to hide rows who are lying separate.

The macro code I have bin using so far (for hiding group 1) is this :

--------------------------------------------------------------------------------
Private Sub CheckBox1_Click()
BeginRow = 2
EndRow = 4
ChkCol = 1
If CheckBox1.Value = True Then
For RowCnt = BeginRow To EndRow
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
Next RowCnt
Else
For RowCnt = BeginRow To EndRow
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Next RowCnt
End If
End Sub
--------------------------------------------------------------------------------
An example of the data would be something like :

groep naam
1 eik
1 den
1 beuk
2 appel
2 kers
2 aardbei
--------------------------------------------------------------------------------
In the new situation the data would be something like :

groep naam
1 eik
1 den
1 beuk
2 appel
1 kers
2 aardbei
--------------------------------------------------------------------------------

How can I change the range of rows in the macro so that it hide all
the "groep 1" rows on the click of the checkbox ?

Any help is appriciated.

Nico

Why not just use data>filter>autofilter on the groups?
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Knutsel" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello,
>
> I'm using a macro to hide certain rows based on clicking a checkbox.
> Normaly the rows I want to hide are laying beneith each other but now
> I want to hide rows who are lying separate.
>
> The macro code I have bin using so far (for hiding group 1) is this :
>
> --------------------------------------------------------------------------------
> Private Sub CheckBox1_Click()
> BeginRow = 2
> EndRow = 4
> ChkCol = 1
> If CheckBox1.Value = True Then
> For RowCnt = BeginRow To EndRow
> Cells(RowCnt, ChkCol).EntireRow.Hidden = False
> Next RowCnt
> Else
> For RowCnt = BeginRow To EndRow
> Cells(RowCnt, ChkCol).EntireRow.Hidden = True
> Next RowCnt
> End If
> End Sub
> --------------------------------------------------------------------------------
> An example of the data would be something like :
>
> groep naam
> 1 eik
> 1 den
> 1 beuk
> 2 appel
> 2 kers
> 2 aardbei
> --------------------------------------------------------------------------------
> In the new situation the data would be something like :
>
> groep naam
> 1 eik
> 1 den
> 1 beuk
> 2 appel
> 1 kers
> 2 aardbei
> --------------------------------------------------------------------------------
>
> How can I change the range of rows in the macro so that it hide all
> the "groep 1" rows on the click of the checkbox ?
>
> Any help is appriciated.
>
> Nico
>

Hi Don,

Because autofilter does not work when the rows are not contigues.
Or I'm not doing it right...

Nico

IF?? you mean that it is unsorted, it doesn't matter.
IF? you mean that there are blanks in the data>select ALL rows>then
autofilter.
Sub filterem()
With Range("A1:A" & Cells(Rows.Count, "a").End(xlUp).row)
.AutoFilter
.AutoFilter Field:=1, Criteria1:="a"
End With
End Sub
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Knutsel" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi Don,
>
> Because autofilter does not work when the rows are not contigues.
> Or I'm not doing it right...
>
> Nico
>
>