Macro for if cell A2 has text then cell B2 must have numeric value.

[Admin]

Hi

Please do not quote the entire message

OK. Put this code in ThisWorkbook module (right click on ThisWorkbook)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    Dim r       As Range
    
    Const MySheet = "Sheet1"          '<<<<< adjust to suit
    Const MyRange = "A2:B32"          '<<<<< adjust to suit
    
    Set r = Worksheets(MySheet).Range(MyRange)
    
    If Application.WorksheetFunction.Count(r.Columns(2)) < _
        Application.WorksheetFunction.CountA(r.Columns(1)) Then
        MsgBox "Qty missing!", vbInformation
        On Error Resume Next
        Application.Goto r.Columns(2).SpecialCells(4)
        On Error GoTo 0
        Cancel = True
    End If
    
End Sub

Note: adjust the sheet name and the range accordingly.

[Carlos Arruda]

Hi.

I have tested your macro and works to an extent.

However, the following happened; ranges were A10 to B20

Cells
A10=text B10=1
A11=text B11=1
A12="empty cell B12=1
A13=text B13="empty cell"

and macro has failed to pick up empty cell B13.

I must say that this has been the hardest one to get any sort of info on the internet and I have googled but I am not program minded so I might even be looking for the wrong thing.

As I tend not to be clear with what I need sometimes I'll have it explained once again,

I have an invoice spreadsheet and B (B10 to B45) column is for QT which stands for quantity.

Column A (A10 to A45) is for item description and item is selected by a drop down list.

Columns C and D are for UOM (Unit Of Measure) and Price which are automatically fill with a vlookup formula that looks for the item selected in column A.

The macro or VB code I am after is to do the following;

Range A10 to A45, for every cell with an item or data/text if you like, then the equivalent line in column B must have quantity or in other words a numeric value.

And this is repeated throughout range A10 to A45. I was thinking of macro move on to next step when it finds an empty cell within this range but the problem is that my brother might skip a line in between and then it all goes bad once again.

One nice thing to have in place would be to have the macro popping up an inputBox when it does come across an empty cell in B column for the range in question and asks to input quantity in the cell but if I can get the first bit working as intended then I am happy.

I have tried to persuade my brother to purchase QB2013PRO, which is what I have for my small part time business and works as a treat, but hey he's just starting so I kind of understand him.

Many thanks for all the help and please lets make this work together. Well, I am not included obviously hence the reason I am here.

A very nice weekend to all.

Cheers.
Albert