Cycle through A Range

[jutlaux]

What I am trying to do is have a user select a range of cells and then what I
would like to do is cycle through just these cells.

This is basically like if I where on a worksheet and selected a range of
cells and hit the enter key.

Thanks.

 

[royUK]

What's the end use of the code

 

[jutlaux]

Looks through the selected cells (not the entire work sheet) for a specific
phrase

If it finds the phrase in the cell then
1) Capitalize just the phrase
2) Marks the cells that have the phrase with a red back color
3) Copy's the cells that have the phrase to another work sheet
4) Move to next cell

Currently the user selects the range and then does a find for the phrase and
then manually does everything above.

I know how to do all the steps if the user where just selecting one cell,
but ran into a problem on the multiple cells as I can't figure out how to
find out which cells the user selected and then move through them.

It should also be noted that the user could select cells with the Ctrl
button so "range" might not be all together.

 

[Dave Peterson]

Dim myRng as range
dim myCell as range

set myrng = selection
for each mycell in myrng.cells
if lcase(mycell.value) = lcase("yourexactphrasehere") then
'do the work
end if
next mycell

This looks for cells that match the phrase you want--not just contains the
phrase.

if lcase(mycell.value) like "*" & lcase("yourphrasehere") & "*" then

might be what you want.

 

[jutlaux]

Works great.

Thanks!

Dim myRng as range
dim myCell as range

set myrng = selection
for each mycell in myrng.cells
if lcase(mycell.value) = lcase("yourexactphrasehere") then
'do the work
end if
next mycell

This looks for cells that match the phrase you want--not just contains the
phrase.

if lcase(mycell.value) like "*" & lcase("yourphrasehere") & "*" then

might be what you want.