LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 31
Default More than one Target.Addresses

Hi,
Jim Cone helped me with the code below a few months ago. It works great.
What it does:
It hides certain rows in Sheet2 If A1 in Sheet1 is a certain text word.

Question:
Is it possible to have more than one Target.Address?
Example: If A1="Apples" and B1="Red Delicious" Then hide the specified rows
in Sheet2.

The working code I have now for a single Target.Address:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
With Worksheets("Sheet2")
..Rows("1:35").EntireRow.Hidden = False
If Target.Text = "Apples" Then
..Rows("10:10").EntireRow.Hidden = True
..Rows("20:20").EntireRow.Hidden = True
ElseIf Target.Text = "Pears" Then
..Rows("15:15").EntireRow.Hidden = True
..Rows("25:25").EntireRow.Hidden = True
ElseIf Target.Text = "Oranges" Then
..Rows("30:30").EntireRow.Hidden = True
..Rows("35:35").EntireRow.Hidden = True
Else
..Rows("12:12").EntireRow.Hidden = True
..Rows("16:16").EntireRow.Hidden = True
End If
End With
End If
End Sub

I can't find very much information on this Target.Address subject in my
stack of books.
I've tried different combinations but none of my own coding works so far.
Thanks for your time in reading my question.
Amy

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Target cell reference moves when target is cut and pasted Illya Teideman Excel Discussion (Misc queries) 5 May 31st 07 11:34 AM
add target nowfal[_48_] Excel Programming 3 August 26th 05 08:33 PM
Target As Excel.Range or Target As Range Piranha[_5_] Excel Programming 2 June 3rd 05 03:49 PM
Ranges:Target in Worksheet_SelectionChange(ByVal Target As Range) Kevin McCartney Excel Programming 3 April 15th 05 01:51 PM
How find if target is object in Worksheet_Change (ByVal Target As.. ?) Gunnar Johansson Excel Programming 3 July 1st 04 09:25 PM


All times are GMT +1. The time now is 02:27 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"