Drawing a line for a set range


N

Neil

Hi

I currently have data in columns A - J.

I currently have a macro that separates the rows of data based on
variables (see below). What i need to incorporate into this is that
after each line is inserted to draw a line from Ax - Jx (where x is
the new row).



Sub Insert_Rows()

Rw = 2
LastRow = 20000

NxtChk:
If Cells(Rw, "B") <> Cells(Rw + 1, "B") Then
Rows(Rw + 1).EntireRow.Insert

Rw = Rw + 1

NewRow = NewRow + 1
End If

If Rw = LastRow + NewRow Then Exit Sub
Rw = Rw + 1

GoTo NxtChk

ActiveWindow.DisplayGridlines = False

End Sub

Any help would be greatly appreciated.

Thanks
Neil
 
Ad

Advertisements

A

AB

Why do you need a line? Wouldn't a Border do instead?

Have you tried recording a macro for what you need and then fine-
tuning it?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top