Editing a macro

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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
 
"Can't get this to work " is not terribly descriptive. copy some
representative rows here or send me your workbook.
 
Hi Don,

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