Can anyone help me with getting this VBA code to work in VBS? I have an excel macro that works great. It will take All data in column A and copy it to another worksheet but that X amount of rows and copy to columns. The data in column A repeats, for example every 6 row. the macro will take every 6 rows and copy to 6 columns on another worksheet. I have been trying to get this to work in VBS but I am stuck.
Here is the VBA code:
Here is the latest VBS code that just does not work.
It will loop thru all the data but does not copy. This is just a small part to the code but is where I am stuck.
Any help would be great! Thank you
Here is the VBA code:
Code:
For i = 1 To rngOrig.Count Step addressRows
With wsOutput
For j = 1 To addressRows
.Cells(Rows.Count, j).End(xlUp).Offset(1, 0) _
= rngOrig.Cells(i + j - 1, 1)Code:
For i = 1 To objrngOrig.Count Step objaddressRows
With objOutput
For j = 1 To objaddressRows
objExcel.Worksheets("Output Data").Cells(Count +1, j).End(xlUp).Value = objExcel.Worksheets("Temp").Cells(i + j - 1, 1).Value
Next
End With
NextAny help would be great! Thank you