| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
passing a non numeric cell for numeric comparison
Hello, I have a problem with my vba code,, which compares the values of first and second columns. And if value of first column is smaller than the second one, assigns "1" to third column.
However, if one of the cells is not numeric code stops to work and gives error. Unfortunately some of my cells have to be string. In that situation I just want to pass that row. How can I do it? I couldn't manage it. My codes are as below: For i = 1 To 100 If Sheets("Sheet1").Cells(i, 1) < Sheets("Sheet1").Cells(i, 2) Then Sheets("Sheet1").Cells(i, 3) = 1 Else Sheets("Sheet1").Cells(i, 3) = 0 End If Next I will be very glad if you help me. Thanks a lot. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
passing a non numeric cell for numeric comparison
Hi,
Am Tue, 28 Aug 2012 02:08:19 -0700 (PDT) schrieb oercim: However, if one of the cells is not numeric code stops to work and gives error. Unfortunately some of my cells have to be string. In that situation I just want to pass that row. How can I do it? I couldn't manage it. My codes are as below: For i = 1 To 100 If Sheets("Sheet1").Cells(i, 1) < Sheets("Sheet1").Cells(i, 2) Then Sheets("Sheet1").Cells(i, 3) = 1 Else Sheets("Sheet1").Cells(i, 3) = 0 End If Next try: For i = 1 To 100 With Sheets("Sheet1") If IsNumeric(.Cells(i, 1)) And _ IsNumeric(.Cells(i, 2)) Then .Cells(i, 3) = -(.Cells(i, 1) < .Cells(i, 2)) End If End With Next Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
passing a non numeric cell for numeric comparison
28 Ağustos 2012 Salı 12:24:19 UTC+3 tarihinde Claus Busch yazdı:
Hi, Am Tue, 28 Aug 2012 02:08:19 -0700 (PDT) schrieb oercim: However, if one of the cells is not numeric code stops to work and gives error. Unfortunately some of my cells have to be string. In that situation I just want to pass that row. How can I do it? I couldn't manage it. My codes are as below: For i = 1 To 100 If Sheets("Sheet1").Cells(i, 1) < Sheets("Sheet1").Cells(i, 2) Then Sheets("Sheet1").Cells(i, 3) = 1 Else Sheets("Sheet1").Cells(i, 3) = 0 End If Next try: For i = 1 To 100 With Sheets("Sheet1") If IsNumeric(.Cells(i, 1)) And _ IsNumeric(.Cells(i, 2)) Then .Cells(i, 3) = -(.Cells(i, 1) < .Cells(i, 2)) End If End With Next Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 Thank you very much Claus Busch. This was very helpful for me. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to delete numeric characters in a cell with alpha numeric char | Excel Programming | |||
| TO DELETE ONLY NUMERIC VALUES IN A CHARACTER AND NUMERIC CELL IN | Excel Discussion (Misc queries) | |||
| How do I copy numeric section of cell from alpha-numeric cell | Excel Worksheet Functions | |||
| only extract numeric value from alpha numeric cell | Excel Discussion (Misc queries) | |||
| Match Single Numeric Criteria and Return Multiple Numeric Labels | Excel Worksheet Functions | |||
Hybrid Mode
