Downloading Refreshed Web Query Data into Adjacent Column

[SteveC]

Hi,

Assuming I have a web query that returns a column of data, is there away
that every time I refresh the web query that it downloads refreshed data into
the adjacent column automatically?

 

[Don Guillett]

Wasn't this asked and answered already?
Create a macro to copy/paste the data to another sheet >run the refresh.

 

[SteveC]

Thanks... could you point me to the post that has this macro script to
perpetually copy/paste to an adjacent column on another worksheet? I've been
searching for an hour now and no luck.

So from worksheet 1 col a, paste to worksheet 2 col b, then worksheet 1 col
a to worksheet 2 col c, then worksheet 1 col a to worksheet 2 col d, etc...

where the columns to be pasted to are not defined by column headings, but
the next available empty column.

I suck at macros, by the way... thanks for your help!

 

[Don Guillett]

Probably just easier to send me the workbook.

 

[Don Guillett]

this will do it from your workbook
Sub transposequerydata() 'Don Guillett SalesAid Software
With Sheets("WebQuery")
sfr = .Cells.Find("DJ Industrial Average").Row
sfc = .Cells.Find("DJ Industrial Average").Column + 1
slr = .Cells(Rows.Count, "b").End(xlUp).Row
dlr = Sheets("Database Transpose") _
.Cells(Rows.Count, "b").End(xlUp).Row + 1
.Range(Cells(sfr, sfc), Cells(slr, sfc)).Copy
Sheets("Database Transpose").Cells(dlr, "b") _
.PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
Application.CutCopyMode = False
End Sub

 

[SteveC]

thanks!

this will do it from your workbook
Sub transposequerydata() 'Don Guillett SalesAid Software
With Sheets("WebQuery")
sfr = .Cells.Find("DJ Industrial Average").Row
sfc = .Cells.Find("DJ Industrial Average").Column + 1
slr = .Cells(Rows.Count, "b").End(xlUp).Row
dlr = Sheets("Database Transpose") _
.Cells(Rows.Count, "b").End(xlUp).Row + 1
.Range(Cells(sfr, sfc), Cells(slr, sfc)).Copy
Sheets("Database Transpose").Cells(dlr, "b") _
.PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
Application.CutCopyMode = False
End Sub