Hello,
I want to format my columns wth borders, but if I select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user wants
to print report it doesn't show Borders all the way down.

Please advise any info. would appreciate it.

Thanks,

Juan

iLastRow = Cells(Rows.Count,"A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Juan" wrote in message
...
Hello,
I want to format my columns wth borders, but if I select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user wants
to print report it doesn't show Borders all the way down.

Please advise any info. would appreciate it.

Thanks,

Juan

Hello Bob,
not working. is there more to the code? Also Ken, When I
do your way it deletes my other Conditional formatting. I
have a formalu that looks for the word Total and formats
that row. I'll continue playing with it, but would like
any suggestions.

Thanks both of you.

Juan
-----Original Message-----

iLastRow = Cells(Rows.Count,"A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Juan" wrote in message
...
Hello,
I want to format my columns wth borders, but if I select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user wants
to print report it doesn't show Borders all the way
down.

Please advise any info. would appreciate it.

Thanks,

Juan


.

Hi Juan,

I have just tested it again, and I put three values in A1, A2, A3 and ran
the code. Selected A4:G4 fine.

What happens with you?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Juan" wrote in message
...
Hello Bob,
not working. is there more to the code? Also Ken, When I
do your way it deletes my other Conditional formatting. I
have a formalu that looks for the word Total and formats
that row. I'll continue playing with it, but would like
any suggestions.

Thanks both of you.

Juan
-----Original Message-----

iLastRow = Cells(Rows.Count,"A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Juan" wrote in message
...
Hello,
I want to format my columns wth borders, but if I select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user wants
to print report it doesn't show Borders all the way
down.

Please advise any info. would appreciate it.

Thanks,

Juan


.

Hello Bob,
I get error Method Range of object_Global failed. This is
portion of my macro:
Columns("D:J").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
iLastRow = Cells(Rows.Count, "A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

End Sub
Please advise.
thanks,
juan
-----Original Message-----
Hi Juan,

I have just tested it again, and I put three values in
A1, A2, A3 and ran
the code. Selected A4:G4 fine.

What happens with you?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Juan" wrote in message
...
Hello Bob,
not working. is there more to the code? Also Ken, When I
do your way it deletes my other Conditional formatting.
I
have a formalu that looks for the word Total and formats
that row. I'll continue playing with it, but would like
any suggestions.

Thanks both of you.

Juan
-----Original Message-----

iLastRow = Cells(Rows.Count,"A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the
Purbecks
(remove nothere from the email address if mailing
direct)

"Juan" wrote in message
...
Hello,
I want to format my columns wth borders, but if I
select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user
wants
to print report it doesn't show Borders all the way
down.

Please advise any info. would appreciate it.

Thanks,

Juan


.



.

Juan,

This is what I meant

iLastRow = Cells(Rows.Count, "D").End(xlUp)
Range("D" & iLastRow & ":J" & iLastRow).Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"juan" wrote in message
...
Hello Bob,
I get error Method Range of object_Global failed. This is
portion of my macro:
Columns("D:J").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
iLastRow = Cells(Rows.Count, "A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

End Sub
Please advise.
thanks,
juan
-----Original Message-----
Hi Juan,

I have just tested it again, and I put three values in
A1, A2, A3 and ran
the code. Selected A4:G4 fine.

What happens with you?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Juan" wrote in message
...
Hello Bob,
not working. is there more to the code? Also Ken, When I
do your way it deletes my other Conditional formatting.
I
have a formalu that looks for the word Total and formats
that row. I'll continue playing with it, but would like
any suggestions.

Thanks both of you.

Juan
-----Original Message-----

iLastRow = Cells(Rows.Count,"A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the
Purbecks
(remove nothere from the email address if mailing
direct)

"Juan" wrote in message
...
Hello,
I want to format my columns wth borders, but if I
select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user
wants
to print report it doesn't show Borders all the way
down.

Please advise any info. would appreciate it.

Thanks,

Juan


.



.

So use Conditional Formatting. Assuming one of those columns will always have
data in it if any exists for that row, then just tie a CF formula to it, eg:-

Select A:G do Format / Cond Formatting - Formula Is =$A1<"" then hit the
format button and chosee left and right borders. Any time there is data in a
row in Col A, you will have borders from A:G

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"Juan" wrote in message
...
Hello,
I want to format my columns wth borders, but if I select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user wants
to print report it doesn't show Borders all the way down.

Please advise any info. would appreciate it.

Thanks,

Juan


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.658 / Virus Database: 421 - Release Date: 09/04/2004