I couldn't figure out exactly what you wanted but this should help.

Sub CheckSelectYes()
'selections are NOT necessary
Application.ScreenUpdating = False
For Each cell In Sheets("Select").Range("selectLanguage_Area")
If cell.Value = "yes" Then cells(cell.row,1).copy 'somewhere??
Next
Application.ScreenUpdating = True
End Sub


--
Don Guillett
SalesAid Software

"rozB" wrote in message
...
I need help with this issue.

How to Code:
1. Find the cell value in a Mixed Reference Condition.
Absolute Column : Relative Row and Relative Column : Absolute Row
2. Copy and paste the result on a new or existing Worksheet.

Need to write a macro which will find the cell.value equal to "yes" in a
defined name_range, then locate and copy the cell.value in Column $A of the
same Row, return to position and locate and copy the cell.value in the same
Column and Row $10. (Will also need to paste the copied value in a new or
existing worksheet and return to position for the NEXT "yes" cell.value
Loop)


Sub CheckSelectYes()
Application.ScreenUpdating = False
Sheets("Select").Range("selectLanguage_Area").Sele ct
For Each cell In Selection
If cell.Value = "yes" Then 'Here is where the problem is!
Next
Application.ScreenUpdating = True
End Sub

Rozb "Losing Sleep in Everett"

cells(10,cell.column)
or
cells(cell.row+10,cell.column)

--
Don Guillett
SalesAid Software

"rozb" wrote in message
...
Cells(cell.Row, 1).Copy works great

How do I capture same column row 10?

Thank you.

glad to help

--
Don Guillett
SalesAid Software

"rozb" wrote in message
...
Thank you.

Why wont the activecell for each cell in the range refresh
The data from cell A11 changes as it moves down Row
How do I make the each cell request work

Rozit

Sub CheckMeReally(
For Each Cell In Sheets("Select").Range("selectLanguage_Area"
If Cell.Value = "yes" Then Cells(Cell.Row, 1).Cop
ActiveCell.Selec
ActiveSheet.Paste '""Cells(ActiveCell.Row + 1, 1).Select?
Next Cel
End Su