Hej
jag sitter här och försöker få ihop min stränga så att den kan styra mina undermakron genom en loop, jag vill att om jag har två datum lägga till ett antal förprogramerade kolumner som avser i månader mellan datumen. där jag har fastat är just kopplingen mellan Datediff och loop.
Sub huvudmakro()
'Aktivera kalkylbladet
Worksheets("budget").Activate
'ta fram dolt blad
Sheets("Diagram helsida").Select
Sheets("Savedata").Visible = True
'Räkna ut datum differansen i antal månader
Dim dt1 As Date
Dim dt2 As Date
Dim n As Integer
Dim columnNo As Integer
dt1 = Range("C7")
dt2 = Range("C8")
n = DateDiff("m", dt1, dt2)
'loopa dessa makron tills antalet månader är uppfyllt
Do Until (F31) = n
Loop
Call budgetmakro
Call uppföljningmakro
Call prognosmakro
'Göm meta blad
Sheets("Savedata").Select
ActiveWindow.SelectedSheets.Visible = False
Worksheets("budget").Activate
End Sub