Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple row selection
Hello,
Is there a way to select multiple rows given a certain criteria is met? I have the following code which only selects one row at a time, but I would like the code to select all the rows for which the cell in the Range is equal to "Cat". Dim R As Range, Cel As Range Set R = Range("A8:A27") Set Cel = Range("A8:A27") For Each Cel In R If Cel.Value = "Cat" Then _ Cel.EntireRow.Select Next Cel Thank you in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple row selection
Dim R As Range, Cel As Range
dim AllCat as Range Set R = Range("A8:A27") Set Cel = Range("A8:A27") set allcat = nothing For Each Cel In R If Cel.Value = "Cat" Then if allcat is nothing then set allcat = cel else set allcat = union(cel, allcat) end if end if next cel if allcat is nothing then 'nothing to select else allcat.entirerow.select end if Minh wrote: Hello, Is there a way to select multiple rows given a certain criteria is met? I have the following code which only selects one row at a time, but I would like the code to select all the rows for which the cell in the Range is equal to "Cat". Dim R As Range, Cel As Range Set R = Range("A8:A27") Set Cel = Range("A8:A27") For Each Cel In R If Cel.Value = "Cat" Then _ Cel.EntireRow.Select Next Cel Thank you in advance. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
multiple selection | Excel Discussion (Misc queries) | |||
multiple selection.... | Excel Worksheet Functions | |||
ListBox Multiple Selection | Excel Programming | |||
Multiple Col. Selection | Excel Programming | |||
multiple selection | Excel Programming |