macro with If statement not working

[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

 

[Dave Peterson]

Maybe...

Option Explicit
Sub loopthrough()
Dim myRow As Long
Dim FirstRow As Long
Dim LastRow As Long
Dim wks As Worksheet

Set wks = ActiveSheet

With wks
FirstRow = 10
LastRow = .Cells(.Rows.Count, "T").End(xlUp).Row

For iRow = FirstRow To LastRow
If LCase(.Cells(iRow, "T").Value) = LCase("General Research") Then
.Cells(iRow, "ai").Value = "MIT0000"
End If
Next iRow
End With

End Sub

=========
If this is a one time shot, you may want to do it manually.

Filter your data by column T.
Show the rows that have "general research" in that column
Select the range of visible rows in column AI
Edit|goto (or hit F5)|Special|visible cells only
type:
MIT0000
and hit ctrl-enter to fill those visible cells with the new value.

 

[Stefi]

Try this way (not tested, but the cause of error is eliminated)

Sub loopthrough()
Dim myRow As Integer
myRow = 1

Range("AI225").Select
Do Until myRow = 10
If ActiveCell.Offset(0, -15).Range("a1").Select = "Karlan-Gine" Then
ActiveCell = "MIT0000"
End If
ActiveCell.Offset(1, 0).Select
myRow = myRow + 1
Loop

End Sub

Regards,
Stefi


„april†ezt írta: