branching macro
Su
Go down one cell from a relative one, test for blank and execute a macro:
ActiveCell.Offset(1, 0).select
If ActiveCell.Value = "" then
Macro2
End If
or
If ActiveCell.Offset(1,0).Value = "" then
Macro2
End If
To test if the value is numeric:
If IsNumeric(ActiveCell.Value) Then
Blah, blah, blah
End if
Keep in mind just a few things: Offset(row, col). The first number
represents the number of rows and the second number represents the number of
columns. For rows, a positive number means a move down. A negative number
means a move up. For columns, a positive number means a move to the right and
a negative number means a move to the left.
Also, macros are simply public sub procedures in a module. You can call them
as you would any other sub procedure within the scope you're in. A public sub
procedure in a module has public scope, so you can call it from anywhere.
HTH!
"Branching macros" wrote:
I am trying to create a branching macro that tests for certain conditions and
then proceeds to one or more macros that then sub branch to other macros. Is
there any way for a macro to take a relative address, go down one cell, and
test to see if the cell is blank, or contains text or values. And is it
possible to have a macro branch to a new one, do that macro and then return
to the same relative space and continue at that point in the macro function?
|