Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro with If statement not working
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro with If statement not working
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. april wrote: 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro with If statement not working
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: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF Statement not working | Excel Worksheet Functions | |||
IF Statement not working | Excel Worksheet Functions | |||
If statement working only once | Excel Worksheet Functions | |||
If Statement Not Working | Excel Worksheet Functions | |||
IF statement not working | Excel Discussion (Misc queries) |