MsgBox if data entered in range is not numeric

Hi,

I would like to have a Msgbox appearing if the user enters data that is not numeric.

This should only apply for cells K2:K40

Any help is much appreciated,
Kbka

Hi,

Select the range, then goto the Data validation.
Select Decimal option and choose max and min range for the numeric values.
Then goto to Input Message tab and put the Title and Error message you want to display and finally click OK.

Hope it will help you.

Regards
taps

Hi,

You can also use below codes in a Command button to check the data type.

    Dim c As Range
    For Each c In Range("K2:K40").Cells
        c.Select
            If Not IsNumeric(ActiveCell.Value) Then
                MsgBox "The " & ActiveCell.Address & " cell does not contains numeric value"
            End If
        Exit Sub
        
    Next

Regards
taps

Great! Exactly what i need!

Regards,
Kbka