Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find an Alphanumeric in across columns
I was helped by Chip in getting a code that will find an alphanumeric
across columns. Having columns C5 to F5 with numbers or texts and have G5 with a alphanumeric. It is possible to rewrite the following code without the loop code? 'This code is to find an alphanumeric to the right column Sub AAA() Dim R As Range Set R = Range("C1") '<<< SET TO YOUR CELL Do Until False If Len(R.Text) 0 Then If IsNumeric(R.Text) = False Then Exit Do Else If R.Column < R.Worksheet.columns.Count Then Set R = R(1, 2) Else Set R = Nothing Exit Do End If End If Else If R.Column < R.Worksheet.columns.Count Then Set R = R(1, 2) Else Set R = Nothing Exit Do End If End If Loop R.Select End Sub Ogopogo5 *** Sent via Developersdex http://www.developersdex.com *** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
find a alphanumeric in a list | Excel Worksheet Functions | |||
Find an Alphanumeric in a column | Excel Programming | |||
how do I sum columns with cells that contain alphanumeric data? | Excel Worksheet Functions | |||
importing alphanumeric columns from excel into SQL-Server or MS-Ac | Excel Programming | |||
How do I print in excell without alphanumeric columns on document. | Excel Worksheet Functions |