I used the apostrophe so that any leading 0's wouldn't be lost from the policy
number. You can remove it/them if you don't want them.

"ielmrani via OfficeKB.com" wrote:

The reason I could not format it is because apostrophe got added to the
beginning of each number.

Dave Peterson wrote:
Record a macro when you change the formatting for those fields/columns. Include
that at the bottom of your existing macro.

And I'd bet you had something (a space character) in that last row. Clean up
your data and try again.

I made it work except for 2 things.
One:
[quoted text clipped - 34 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1

--

Dave Peterson

Thanks Dave. I removed them from the columns with the numbers and it worked.
One more thing but I am going to try to add myself first. I want to add a
label on top of the last 2 columns.

Like this:

Surrender Value
Amount Date

Surrender Value
Amount Date

Surrender Value
Amount Date

etc..

Dave Peterson wrote:
I used the apostrophe so that any leading 0's wouldn't be lost from the policy
number. You can remove it/them if you don't want them.

The reason I could not format it is because apostrophe got added to the
beginning of each number.
[quoted text clipped - 14 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1

In my original code, this did the headers:

oRow = oRow + 2
RptWks.Cells(oRow, "A").Value = "Policy#"
RptWks.Cells(oRow, "B").Value = "Company"

I'd suggest you change it to look like:

oRow = oRow + 2
RptWks.Cells(oRow, "A").Value = "Policy#"
RptWks.Cells(oRow, "B").Value = "Company"
rptwks.cells(orow, "C").value = "Surrender" & vblf & "Amount"
rptwks.cells(orow, "D").value = "Surrender" & vblf & "Date"

You may want to include code to wraptext and autofit the columns (record a macro
to see the syntax).

"ielmrani via OfficeKB.com" wrote:

Thanks Dave. I removed them from the columns with the numbers and it worked.
One more thing but I am going to try to add myself first. I want to add a
label on top of the last 2 columns.

Like this:

Surrender Value
Amount Date

Surrender Value
Amount Date

Surrender Value
Amount Date

etc..

Dave Peterson wrote:
I used the apostrophe so that any leading 0's wouldn't be lost from the policy
number. You can remove it/them if you don't want them.

The reason I could not format it is because apostrophe got added to the
beginning of each number.
[quoted text clipped - 14 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1

--

Dave Peterson

Great. Thanks

Dave Peterson wrote:
In my original code, this did the headers:

oRow = oRow + 2
RptWks.Cells(oRow, "A").Value = "Policy#"
RptWks.Cells(oRow, "B").Value = "Company"

I'd suggest you change it to look like:

oRow = oRow + 2
RptWks.Cells(oRow, "A").Value = "Policy#"
RptWks.Cells(oRow, "B").Value = "Company"
rptwks.cells(orow, "C").value = "Surrender" & vblf & "Amount"
rptwks.cells(orow, "D").value = "Surrender" & vblf & "Date"

You may want to include code to wraptext and autofit the columns (record a macro
to see the syntax).

Thanks Dave. I removed them from the columns with the numbers and it worked.
One more thing but I am going to try to add myself first. I want to add a
[quoted text clipped - 25 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200806/1


--
Message posted via http://www.officekb.com