Transpose Excel Spreadsheet
Posted on 2004-03-23
I have a spreadsheet that contains about 50 items. The list comes in as a field name and directly underneath it has the value. The problem is the list goes horizontal! We need the list to populate vertically so that we can paste it into a spreadsheet and determine if there are any errors without scrolling to the right. Can anyone help. I started to create a sub and get it to loop through it but I did not get very far at all. The Sub below does not store the information or anything. We also need new information to be overwritten each day. This is what I have thus far:
Dim dbs As Database, rst As Recordset, X As Integer, Y As String
Dim strSQL As String
' Return reference to current database.
Set dbs = CurrentDb
strSQL = "SELECT * FROM Consolidated"
Set rst = dbs.OpenRecordset(strSQL)
Do While X <> EOF
FieldName = rst.Fields(X).Value
FieldValue = rst.Fields(X).Name
Set dbs = Nothing
Any help would be greatly appreciated.