Previous Topic Next Topic

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.

2 responses

Answer 1 / 2
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
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
8
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!
0
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. :(
0
Answer 2 / 2
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
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
8
futurepsych92 Posts 8 Registration date Monday January 4, 2016 Status Member Last seen February 19, 2016
Jan 14, 2016 at 06:11 PM
Thanks!
0

Similar discussions

Comparing columns and returning value
ll -
kittu -

35 responses
Extract identical cells of 2 columns (excel)
Little bit lost -
keliza -

3 responses
Converting rows of data in notepad to columns
Need help -
Philgood_FR -

2 responses
Copy row and insert n times
Islandman -
sandy -

46 responses
Duplicate rows based on cell value
fireburn -
TrowaD -

16 responses