| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ISNULL( ) or something else...
I am having trouble making my macro run properly. The problem is happening
around the area with "!!!" Public Sub assign() Worksheets("Sheet3").Activate Dim xnode As Long Dim zrow As Long zrow = 2 xnode = 1 Do While Range("B" & zrow).Value < 0 Range("A" & zrow).Value = xnode xnode = xnode + 1 If Range("E" & zrow).Value < 0 Then Range("D" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! If Range("I" & zrow).Value < 0 Then Range("H" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! zrow = zrow + 1 Loop End Sub I am wanting it to put variable xnode into column H at row zrow. However, I only want it to do this IF the cell in column I row zrow is not empty. The result is that a value is put into H regardless of whether I has any values in it or not. Please help. Thanks. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ISNULL( ) or something else...
Have you tried
If Range("I" & zrow).Value < "" Then or If IsEmpty(Range("I" & zrow).Value) Then -- HTH RP (remove nothere from the email address if mailing direct) "Shane" wrote in message ... I am having trouble making my macro run properly. The problem is happening around the area with "!!!" Public Sub assign() Worksheets("Sheet3").Activate Dim xnode As Long Dim zrow As Long zrow = 2 xnode = 1 Do While Range("B" & zrow).Value < 0 Range("A" & zrow).Value = xnode xnode = xnode + 1 If Range("E" & zrow).Value < 0 Then Range("D" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! If Range("I" & zrow).Value < 0 Then Range("H" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! zrow = zrow + 1 Loop End Sub I am wanting it to put variable xnode into column H at row zrow. However, I only want it to do this IF the cell in column I row zrow is not empty. The result is that a value is put into H regardless of whether I has any values in it or not. Please help. Thanks. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ISNULL( ) or something else...
Change this line ...
If Range("I" & zrow).Value < 0 Then ... to this ... If Range("I" & zrow).Value < "" Then HTH -- Regards, Zack Barresse, aka firefytr, (GT = TFS FF Zack) "Shane" wrote in message ... I am having trouble making my macro run properly. The problem is happening around the area with "!!!" Public Sub assign() Worksheets("Sheet3").Activate Dim xnode As Long Dim zrow As Long zrow = 2 xnode = 1 Do While Range("B" & zrow).Value < 0 Range("A" & zrow).Value = xnode xnode = xnode + 1 If Range("E" & zrow).Value < 0 Then Range("D" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! If Range("I" & zrow).Value < 0 Then Range("H" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! zrow = zrow + 1 Loop End Sub I am wanting it to put variable xnode into column H at row zrow. However, I only want it to do this IF the cell in column I row zrow is not empty. The result is that a value is put into H regardless of whether I has any values in it or not. Please help. Thanks. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ISNULL( ) or something else...
Just to add to the excellent suggestions
If the change is If Range("I" & zrow).Text < "" Then then it should work in xl97 as well although I can think of some other drawbacks - but they should be rare another would be If Not IsEmpty(Range("I" & zrow)) then -- Regards, Tom Ogilvy "Zack Barresse" wrote in message ... Change this line ... If Range("I" & zrow).Value < 0 Then .. to this ... If Range("I" & zrow).Value < "" Then HTH -- Regards, Zack Barresse, aka firefytr, (GT = TFS FF Zack) "Shane" wrote in message ... I am having trouble making my macro run properly. The problem is happening around the area with "!!!" Public Sub assign() Worksheets("Sheet3").Activate Dim xnode As Long Dim zrow As Long zrow = 2 xnode = 1 Do While Range("B" & zrow).Value < 0 Range("A" & zrow).Value = xnode xnode = xnode + 1 If Range("E" & zrow).Value < 0 Then Range("D" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! If Range("I" & zrow).Value < 0 Then Range("H" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! zrow = zrow + 1 Loop End Sub I am wanting it to put variable xnode into column H at row zrow. However, I only want it to do this IF the cell in column I row zrow is not empty. The result is that a value is put into H regardless of whether I has any values in it or not. Please help. Thanks. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ISNULL( ) or something else...
Thank you for the help. I tried another similiar method shortly after
posting. I changed the "0" to Empty. It works now. Thanks! "Tom Ogilvy" wrote: Just to add to the excellent suggestions If the change is If Range("I" & zrow).Text < "" Then then it should work in xl97 as well although I can think of some other drawbacks - but they should be rare another would be If Not IsEmpty(Range("I" & zrow)) then -- Regards, Tom Ogilvy "Zack Barresse" wrote in message ... Change this line ... If Range("I" & zrow).Value < 0 Then .. to this ... If Range("I" & zrow).Value < "" Then HTH -- Regards, Zack Barresse, aka firefytr, (GT = TFS FF Zack) "Shane" wrote in message ... I am having trouble making my macro run properly. The problem is happening around the area with "!!!" Public Sub assign() Worksheets("Sheet3").Activate Dim xnode As Long Dim zrow As Long zrow = 2 xnode = 1 Do While Range("B" & zrow).Value < 0 Range("A" & zrow).Value = xnode xnode = xnode + 1 If Range("E" & zrow).Value < 0 Then Range("D" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! If Range("I" & zrow).Value < 0 Then Range("H" & zrow).Value = xnode xnode = xnode + 1 End If ' !!! zrow = zrow + 1 Loop End Sub I am wanting it to put variable xnode into column H at row zrow. However, I only want it to do this IF the cell in column I row zrow is not empty. The result is that a value is put into H regardless of whether I has any values in it or not. Please help. Thanks. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Test for null - insert a row if isnull | Excel Discussion (Misc queries) | |||
| Curious IsNull test | Excel Programming | |||
| problem using isnull() to check a value in ADODB.Recordset | Excel Programming | |||
| ISNULL function - can't find it | Excel Worksheet Functions | |||
Linear Mode
