Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro not working
ok...let me say up front, that I don't really know what I'm doing, but
everyone has to start somewhere. This is my first non-recorded macro. I've created the following code. It seems to do what I want (because I can watch what it's doing), except that it doesn't seem to END. I get an out of stack space error. I'm sure this is some obvious mistake, but it eludes me. Anyone know what i am doing wrong? Sub eliminate_possabilities() Dim solutions As Range Dim cell As Range Dim before As Integer before = Range("BG31").Value Set solutions = ActiveSheet.Range("AF3:BF29") For Each cell In solutions If cell.Value = 1 Then cell.Offset(0, -30).ClearContents Else: End If Next cell Call CheckForChanges End Sub Sub CheckForChanges() Dim after As Integer after = Range("BG31").Value If after before Then Call eliminate_possabilities Else: End If End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro not working
Jonathan
You do not need the Else: statements, but your issue is that the variable 'before' is not available to the second procedure as it is declared inside the other module. Try moving the variable to the top of the module outside of any sub that should fix it -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk "Jonathan Cooper" wrote in message ... ok...let me say up front, that I don't really know what I'm doing, but everyone has to start somewhere. This is my first non-recorded macro. I've created the following code. It seems to do what I want (because I can watch what it's doing), except that it doesn't seem to END. I get an out of stack space error. I'm sure this is some obvious mistake, but it eludes me. Anyone know what i am doing wrong? Sub eliminate_possabilities() Dim solutions As Range Dim cell As Range Dim before As Integer before = Range("BG31").Value Set solutions = ActiveSheet.Range("AF3:BF29") For Each cell In solutions If cell.Value = 1 Then cell.Offset(0, -30).ClearContents Else: End If Next cell Call CheckForChanges End Sub Sub CheckForChanges() Dim after As Integer after = Range("BG31").Value If after before Then Call eliminate_possabilities Else: End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Keyboard shortcut not working when I copy macro to another computer | New Users to Excel | |||
Highlight Range - wrong macro, please edit. | Excel Worksheet Functions | |||
Remove Subtotal In Macro Not Working | New Users to Excel | |||
Copy cell format to cell on another worksht and update automatical | Excel Worksheet Functions | |||
Macro not working with Excel 2003 | Excel Discussion (Misc queries) |