doesn't run macro if the adjacent cell doesn't contains numeric except zero or empty

[Maklil]

Hello

in last cell for column A contains TOTAL word and adjacent cell in column F contains formula to sum the values from row 20 .

so what I want if I click button is linked with my code and the last cell in column F for adjacent cell in TOTAL word contains zero or empty cell , then should pops message " you should fill numeric values in column F" and disable the code and if the last cell contains numeric values except zero , then should macro works when click button ( the button is not ACTIVE X).

with considering the numbers in column F and last cell for adjacent cell(TOTA) will be #,##0.00

thanks

 

[Anthony47]

Try inserting this snippet at the beginning of your macro:

Dim TotR As Long


TotR = Cells(Rows.Count, "A").End(xlUp).Row
If Cells(TotR, "F") = 0 Then
    MsgBox ("you should fill numeric values in column F. Macro is terminated")
    Exit Sub
End If
'
'your macro continues
'
'

 

[Maklil]

thank you .
the message show all of in the cases whether zero or not in lastrow for column F, any idea to fix it?

 

[Anthony47]

I understood that the last cell in column A contains the word TOTAL, whereas on the same line column F shows a total; so my snippet find the last compiled cell in column A, look in col F of that line and check if it contains Zero o Non-zero
Does column A contains formulas below the row that shows TOTAL?

Anyway, try replacing the current Dim TotR As Long and line TotR = Cells(Rows.Count, "A").End(xlUp).Row with

Dim TotR As Variant

TotR = Application.Match("TOTAL", Range("A1:A100000"), False)
Debug.Print "TotR=" & TotR

If it doesn't work, or a run-time error is shown, enter the Debug mode, then open the vba "Immediate window" (typing Contr-g should do the job; or Menu /View /Immediate window) anche check which value is shown for TotR: should be the line with Total; if Error 2042 double check that column A contains "TOTAL" without extra spaces

 

[Maklil]

I understood that the last cell in column A contains the word TOTAL, whereas on the same line column F shows a total;

yes that's correct

Does column A contains formulas below the row that shows TOTAL?

surely not.
unfortunately the same result.

 

[Anthony47]

But you forget to examine and tell us the debug information in the vba "Immediate window"...

 

[Maklil]

sorry !
it gives F39 and this is what shows value .

 

[Anthony47]

So debug info says TotR=39? Does A39 contains the word TOTAL?
And which is the content of F39 (of the same sheet)?
And what happens with your whole macro? It it executed till the end or the MsgBox ("you should fill numeric etc etc) is shown?

 

[Maklil]

And which is the content of F39 (of the same sheet)?

now I understood my bad ! , sorry !
I have to indicate sheet reference .
now your code works perfectly .
thank you so much