Lege MsgBox

[ludo57]

Hallo,
Sub SalesQuarterly()
Dim q1 As Long, q2 As Long, q3 As Long, q4 As Long
Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range

Set rng1 = Range("B22")
Set rng2 = Range("E2:G2")
Set rng3 = Range("H2:J2")
Set rng4 = Range("K2:M2")

q1 = Application.WorksheetFunction.Sum(rng1)
q2 = Application.WorksheetFunction.Sum(rng2)
q3 = Application.WorksheetFunction.Sum(rng3)
q4 = Application.WorksheetFunction.Sum(rng4)
Als ik in het Immediatevenster de MsgBox aanroep voor q1, q2, q3 en q4 krijg ik een lege MsgBox.
Het is de bedoeling dat voor elke q (kwartaal) het totaal wordt weergegeven.
Wat doe ik fout ?
End Sub

 

[edmoor]

Laat hier ook even je MsgBox opdracht zien.

 

[ludo57]

MsgBox q1

 

[edmoor]

Dat werkt hier zonder probleem, plaats dus je document eens.

 

[VenA]

Lijkt mij een beetje veel code

voor q1

Sub VenA()
  MsgBox Application.Sum(Range("B2:D2"))
End Sub

 

[edmoor]

Tuurlijk. Maar ik ben wel benieuwd waarom zijn situatie niet werkt en hier wel

 

[VenA]

Ben ik ook benieuwd naar

Voor q1 t/m q4

Sub VenA()
Dim c00 As String, j As Long
For j = 2 To 13 Step 3
  c00 = c00 & "q" & (j + 1) / 3 & " " & Application.Sum(Cells(2, j).Resize(, 3)) & vbLf
Next j
MsgBox c00
End Sub

 

[ludo57]

Hoe moet je hier een bestand uploaden ?

 

[edmoor]

Klik op Ga geavanceerd en gebruik dan de knop met de paperclip.

 

[ludo57]

Bekijk bijlage Sales Data 4.xlsm

 

[VenA]

Wat is nu de vraag? De code in #5 en #7 werken toch beide?

 

[edmoor]

En in je eigen document gaat hier ook niets mis. msgbox q1 in het Direct venster geeft gewoon de juiste waarde.
Het is wel aan te bevelen de voorbeelden van VenA te gebruiken.

 

[ludo57]

Raar, nu doet ie het ineens wel.
En inderdaad, de code van VenA werkt perfect.
Thx voor de moeite.

 

[VenA]

Dat gaat dan leuk worden voor 40 regio's en 4 kwartalen

Zonder enige code