A
april
i have taken an existing macro that loops and am trying to tailor it to my
needs. here is what i want to do
1. go to cell ai225
2. check the contents of t225
3. if t225 = General Research then put "MIT0000" in cell ai225
4. move to the next row and perform the same operation.
when i run the macro i get an error notice "End If without Block if". Any
ideas.
here is the macro
sub loopthrough()
Dim myRow As Integer
myRow = 1
Range("AI225").Select
If ActiveCell.Offset(0, -15).Range("a1").Select = "Karlan-Gine" Then
ActiveCell = "MIT0000"
Do Until myRow = 10
End If
ActiveCell.Offset(1, 0).Select
myRow = myRow + 1
Loop
End Sub
thanks in advance for your help
aprilshowers
needs. here is what i want to do
1. go to cell ai225
2. check the contents of t225
3. if t225 = General Research then put "MIT0000" in cell ai225
4. move to the next row and perform the same operation.
when i run the macro i get an error notice "End If without Block if". Any
ideas.
here is the macro
sub loopthrough()
Dim myRow As Integer
myRow = 1
Range("AI225").Select
If ActiveCell.Offset(0, -15).Range("a1").Select = "Karlan-Gine" Then
ActiveCell = "MIT0000"
Do Until myRow = 10
End If
ActiveCell.Offset(1, 0).Select
myRow = myRow + 1
Loop
End Sub
thanks in advance for your help
aprilshowers