Macro's owrite eachother

[brent1991]

Hello,

I'm pretty busy with an advanced excel sheet but I'm stuck with at the moment with one of my last VBA codes.

I'm using the following code:



Sub MG15Sep58()
Dim Budget As Double
Dim rTime As Long
Dim sMth As Long
Dim n As Long
Dim c As Long
Dim Lst As Integer
Dim st As Long
Lst = Range("C" & Rows.Count).End(xlUp).Row
If Lst >= 19 Then Range("C19").Resize(Lst - 18, 2).ClearContents
Budget = Range("C9"): rTime = Range("C10"): sMth = Range("C11")
c = 19
st = sMth - 1
For n = c To c + rTime - 1
Cells(n + st, 2) = MonthName(sMth)
Cells(n + st, 3) = Budget / rTime
sMth = sMth + 1
If sMth = 13 Then sMth = 1
Next n


End Sub

and in the next macro i'm using almost the same code but with a different input:

Sub MG15Sep59()
Dim Budget As Double
Dim rTime As Long
Dim sMth As Long
Dim n As Long
Dim c As Long
Dim Lst As Integer
Dim st As Long
Lst = Range("C" & Rows.Count).End(xlUp).Row
If Lst >= 19 Then Range("C19").Resize(Lst - 18, 2).ClearContents
Budget = Range("C15"): rTime = Range("C16"): sMth = Range("C17")
c = 19
st = sMth - 1
For n = c To c + rTime - 1
Cells(n + st, 2) = MonthName(sMth)
Cells(n + st, 3) = BudgetE / rTime
sMth = sMth + 1
If sMth = 13 Then sMth = 1
Next n


End Sub

When I try to get the results it is overwriting each other. The perfect situation is that he adds it to to other results

example:

if there is 0 and you need to add 20 the end result is 20
if there is 20 and you need to add 20 the end result is 40.

 

[brent1991]

How can it be overwriting? It's adding to what's already there:

Cells(n + st, 3).Value = Cells(n + st, 3).Value + (Budget / rTime)

I don't know. That's why i'm asking. Can i attach the document somewhere?

 

[Andrew Poulsom]

You can put the workbook on a share like Box.com and post the URL.

 

[brent1991]

You can put the workbook on a share like Box.com and post the URL.

The link: https://www.wetransfer.com/download...182c78c8835f05a1e765806720141007091221/a2256b

If you press the button 'verdeel budget' it will run the first macro.
If you press the button 'verdeel extra budget' it will run the second macro.

first click the first button, then the second. How can i solve the problem that it wil not erase the result of the first button?

 

[Andrew Poulsom]

You haven't changed:

Cells(n + st, 3) = Budget / rTime

to this:

Cells(n + st, 3).Value = Cells(n + st, 3).Value + (Budget / rTime)

 

[brent1991]

Sorry!

I did now. But it is still not working

 

[Andrew Poulsom]

I expect that's because you have:

If Lst >= 19 Then Range("C19").Resize(Lst - 18, 2).ClearContents

 

[brent1991]

I expect that's because you have:

If Lst >= 19 Then Range("C19").Resize(Lst - 18, 2).ClearContents

I think so to but what kind of code do i need to give the rang c19 until c42 without clear content?

 

[Andrew Poulsom]

Can't you just remove that line?

 

[brent1991]

How can it be overwriting? It's adding to what's already there:

Cells(n + st, 3).Value = Cells(n + st, 3).Value + (Budget / rTime)

true it is working now! I forgot some code!

Thanks!