Populate a letter from a spreadsheet

LLG · June 21st, 2010, 06:40 AM

Dear all

I have a spreadsheet that has the following list:
Seqential No., Reference No., Date, Debit, Credit.

I want to able to write a report or letter (in Excel) that has a narrative in the begining and then it would say:

The following are your Debit entries:
and the VBA code will insert all the rows ( Ref. No., Date, Debit amount) from the above sheet that have a debit value here.

Then my report/letter would say:
The follwoing are you Credit entries:
and the VBA code will insert all Credit rows ( Ref. No., Date, Credit amount) from the above sheet here.

The thing is, the number of rows with Debit or Credit change from one month to another and from one customer to another.

Can somebody please help.
ps. My knowledge of VBA is zero.

Shasur · June 21st, 2010, 06:49 AM

Hi

Here is a sample

Code:

Sub Narrate_Letter()
Dim oWS As Worksheet
Dim oDS As Worksheet
Set oWS = Worksheets.Add
Set oDS = ActiveWorkbook.Sheets("debit")
oWS.Range("A1").Value = "The following are your Debit entries:"
oDS.UsedRange.Copy Destination:=oWS.Range("A2")
End Sub

I have assumed the debit entries to be in a sheet called 'debit'

Cheers
Shasur

LLG · June 21st, 2010, 07:06 AM

Thank you Shasur,

but I am afraid the code you gave me did the following:

1- created a new sheet in my workbook.
2- filled the first line in the spreadsheet with "The following are your Debit entries:"
3- Copied all the data from my original list here regardless of whether it is debit or credit.

I think we need to try again, but thanks all the same.
LLG