I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

As ALWAYS, post your coding efforts for comments and suggestions.

--
Don Guillett
SalesAid Software

"Wanna Learn" wrote in message
...
I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the
worksheet
and highlight the row in grey and make the font bold .

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson

Tey this:-
Dim rowNum
Dim colNum
rowNum = Range("a1").End(xlDown).Row
colNum = Range("a1").End(xlDown).End(xlToRight).Column

With Range(Cells(rowNum, 1), Cells(rowNum, colNum))
.Font.Bold = True
.Interior.ColorIndex = 15
End With

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson

What did you use?

And what did you try after you found that last row?

Wanna Learn wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental block
yesterday. The only thing I did different today was that I deleted the
first two rows in the worksheet that were blank. Again thank you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson

I'm not sure how this change would have helped--the code starts at the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental block
yesterday. The only thing I did different today was that I deleted the
first two rows in the worksheet that were blank. Again thank you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson

Dave
I'm in trouble again

Below is the macro I'm using (the one you gave me) BUT instead of
highlighting the last row it highlights and bolds the first row all the way
across to the last column in the spreadsheet. It should stop around column
Q .. thanks

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
'then format .rows(lastrow)

..Rows(LastRow).Font.Bold = True
.Rows(LastRow).Interior.ColorIndex = 15

End With

End Sub


"Dave Peterson" wrote:

I'm not sure how this change would have helped--the code starts at the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental block
yesterday. The only thing I did different today was that I deleted the
first two rows in the worksheet that were blank. Again thank you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson

I used column X to determine the last row. Make sure you change that to a
column that you can depend on having data.



Wanna Learn wrote:

Dave
I'm in trouble again

Below is the macro I'm using (the one you gave me) BUT instead of
highlighting the last row it highlights and bolds the first row all the way
across to the last column in the spreadsheet. It should stop around column
Q .. thanks

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
'then format .rows(lastrow)

.Rows(LastRow).Font.Bold = True
.Rows(LastRow).Interior.ColorIndex = 15

End With

End Sub

"Dave Peterson" wrote:

I'm not sure how this change would have helped--the code starts at the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental block
yesterday. The only thing I did different today was that I deleted the
first two rows in the worksheet that were blank. Again thank you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Dave
It works great! Yes once I changed that "X" to the last column with data it
worked.
THanks for making my day!

"Dave Peterson" wrote:

I used column X to determine the last row. Make sure you change that to a
column that you can depend on having data.



Wanna Learn wrote:

Dave
I'm in trouble again

Below is the macro I'm using (the one you gave me) BUT instead of
highlighting the last row it highlights and bolds the first row all the way
across to the last column in the spreadsheet. It should stop around column
Q .. thanks

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
'then format .rows(lastrow)

.Rows(LastRow).Font.Bold = True
.Rows(LastRow).Interior.ColorIndex = 15

End With

End Sub

"Dave Peterson" wrote:

I'm not sure how this change would have helped--the code starts at the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental block
yesterday. The only thing I did different today was that I deleted the
first two rows in the worksheet that were blank. Again thank you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Glad you got it working.

Wanna Learn wrote:

Dave
It works great! Yes once I changed that "X" to the last column with data it
worked.
THanks for making my day!

"Dave Peterson" wrote:

I used column X to determine the last row. Make sure you change that to a
column that you can depend on having data.



Wanna Learn wrote:

Dave
I'm in trouble again

Below is the macro I'm using (the one you gave me) BUT instead of
highlighting the last row it highlights and bolds the first row all the way
across to the last column in the spreadsheet. It should stop around column
Q .. thanks

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
'then format .rows(lastrow)

.Rows(LastRow).Font.Bold = True
.Rows(LastRow).Interior.ColorIndex = 15

End With

End Sub

"Dave Peterson" wrote:

I'm not sure how this change would have helped--the code starts at the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental block
yesterday. The only thing I did different today was that I deleted the
first two rows in the worksheet that were blank. Again thank you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Fun, huh?

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
Glad you got it working.

Wanna Learn wrote:

Dave
It works great! Yes once I changed that "X" to the last column with data
it
worked.
THanks for making my day!

"Dave Peterson" wrote:

I used column X to determine the last row. Make sure you change that
to a
column that you can depend on having data.



Wanna Learn wrote:

Dave
I'm in trouble again

Below is the macro I'm using (the one you gave me) BUT instead of
highlighting the last row it highlights and bolds the first row all
the way
across to the last column in the spreadsheet. It should stop
around column
Q .. thanks

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
'then format .rows(lastrow)

.Rows(LastRow).Font.Bold = True
.Rows(LastRow).Interior.ColorIndex = 15

End With

End Sub

"Dave Peterson" wrote:

I'm not sure how this change would have helped--the code starts at
the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental
block
yesterday. The only thing I did different today was that I
deleted the
first two rows in the worksheet that were blank. Again thank
you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that
always has
data is Q. I am overlooking something , sorry I just don't
get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the
row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add
a loop. (Hope
that is the term) I want to be able to go to the last row
in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Or just regular life.

Don Guillett wrote:

Fun, huh?

--
Don Guillett
SalesAid Software

"Dave Peterson" wrote in message
...
Glad you got it working.

Wanna Learn wrote:

Dave
It works great! Yes once I changed that "X" to the last column with data
it
worked.
THanks for making my day!

"Dave Peterson" wrote:

I used column X to determine the last row. Make sure you change that
to a
column that you can depend on having data.



Wanna Learn wrote:

Dave
I'm in trouble again

Below is the macro I'm using (the one you gave me) BUT instead of
highlighting the last row it highlights and bolds the first row all
the way
across to the last column in the spreadsheet. It should stop
around column
Q .. thanks

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
'then format .rows(lastrow)

.Rows(LastRow).Font.Bold = True
.Rows(LastRow).Interior.ColorIndex = 15

End With

End Sub

"Dave Peterson" wrote:

I'm not sure how this change would have helped--the code starts at
the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental
block
yesterday. The only thing I did different today was that I
deleted the
first two rows in the worksheet that were blank. Again thank
you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that
always has
data is Q. I am overlooking something , sorry I just don't
get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the
row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add
a loop. (Hope
that is the term) I want to be able to go to the last row
in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

--

Dave Peterson