mixing absolute and relative references

[shellshock]

Hi everyone.

This is code by JE McGimpsey, modified slightly by me:


Code
-------------------
Sub Find_and_Mark()

Dim c As Range
Dim firstAddress As String

Sheets("Sheet1").Select
With Columns("C")
Set c = .Find( _
What:="your_text_string_here", _
LookIn:=xlValues, _
LookAt:=xlPart, _
MatchCase:=False)

If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Offset(0, 20) = "Yes"
Set c = .FindNext(c)
Loop While c.Address <> firstAddress
End If

End With
End Su
-------------------


Basically, it searches for a string, and each time it finds anothe
instance of the string, it marks "Yes" 20 columns over. However, I'
doing a search in both column C and in column D, so 20 columns ove
means either column W or column X respectively.

How do I mix relative and absolute references in this case? Fo
example, how would I modify this if I need the row reference to b
relative, but I always want the column to be column X

 

[Cody]

You can set a different variable for your row index.

For i = 1 to 50
c.Offset(i, 20)
Next i

 

[shellshock]

This has been solved by changing this line


Code:
--------------------
c.Offset(0, 20) = "Yes"
--------------------


to


Code: