Macro works alone, but not in a loop.

[Joxon]

Hi everyone!

I have a problem.
When I run Macro4() below it works perfect.
But when I try to run it in a loop in macro3() I get problems. It jumps to cells it should not and behave strange. Any guesses why?


Sub Macro3()
Dim i As Integer
For i = 1 To 20
Call Macro4
Next i
End Sub

Sub Macro4()
Call Macro1
Call Macro2
End Sub

Thank you in advance.

Regards
Joxon

 

[DauntingGecko]

what do macro1 and 2 do?

 

[Joxon]

Sub Macro1()
ActiveCell.Offset(0, 6).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -6).Range("A1").Select
End Sub

Sub Macro2()
Application.SendKeys ("%=~")
End Sub

 

[j_latendre]

Why not just have this:

Sub Macro3()
Dim i As Integer
For i = 1 To 20
Call Macro1
Call Macro2
Next i
End Sub

Jesse

 

[Joxon]

Good point = ).
But I still get problems in the loop?

 

[Joxon]

In the loop macro It jumps like 80 rows and puts all sums after one another.
Really strange?

 

[j_latendre]

2 things, 1st off what exactly are you trying to achieve? And 2nd, I think its jumping down so far because you might have your active cell starting wrong, I would recommend adding in a line to say your starting position like this :

Sub Macro3()
Dim i As Integer
Range("A1").Select
For i = 1 To 20
Call Macro1
Call Macro2
Next i
End Sub

Jesse

 

[Joxon]

I have a dynamic list with subtotals. And I want to sum each subtotal.

12
5
Sum(17)
2
50
40
Sum(92)
2
sum(2)

and so on. The list is different each time. The macro should jump down to each sum() and sum the above numbers.

I still get the same fault even when i select a range.

Regards

jox

 

[j_latendre]

When I run the code I get the sums in column A, but it seems to not be filling the brackets with any information. What do you have these defined as?

%=~

Jesse

 

[Joxon]

%=~ is the command for autosum i Excel. But you have to exit the macro editor for it to work.

More Idees?