copyng colum to rows on a specific criteria

[srinivasan1965]

Hi
I sincerly thank the forum for the help rendered to me so far.

We are using the attached excel file for sending maile merged lettes to client.
Since date are entered in text we are getting complaints for error on due amount on specific date
I request the formum to help me out with arrangement of colums to rows based on flat code
some flat code will have 5 colums some will have 10 colums depending upon the no of instalment agreed.

Example has been worked for the ist tow rows

I request the forum to help me out witt rows wise arragnment

after this arragement i think of using right 10 forumla for getting date and use privtable for getting flatwise sche amount.

I shall be much obliged if the forum could suggest a macro for getting flat wise schd amount on a specific date.
This wiill be helpful for sedning out error free letters.

Earlier the forum suggestd for code for row to coulm
the coding are given below
Sub ertert()
Dim x, i&, j&, k&, s$
x = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x), 1 To 5)

For i = 2 To UBound(x)
If x(i, 1) = s Then
j = j + 2: If j > UBound(y, 2) Then ReDim Preserve y(1 To UBound(y), 1 To j)
y(k, j - 1) = x(i, 2)
y(k, j) = x(i, 3)
Else
k = k + 1: j = 3
y(k, 1) = x(i, 1)
y(k, 2) = x(i, 2)
y(k, 3) = x(i, 3)
s = x(i, 1)
End If
Next i

Range("D2").Resize(k, UBound(y, 2)).Value = y()
End Sub

[nilem]

Hi srinivasan1965,

please use code tags around the code in your post (or simply remove this code)
and try this

Please Login or Register  to view this content.