Hide certain rows from given list

**barqujo** · 07-12-2013, 01:44 PM

Hello everyone,

I have this problem, I'm sure you can help!

Let's say I have a given list of numbers in a worksheet

2
5
7
9
12
15
16
33
43

And in another worksheet I have a range of 50 rows hidden (from A1 to A50)

I need a macro that unhides only the rows corresponding to the numbers in the list, that is row 2, 5, 7, 9, 12, ...

Also the amount of numbers in the list is variable (between 1 and 50)

Thanks!!!

**JOHN H. DAVIS** · 07-12-2013, 02:48 PM

Maybe:

Sub barqujo()
Dim i As Long
Dim x As Long
For x = Sheets("Sheet1").Range("A" & Rows.Count).End(3)(2).Row To 2 Step -1
Sheets("Sheet2").Activate
For i = 51 To 1 Step -1
    If Rows(i).Row = Sheets("Sheet1").Range("A" & x).Value Then
        Rows(i).EntireRow.Hidden = False
    End If
Next i
Next x
End Sub

**HaHoBe** · 07-12-2013, 03:00 PM

Hi, barqujo,

from what I understand you may have a go with this, the numbers are located in Sheet1 starting with A1 downwards with no blanks:

Sub EF938706()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lngCounter As Long

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")

ws2.Rows("1:50").Hidden = True

With ws1
  For lngCounter = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
    ws2.Rows(.Cells(lngCounter, "A").Value).Hidden = False
  Next lngCounter
End With

Set ws2 = Nothing
Set ws1 = Nothing
End Sub

Ciao,
Holger