Check row above for information if it has contents copypasteempty
Maybe...(but test it!):
Option Explicit
Sub testme()
Dim wks As Worksheet
Dim OpRow As Long
Dim LastRow As Long 'just because I like to use a variable
Set wks = ActiveSheet
With wks
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
'start at the bottom and work up
'stopping at row 3 so that row 2 isn't compared to row 1 (the header row)
For OpRow = LastRow To 3 Step -1
If Trim(.Cells(OpRow, "A").Value) = "" Then
'do nothing
Else
If Trim(.Cells(OpRow - 1, "A").Value) = "" Then
'do nothing
Else
.Cells(OpRow, "A").Value = "Closed"
End If
End If
Next OpRow
End With
End Sub
On 05/17/2010 11:32, TGalin wrote:
For Operation = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If Len(Application.Trim(Cells(Operation, "A")))< 1 Then Cells(Operation,
"A") = "Examine"
Next Operation
|