Editing a macro

[Guest]

I want to revise the macro to state if column K is "" and column N is ""
delete the row and end else if K = "" and N is <> "" continue. I do not want
to copy N if it is blank......just delete the row.

Please help.
Thanks.



Dim nSheetRow As Long 'Current row being looked at
Dim bKeepGoing As Boolean 'Used to determine when to stop

bKeepGoing = True

nSheetRow = 6

Do While bKeepGoing
nSheetRow = nSheetRow + 1
sRange = "K" & nSheetRow
Range(sRange).Select

If Trim(Selection.Value) = "" Then I want to say if K = "" and
N = ""
sRange = "N" & nSheetRow end loop...otherwise continue
Range(sRange).Select
Selection.Copy

nSheetRow = nSheetRow - 1
sRange = "N" & nSheetRow
Range(sRange).Select
ActiveSheet.Paste

nSheetRow = nSheetRow + 1
sRange = "N" & nSheetRow
Range(sRange).Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
nSheetRow = nSheetRow - 1
End If

sRange = "A" & (nSheetRow + 1)
Range(sRange).Select
If Selection.Value = "" Then
bKeepGoing = False
End If
Loop
Range("A7").Select

Rows("6:70").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 11), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Range("A1").Select
End Sub

 

[Don Guillett]

something like this
sub deleterowsif()
for i= cells(rows.count,"k").end(xlup).row to 2 step-1
if cells(i,"k")="" and cells(i,"n")="" then rows(i).delete
next i
end sub

 

[Guest]

Don,
Can't get this to work...any other suggestions?

 

[Don Guillett]

"Can't get this to work " is not terribly descriptive. copy some
representative rows here or send me your workbook.

 

[Guest]

Hi Don,

Would you please reply if you get this message? I'm not receiving todays
discussions?????!!!!
thanks.

 

[Don Guillett]

got it