for each cell in range

[cvraman]

Hi guys,
I'd like to ask help regarding the below code:
1. why the below code runs infenitly?
2.Could somebody help me how to do the below ones without the temp string? I mean to use something like if cell.find("backup") is ..... then

dim temp as string

For Each cell In Range("I37:I40").Cells
On Error Resume Next
temp = cell.Find("Backup")
If temp <> "" Then
cell.Offset(0, 5) = temp
temp = Empty
End If
Next



thanks for your help
Tamas

 

[Momentman]

What do you really want to displace in the offset cell

Sub ForCode()
    Dim Cell As Range
    For Each Cell In Range("I37:I40")
        On Error Resume Next
        If Cell.Find("Backup") <> "" Then
            Cell.Offset(0, 5) = Cell.Find("Backup")
        End If
    Next
End Sub

 

[cvraman]

Sorry, its my mistake. Please ignor this thread

 

[cvraman]

sorry it is my mistake.
for the first question is a complete disaster cause I left a the above mentioned code in a Do loop
regarding the second question releated also to your question i find some answer:

For Each cell In Range(Cells(38, 9), Cells(lastrow, 9)).Cells
If Not cell.Find("Backup") Is Nothing Then
cell.Offset(0, 5) = "ok"
End If
Next cell

I wanted to use the offset to make a result to a cell shifted to another column compared to the checked one if the criteria is met.

thanks you

 

[Joe4]

So, are you all set now, or is there still some question?

 

[cvraman]

yes, thank you