Columns & Rows Help

Solved/Closed

futurepsych92 Posts 8 Registration date Monday January 4, 2016 Status Member Last seen February 19, 2016 - Jan 4, 2016 at 10:40 PM
futurepsych92 Posts 8 Registration date Monday January 4, 2016 Status Member Last seen February 19, 2016 - Jan 14, 2016 at 06:11 PM

Hello all,

In short, here is what I need help doing:

I would like to take 15 items in one column and transfer them into a row in another spreadsheet. When the items are transferred, I would like for them to be pasted every 3 spaces. For example, if something is pasted in (1,3), then the next item will be pasted in (1,6).

Thank you so much for your help.

Columns & Rows Help
Tweetdeck larger columns - Guide
How to delete rows and columns in word - Guide
Display two columns in data validation list but return only one - Guide
Excel columns changed to numbers - Guide
How to insert multiple rows in microsoft excel - Guide

2 responses

Answer 1 / 2

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Contributor Last seen December 27, 2022 555
Jan 12, 2016 at 11:17 AM

Hi Futurepsych92,

Here you go:

Sub RunMe()
Dim x As Integer

Sheets("Sheet1").Select

For Each cell In Range("A1:A15")
    x = x + 3
    cell.Copy Sheets("Sheet2").Cells(1, x)
Next cell
End Sub

Best regards,
Trowa

futurepsych92 Posts 8 Registration date Monday January 4, 2016 Status Member Last seen February 19, 2016
Jan 12, 2016 at 12:22 PM

It works! Thank you so much!

futurepsych92 Posts 8 Registration date Monday January 4, 2016 Status Member Last seen February 19, 2016
Jan 12, 2016 at 04:38 PM

Hi Trowa,

I have a quick question:

While the Macro works, I need for it to copy every four spaces starting from Cell (2,2).

So, it would be Cell (2,2), then (2,6), then (2,10)....

How would I alter this Macro to make it do this?

I apologize, I accidentally made a mistake in my original request for help. :(

Answer 2 / 2

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Contributor Last seen December 27, 2022 555
Jan 14, 2016 at 11:32 AM

Hi Futurepsych92,

Apology accepted :).

Here you go:

Sub RunMe()
Dim x As Integer

Sheets("Sheet1").Select
x = 2

For Each cell In Range("A1:A15")
    cell.Copy Sheets("Sheet2").Cells(2, x)
    x = x + 4
Next cell
End Sub

Best regards,
Trowa

futurepsych92 Posts 8 Registration date Monday January 4, 2016 Status Member Last seen February 19, 2016
Jan 14, 2016 at 06:11 PM

Thanks!

Similar discussions

How to add Rows automatically based on Cell Value In Excel?

Macro to Select Multiple Columns by Columns Specific Headings to Delete Dupes

Excel Macro - Set and autofill a range?

Similar discussions

Subscribe To Our Newsletter!