Scrape Data from Columns and Paste Into Rows

[largeselection]

Hi All -

Hope this is an easy question. I'm basically scraping data from an input sheet into a data sheet and it works great as long as the ranges I'm using are all rows, but it fails when I am trying to scrape the data into columns when the source is in rows. For example,

 .Range(.Cells(x, 8), .Cells(x, 18)).Value = Range(Sheets(s.Value).Cells(c.Row, 3), Sheets(s.Value).Cells(c.Row, 13)).Value

works great because I'm taking stuff in columns and setting it in other columns, but the below fails. How do I correct it?

.Range(.Cells(x, 4), .Cells(x, 7)).Value = Range(Sheets(s.Value).Cells(6, c.Column), Sheets(s.Value).Cells(9, c.Column)).Value

Thanks!

 

[johnnyL]

To put column data into a row Try:

.Range(.Cells(x, 4), .Cells(x, 7)).Value = Application.Transpose(Range(Sheets(s.Value).Cells(6, c.Column), Sheets(s.Value).Cells(9, c.Column)).Value)

 

[largeselection]

To put column data into a row Try:

.Range(.Cells(x, 4), .Cells(x, 7)).Value = Application.Transpose(Range(Sheets(s.Value).Cells(6, c.Column), Sheets(s.Value).Cells(9, c.Column)).Value)

Thank you that was a total brain fart on my end. I had originally tried putting Transpose around it, but forgot "Application." before it so it didn't work. THANKS

 

[johnnyL]

Glad to help.