move from active cell offset in macro
"c" is same as "cell"
If you have Option Explicit at top and "c" is not declared then you get the
error.
Try declaring "c"
Sub loopthrough()
Dim MyRange As Range
Dim c As Range
Set MyRange = Range("B225:B234")
For Each c In MyRange
If c.Value = "General Research" Then
c.Offset(0, 15).Value = "MIT0000"
End If
Next
End Sub
Gord Dibben MS Excel MVP
On Fri, 16 Oct 2009 04:59:01 -0700, April
wrote:
Thanks,Mike
i am unsure of what the "c" stands for in your macro. does it mean
ActiveCell? when i compile the macro i get an error message that says
"Variable required"
Please help. thanks
BDW
"Mike H" wrote:
Hi,
Try this
Sub loopthrough()
Dim MyRange As Range
Set MyRange = Range("T225:T234")
For Each c In MyRange
If c.Value = "General Research" Then
c.Offset(0, 15).Value = "MIT0000"
End If
Next
End Sub
Mike
"april" wrote:
i have this macro
Sub loopthrough()
Dim myRow As Integer
myRow = 1
Range("AI225").Select
Do Until myRow = 10
If ActiveCell.Offset(0, -15).Range("a1").Select = "General Research" Then
ActiveCell.Offset(0, 15).Range("a1") = "MIT0000"
End If
ActiveCell.Offset(1, 0).Select
myRow = myRow + 1
Loop
End Sub
1.want to start at cell ai225.
2. go to cell t225 and if the contents = General Research
3 then go to cell ai and enter MIT0000
4. go the the enxt row and do the same thing
problem is if t225 does not equal "General Research" the active cell is t225
and the next iteration takes me 15 rows over from t225. i want to start the
if statement from ai226
thanks in advance for you help. i just thought of something - i could get
it back to ai 225 by making the alternative to MIT0000 a blank but i don't
know the code protocal for this.
--
aprilshowers
|