How to apply a popup MsgBox for all rows

[Mr_Focal]

Hello,

I have a vba that shows me a popup MsgBox when the value in "Q3" > 0 the popup shows me a text and the value of this cell

[Private Sub Worksheet_Calculate()
If [Q3] > 0 Then MsgBox "Text " & Range("Q3")
End Sub]

I want this to happen for range "Q3:Q200"

Can someone help me out.

Thx

[mgs73]

The range Q3:Q200 contains 198 cells - if all the cells have values > 0 do you really want 198 MsgBoxes?

If so...

Please Login or Register  to view this content.

[Mr_Focal]

No I don't.

Thx for pointing out my mistake.
These cells can only contain numerical values, so if there are more cells with value > 0 I would like to see the sum of all these cells in 1 MsgBoxs preliminary with "text"

I hope you understand my explanation.

[mgs73]

How about this (I've assumed the numbers to be integers - if not change 'Long' to 'Double')

Please Login or Register  to view this content.

[Mr_Focal]

perfect it works great.
Just it gives a small difference in result because my "Q" column is limited to 2 decimal places.

Just 1 small question, is it normal that i have to click 3 times on ok (in the MsgBox) before it closes?

[Mr_Focal]

I sloved the clicking problem by using the VBA with at CommandButton

And by doing this i changed my workbook a little bit what brings me with the next question

I made this command button for every sheet.

Can I link these buttons when if you click on 1 CommandButton, 1 MsgBox will appaer with the sum of all the values of Column "Q" of all the sheets in this workbook together?

[mgs73]

Instead of using Worksheet_Calculate event in your sheet, you could use the Workbook_SheetCalculate event in the workbook object:

Please Login or Register  to view this content.

[Mr_Focal]

Thx for your help mgs73

Everything is working now.