VBA Loop

[Juanseefour]

Hi Folks,

So need a bit of help. I have hh/raw electricity data that goes horizontaly and i need a vba loop to transpose it vertically. If that makes sense.

EG. raw data

Day-00:30 next column 01:00 etc

I need it to go vertically (not being lazy) but this is over 5,000 odd rows.

Any help would be greatly appreciated please.

 

[ranman256]

cant you supply an example?

 

[Juanseefour]

Got there in the end, here is an example if anyone has the pleasure of working with lots of HH electricity data. Thanks for trying to help. Was under bit of pressure so had to batter through!

Sub NewMacro()

Dim count As Integer
Dim valueofOffset As Integer
count = 3
valueofOffset = 1
Worksheets.Add().Name = "WorkingSheet"
Worksheets("WorkingSheet").Range("B2").Value = "DATETIME"
Worksheets("WorkingSheet").Range("C2").Value = "HH Reading"

Dim dateRange As Range
Set dateRange = Worksheets("Meter Reading Table").Range("B2:B800")
Dim hourRange As Range
Set hourRange = Worksheets("Meter Reading Table").Range("C1:AX1")
For Each d In dateRange.Cells

For Each h In hourRange.Cells

Worksheets("WorkingSheet").Cells(count, "B").Value = d.Value + "_" + h.Value
Worksheets("WorkingSheet").Cells(count, "C").Value = h.offset(valueofOffset, 0)

count = count + 1

Next h

valueofOffset = valueofOffset + 1

Next d