How to check numeric?

[daniel50096230]

Hi,I would like to validate that the row that choose by the user is end with 3...Means 3,13,23,33...How can I validate it?

 

[xenou]

Validate in what way? -- Is this a macro? A formula?

= Right(RowValue,1) = 3

This would work in VBA or as a spreadsheet formula. You can use Row() to get the row value, i.e.:
=Right(Row(A3),1) = 3 | True
=Right(Row(A13),1) = 3 | True
=Right(Row(A20),1) = 3 | False

AB

 

[daniel50096230]

I would like to validate it using macro...If the user choose the row not end with 3,then a message box will be prompt.

 

[xenou]

In what way is the user choosing? Is this using the input box?

In short,

Sub test()
Dim r As Range

Set r = Application.InputBox(Prompt:="Pick a cell.", Type:=8)

If r.Rows.Count = 1 Then
    If Right(r.Row, 1) <> 3 Then
        MsgBox "Bad row!!"
    End If
Else
    MsgBox "You picked more than one row!!"
End If

End Sub

 

[daniel50096230]

Good,your code is excellent to my system...thanks.........But in the input box,if the user click Cancel without choosing any row,there will be error,may i know how to avoid this error?

 

[xenou]

Hi, in a hurry here but I think this will help out (it's my "canned" routine):

Sub InputBoxToSelectRange()
Dim r As Range

On Error GoTo Handler
Set r = Application.InputBox("Select the Range to Process", Type:=8)
On Error GoTo 0

~~Proceed with the rest of your routine here.

Handler:
MsgBox "You cancelled!!"
End Sub

You just use some on the spot error-handling to deal with that.