| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
move from active cell offset in macro
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 |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
move from active cell offset in macro
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 |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
move from active cell offset in macro
Check your other post.
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 -- Dave Peterson |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
move from active cell offset in macro
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 |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
move from active cell offset in macro
PERFECT, Mike. Thank you so much.
-- BDW "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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Move active cell to same location on each worksheet | Excel Discussion (Misc queries) | |||
| macro- move down to empty cell & active worksheet | Excel Worksheet Functions | |||
| How do I move cursor in an active cell without using delete/backsp | Excel Discussion (Misc queries) | |||
| need to Copy or Move to active cell from specified range | Excel Discussion (Misc queries) | |||
| How can I move the active cell in Excel with the arrow keys? | Excel Discussion (Misc queries) | |||
Linear Mode
