Columns & Rows Help

Solved/Closed

futurepsych92 Posts 8 Registration date Monday 4 January 2016 Status Member Last seen 19 February 2016 - 4 Jan 2016 à 22:40
futurepsych92 Posts 8 Registration date Monday 4 January 2016 Status Member Last seen 19 February 2016 - 14 Jan 2016 à 18:11

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
How to delete rows and columns in word - Guide
Tweetdeck larger columns - Guide
Convert multiple rows to columns in excel macro - Guide
Repeat rows in excel - Guide
Excel drop down list multiple columns - Guide

2 responses

Réponse 1 / 2

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

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 4 January 2016 Status Member Last seen 19 February 2016
12 Jan 2016 à 12:22

It works! Thank you so much!

futurepsych92 Posts 8 Registration date Monday 4 January 2016 Status Member Last seen 19 February 2016
12 Jan 2016 à 16:38

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. :(

Réponse 2 / 2

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

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 4 January 2016 Status Member Last seen 19 February 2016
14 Jan 2016 à 18:11

Thanks!

Similar discussions

Convert data with rows into columns

Converting Rows of data into Columns

Compare values in two columns and return the value from third

How to transpose and move data

Similar discussions

Subscribe To Our Newsletter!