Nested If problem

[tourless]

Hi Folks.

I'm having a problem with the following task... With range H4 to H last row, if cell begins with "Net", then look at cell in same row in Column D and if D cell value is positive number, place "1009992" into cell in same row in Column C. If H cell does not start with "Net", move on to the next row. I have captured my last row and can search the range for cells beginning with "Net" but then I'm lost with offsets and testing the value in D. Here's what I've got so far and it's not working at all.

With Sheets("My Sheet")
        For Each cell In .Range("H4:H" & lRow)
            If UCase(Left(cell.Value, 3)) = "Net" Then
                If ws.Cells(i, 4).Value > 0 Then
                ws.Cells(i, 3).Value = "1009992"
            End If
        Next
    End With

 

[tourless]

Hmmm... That is odd. "UCase" should not cause that kind of error.
If it works without it, that is fine, but just note that it must then equal "Net" exactly, and not something like "NET" or "net".

What type of values do you have in column H?

It's a payroll file I'm manipulating for proper import into QuickBooks. H values range from starting with 401 or a smattering of words but only a subset begin with the word Net, exactly as 'Net'. I've got more work to do on the file before it's ready but this was a big sticking point.

 

[Joe4]

OK. I am thinking that there may be some non-text values or something that it doesn't like applying the UCASE to (though when I tried blanks and numbers, I did not get any errors).
I suppose if it seems to work with that change, then just roll with it!