| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
For Each code
How could I write the following code to get it to work? When I run it now I
get the Method 'Range' of object '_Global' failed message X = ActiveSheet.Range("A611").Value Y = ActiveSheet.Range("A612").Value Z = ActiveSheet.Range("A613").Value - 1 myRNG = Cells(28, X).Address myRNG1 = Cells(Y, 71).Address myRNG2 = Cells(Y, Z).Address If ActiveSheet.Range("A614").Value = 4 Then myLOC = "Excel.Range" & "(""" & myRNG & ":BY28, BS127:BY127, BS226:BY226, BS325:BY325" & """)" ElseIf ActiveSheet.Range("A614").Value = 5 Then myLOC = "Excel.Range" & "(""" & myRNG & ":BY28, BS127:BY127, BS226:BY226, BS325:BY325, BS424:" & myRNG2 & """)" ElseIf ActiveSheet.Range("A614").Value = 6 Then myLOC = "Excel.Range" & "(""" & myRNG & ":BY28, BS127:BY127, BS226:BY226, BS325:BY325, BS424:BY424, BS523:" & myRNG2 & """)" End If For Each cell In Range(myLOC) |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
For Each code
X = ActiveSheet.Range("A611").Value
Y = ActiveSheet.Range("A612").Value Z = ActiveSheet.Range("A613").Value - 1 myRNG = Cells(28, X).Address myRNG1 = Cells(Y, 71).Address myRNG2 = Cells(Y, Z).Address If ActiveSheet.Range("A614").Value = 4 Then Set myLOC = Range(myRNG & ", BY28, BS127:BY127, BS226:BY226, BS325:BY325") ElseIf ActiveSheet.Range("A614").Value = 5 Then Set myLOC = Range(myRNG & ",BY28, BS127:BY127, BS226:BY226, BS325:BY325, BS424," & myRNG2) ElseIf ActiveSheet.Range("A614").Value = 6 Then Set myLOC = Range(myRNG & ", BY28, BS127:BY127, BS226:BY226, BS325:BY325, BS424:BY424, BS523," & myRNG2) End If For Each cell In myLOC a = 1 Next cell "jnf40" wrote: How could I write the following code to get it to work? When I run it now I get the Method 'Range' of object '_Global' failed message X = ActiveSheet.Range("A611").Value Y = ActiveSheet.Range("A612").Value Z = ActiveSheet.Range("A613").Value - 1 myRNG = Cells(28, X).Address myRNG1 = Cells(Y, 71).Address myRNG2 = Cells(Y, Z).Address If ActiveSheet.Range("A614").Value = 4 Then myLOC = "Excel.Range" & "(""" & myRNG & ":BY28, BS127:BY127, BS226:BY226, BS325:BY325" & """)" ElseIf ActiveSheet.Range("A614").Value = 5 Then myLOC = "Excel.Range" & "(""" & myRNG & ":BY28, BS127:BY127, BS226:BY226, BS325:BY325, BS424:" & myRNG2 & """)" ElseIf ActiveSheet.Range("A614").Value = 6 Then myLOC = "Excel.Range" & "(""" & myRNG & ":BY28, BS127:BY127, BS226:BY226, BS325:BY325, BS424:BY424, BS523:" & myRNG2 & """)" End If For Each cell In Range(myLOC) |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
For Each code
It's not clear what you are trying to do, but maybe making 'myLOC'
only a string of cell address will avoid the error. For example, make the consequent of your first ElseIf: myLOC = myRNG & ":BY28, BS127:BY127,BS226:BY226, BS325:BY325, BS424:" & myRNG2 Note: myLOC....myRNG2 should be one line in your code. Similar for the other two lines starting with 'myLOC ='. Hth, Merjet |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
| Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
| Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
| Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming | |||
| stubborn Excel crash when editing code with code, one solution | Excel Programming | |||
Hybrid Mode
