Macro running through selected fields only

[jmslab]

Hello,

I'm using a selectionloop macro which goes through whole column A,
activate the record if letter "y" is registered, and fullfill for that
specific record some copy/paste actions.

I want to change the macro on such a way that it runs only through
selected fields and within that selected fields look in column A and
do the actions if letter "y" is registered (For example : I have
selected record 10 till 15 -or- field B12 till B20 -or- record 10 and
with CTRL record 25 and record 30).

Can somebody help me out with a macro which fullfill my wishes.
Thanks.

Sub
LastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
lr = LastRow
lr1 = lr + 1
co = 1
For li = lr1 To 2 Step -1
If InStr(Cells(li, co), "y") = 1 Then
Cells(li, co).Select
acr = ActiveCell.Row
Range("B" & acr).Select
act = ActiveCell.Text
'on this point the macro does some copy-paste actions to another
sheet
End If
Next li
End Sub

regards,
Johan

 

[royUK]

Try this code


Code
-------------------
Option Explicit
Option Compare Text
Sub y()
Dim rSearch As Range
Dim rSelect As Range
Dim cl As Range
Set rSearch = Selection
For Each cl In rSearch
If cl.Text = "y" Then
If rSelect Is Nothing Then
Set rSelect = cl
Else: Set rSelect = Union(cl, rSelect)
End If
End If
Next cl
'replace this with yopur paste code
rSelect.Select
End Su

 

[jmslab]

Thanks a lot,

It works fine accept one little issue.
When I select the whole record(s) or datafields in column A it works
oke, but...
when I select fields in other columns it gives an error.

Is there a possibility that the macro, where ever the selected fields
are (other columns) the macro
looks always in column A of those selected fields.

Hopely a reaction will come and help me out.

regards,
Johan