There are several different types of loops.
The type you select will depend on your specific situation.
a couple of examples would be:
'-------------------------------------------------------
Sub Loop1()
Dim Rng As Range
For Each Rng In Range("A2:A10")
MsgBox Rng.Value
Next Rng
End Sub
'-------------------------------------------------------
Sub Loop2()
Dim nRow
For nRow = 1 To 10
ActiveSheet.Cells(nRow, "A").FormulaR1C1 =
"'Preferred_Address_Indicator"
ActiveSheet.Cells(nRow, "B").Formula = "=Switch2(Y2,""B"",
AH2,""H"",NOT(AH2),""O"")"
Next nRow
End Sub
'-------------------------------------------------------
But in your example, you're using separate ROWS instead of separate COLUMNS:
.Range("AP1").FormulaR1C1 = "'Preferred_Address_Indicator"
.Range("AP2").Formula = "=Switch2(Y2,""B"", AH2,""H"",NOT(AH2),""O"")"
yet you SAY you want to increment by (1)?
yes, AP1 and AP2 are "incremented by 1", but they aren't repeating..
so that doesn't require a loop...
can you give a better example?
Like:
In the first iteration of the loop, you want:
.Range("AP1").FormulaR1C1 = "'Preferred_Address_Indicator"
.Range("AP2").Formula = "=Switch2(Y2,""B"", AH2,""H"",NOT(AH2),""O"")"
In the SECOND iteriation, it should be:
.Range("xxxxxxxxx").FormulaR1C1 = "'Preferred_Address_Indicator"
.Range("xxxxxxxxx").Formula = "=Switch2(Y2,""B"",
AH2,""H"",NOT(AH2),""O"")"
Paul
-----------------------------------------
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-----------------------------------------
________________________________
From: Greg <gamoun...@gmail.com>
To: excel-macros@googlegroups.com
Sent: Thu, October 25, 2012 4:56:46 PM
Subject: $$Excel-Macros$$ Help needed to write For/End loop using Range
statement ...
Hi,
I would like your help in writing a simple macro that will perform a "For/End"
loop around a ".Range" statement. I would like the cells in the Range statement
to increment by 1 for X number of times. My problem is I do not know how to
change the code so that the cells are incremented by the do loop. For example
the following code places content in cells AP1 and AP2:
With ActiveSheet
.Range("AP1").FormulaR1C1 = "'Preferred_Address_Indicator"
.Range("AP2").Formula = "=Switch2(Y2,""B"", AH2,""H"",NOT(AH2),""O"")"
End With
How do I replace the AP1 and AP2 so that it uses a do loop?
Thanks in advance for your assistance.
-Greg--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
6) Jobs posting is not allowed.
7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners
and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com.
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
6) Jobs posting is not allowed.
7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to
excel-macros+unsubscr...@googlegroups.com.
