find last row used and then get text from cells in row 1 throught to last used in a string

[tony.reynolds]

im new here but if someone can help it would be appreciated.

Working on an "Orders" Workbook

I have 3 columns of data on 10 rows i want to get text from

A = QTY
B = Description
C = Partnumber

what i need to do is end up with the
partnumber1 then a comma then the qty1 then a new line
partnumber2 then a comma then the qty2 .. so on until the last row used.

if you can imagine i have PART1, PART2 and so on down my spreadsheet then in qty column i have QTY1, QTY2...

the data in this text format

partnumber1,qty1
partnumber2,qty2
partnumber3,qty3
partnumber4,qty4

this needs to be on the clip board for pasting ctrl V into a order page on a website

To test it i paste into a text file

so far i have a code that places the result in cel D1 but is as far as my green brain can take it..

Sub RS()

RSData = Range("C1").Text & "," & Range("A1").Text & Chr(10) & Range("C2") & "," & Range("A2")

Range("D1") = RSData

End Sub

 

[machopicho]

Try this:

Sub RS()
For r = 1 To 10
RSData = Cells(r, 3).Text & "," & Cells(r, 1).Text
Cells(r, 4) = RSData
Next
End Sub

 

[tony.reynolds]

thanks that worked..

Really good help..