create a validation error pop-up message when cell left empty

[Megat91]

Hi,

i got a template to do for my staff. it contain 3 column, section (a), barcode (b) & quantity (c).
how do i create a error pop-up message if cell in column (b) was filled up, but column (c) left blank. because they tend to sometime forget to key column (c). help me! thanks a lot in advance!

can refer attached picture, i want to avoid the "green" color cell to left empty before they can proceed to key next cell (b4,c4)

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:C")) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case Is = 2
            If Target.Offset(, 1) = "" Then
                Target.Offset(, 1).Select
                MsgBox ("Please enter a quantity for barcode " & Target.Value & ".")
            End If
        Case Is = 3
            If Target.Offset(, -1) = "" Then
                Target.Offset(, -1).Select
                MsgBox ("Please enter a barcode.")
            End If
    End Select
End Sub

 

[Megat91]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:C")) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case Is = 2
            If Target.Offset(, 1) = "" Then
                Target.Offset(, 1).Select
                MsgBox ("Please enter a quantity for barcode " & Target.Value & ".")
            End If
        Case Is = 3
            If Target.Offset(, -1) = "" Then
                Target.Offset(, -1).Select
                MsgBox ("Please enter a barcode.")
            End If
    End Select
End Sub

above code work well, but it appear to popup right after column (b2) were filled by barcode.
but can the popup msg appear if person move down and click the (b3)? if they move to c2, no popup appear.
if not everytime column (b) was fill, the popup come out. it will slow down the process to key

 

[mumps]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Offset(-1) <> "" And Target.Offset(-1, 1) = "" Then
        Target.ClearContents
        Target.Offset(-1, 1).Select
        MsgBox ("Please enter a quantity for barcode " & Target.Offset(-1) & ".")
    End If
    Application.EnableEvents = True
End Sub

 

[Megat91]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Offset(-1) <> "" And Target.Offset(-1, 1) = "" Then
        Target.ClearContents
        Target.Offset(-1, 1).Select
        MsgBox ("Please enter a quantity for barcode " & Target.Offset(-1) & ".")
    End If
    Application.EnableEvents = True
End Sub

Hi, is there any other way than doing macro? any normal formula?. As the macro doesnt run on andriod excel version, hence when my staff use smartphone, all the popup not work

 

[mumps]

I don't think that a formula can do what you want.