ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Hide row(s) based on drop down selection (https://www.excelbanter.com/excel-discussion-misc-queries/134510-hide-row-s-based-drop-down-selection.html)

Maritza

Hide row(s) based on drop down selection
 
I need to hide rows based on a drop down selection. Example: if d5 (drop down
cell) = refund, then hide rows 33 through 36, else hide row 25.

For the life of me my macro didn't work.

Thanks
--
Maritza

Ron de Bruin

Hide row(s) based on drop down selection
 
You can use the change event in the sheet module

Try this one

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D5"), Target) Is Nothing Then
Range("A25,A33:A36").EntireRow.Hidden = False
If Target.Value = "refund" Then
Range("A33:A36").EntireRow.Hidden = True
Else
Range("A25").EntireRow.Hidden = True
End If
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I need to hide rows based on a drop down selection. Example: if d5 (drop down
cell) = refund, then hide rows 33 through 36, else hide row 25.

For the life of me my macro didn't work.

Thanks
--
Maritza


Maritza

Hide row(s) based on drop down selection
 
I copied and pasted your info, made changes to suit my ranges. But when I
select things from the drop down - nothing happens.

Where did I go wrong?
--
Maritza


"Ron de Bruin" wrote:

You can use the change event in the sheet module

Try this one

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D5"), Target) Is Nothing Then
Range("A25,A33:A36").EntireRow.Hidden = False
If Target.Value = "refund" Then
Range("A33:A36").EntireRow.Hidden = True
Else
Range("A25").EntireRow.Hidden = True
End If
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I need to hide rows based on a drop down selection. Example: if d5 (drop down
cell) = refund, then hide rows 33 through 36, else hide row 25.

For the life of me my macro didn't work.

Thanks
--
Maritza



Ron de Bruin

Hide row(s) based on drop down selection
 
Hi Maritza

Do you copy it in the correct sheet module ?
Do you use a Data validation dropdown list in D5 ?

Do you use Excel 97 ?



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I copied and pasted your info, made changes to suit my ranges. But when I
select things from the drop down - nothing happens.

Where did I go wrong?
--
Maritza


"Ron de Bruin" wrote:

You can use the change event in the sheet module

Try this one

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D5"), Target) Is Nothing Then
Range("A25,A33:A36").EntireRow.Hidden = False
If Target.Value = "refund" Then
Range("A33:A36").EntireRow.Hidden = True
Else
Range("A25").EntireRow.Hidden = True
End If
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I need to hide rows based on a drop down selection. Example: if d5 (drop down
cell) = refund, then hide rows 33 through 36, else hide row 25.

For the life of me my macro didn't work.

Thanks
--
Maritza



Maritza

Hide row(s) based on drop down selection
 
I'm unsure whether it's in the correct sheet module.
Yes, I did use data validation for the dropdown list in D5.
I'm using Excel 2003
--
Maritza


"Ron de Bruin" wrote:

Hi Maritza

Do you copy it in the correct sheet module ?
Do you use a Data validation dropdown list in D5 ?

Do you use Excel 97 ?



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I copied and pasted your info, made changes to suit my ranges. But when I
select things from the drop down - nothing happens.

Where did I go wrong?
--
Maritza


"Ron de Bruin" wrote:

You can use the change event in the sheet module

Try this one

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D5"), Target) Is Nothing Then
Range("A25,A33:A36").EntireRow.Hidden = False
If Target.Value = "refund" Then
Range("A33:A36").EntireRow.Hidden = True
Else
Range("A25").EntireRow.Hidden = True
End If
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I need to hide rows based on a drop down selection. Example: if d5 (drop down
cell) = refund, then hide rows 33 through 36, else hide row 25.

For the life of me my macro didn't work.

Thanks
--
Maritza



Ron de Bruin

Hide row(s) based on drop down selection
 
Hi Maritza

I'm unsure whether it's in the correct sheet module.

Right click the sheet tab and choose view code
Paste the code there
Alt q to go back to Excel

Now change the dropdown


Do you use Excel 97 ?


Excel 2003 is OK
Change event is not working in a Data validation cell in Excel 97



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I'm unsure whether it's in the correct sheet module.
Yes, I did use data validation for the dropdown list in D5.
I'm using Excel 2003
--
Maritza


"Ron de Bruin" wrote:

Hi Maritza

Do you copy it in the correct sheet module ?
Do you use a Data validation dropdown list in D5 ?

Do you use Excel 97 ?



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I copied and pasted your info, made changes to suit my ranges. But when I
select things from the drop down - nothing happens.

Where did I go wrong?
--
Maritza


"Ron de Bruin" wrote:

You can use the change event in the sheet module

Try this one

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D5"), Target) Is Nothing Then
Range("A25,A33:A36").EntireRow.Hidden = False
If Target.Value = "refund" Then
Range("A33:A36").EntireRow.Hidden = True
Else
Range("A25").EntireRow.Hidden = True
End If
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I need to hide rows based on a drop down selection. Example: if d5 (drop down
cell) = refund, then hide rows 33 through 36, else hide row 25.

For the life of me my macro didn't work.

Thanks
--
Maritza



Maritza

Hide row(s) based on drop down selection
 
Thank you! Got it to work including with sheet protection.
--
Maritza


"Ron de Bruin" wrote:

Hi Maritza

I'm unsure whether it's in the correct sheet module.

Right click the sheet tab and choose view code
Paste the code there
Alt q to go back to Excel

Now change the dropdown


Do you use Excel 97 ?


Excel 2003 is OK
Change event is not working in a Data validation cell in Excel 97



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I'm unsure whether it's in the correct sheet module.
Yes, I did use data validation for the dropdown list in D5.
I'm using Excel 2003
--
Maritza


"Ron de Bruin" wrote:

Hi Maritza

Do you copy it in the correct sheet module ?
Do you use a Data validation dropdown list in D5 ?

Do you use Excel 97 ?



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I copied and pasted your info, made changes to suit my ranges. But when I
select things from the drop down - nothing happens.

Where did I go wrong?
--
Maritza


"Ron de Bruin" wrote:

You can use the change event in the sheet module

Try this one

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D5"), Target) Is Nothing Then
Range("A25,A33:A36").EntireRow.Hidden = False
If Target.Value = "refund" Then
Range("A33:A36").EntireRow.Hidden = True
Else
Range("A25").EntireRow.Hidden = True
End If
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maritza" wrote in message ...
I need to hide rows based on a drop down selection. Example: if d5 (drop down
cell) = refund, then hide rows 33 through 36, else hide row 25.

For the life of me my macro didn't work.

Thanks
--
Maritza





All times are GMT +1. The time now is 04:58 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com