Drag horizontal with spaces

JimmyBambo

New Member
Joined
Dec 8, 2018
Messages
30
Hi friends,
I have one issue which I cant resolve.
So I have sheet1 with vertical list:
Name
Name1
Name2
Name3
Name4 etc...

And I have to link it on sheet2, but on every fourth cell and horizontal.
So it should be in link like:
Name (empty cell) (empty cell) (empty cell) Name1 (empty cell) (empty cell) (empty cell) Name2 (empty cell)(empty cell)(empty cell) etc...
I could do that by linking cell by cell, but I have 1000 "Name" cells in sheet1 which should be transfered on sheet2, so the easiest way will be with dragging.

Thank you in advance :)
 

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.
Assuming data starts in Sheet1!A1

in Sheet2!A1
=IF(MOD(COLUMN()-1,4)=0,INDEX(Sheet1!$A$1:$A$1000,QUOTIENT(COLUMN()-1,4)+1,1),"")
and copy across the columns
 
Last edited:
Upvote 0
Thank you for your fast reply. Formula works, but unfortunately, not in my case.
https://ibb.co/dQBrgPn
Here is the picture of problem.
Name 1 should be in "AE" column, instead of that, I got NAME 8 in "AG" column.
Since I am not very familiar with these commands, I made somewhere mistake, but I cant recognize where.
 
Upvote 0
Thank you.
I changed some parameters in formula, and now it works.
Unfortunately, I lost "center across selection" alignment.
Is is any chance to make "center across selection" in this case?
 
Last edited:
Upvote 0
I've never used "Center across alignment" but thats sounds like a formatting thing.
Just format the cells.
This is not possible with a formula (I think).
 
Last edited:
Upvote 0
Here is a macro that will put a direct formula reference in AE1, AI1, AM1, AQ1, etc. on Sheet2 to the names in cells A1, A2, A3, etc. on Sheet1 and then automatically use Center Across Selection on the formula cell along with its next 3 adjacent cells.
Code:
Sub ReferenceNames()
  Dim R As Long, LastRow As Long
  LastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
  Sheets("Sheet2").Range("AE1", Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft)).Clear
  For R = 1 To LastRow
    With Sheets("Sheet2").Range("AA1").Offset(, 4 * R)
      .Formula = "=Sheet1!A" & R
      .Resize(, 4).HorizontalAlignment = xlHAlignCenterAcrossSelection
    End With
  Next
End Sub
Note: If you change the list of names on Sheet1, simply run the macro again and it will clear out the old formula references and reestablish them (along with the formatting) for the new name list.
 
Last edited:
Upvote 0
Thank you. This VBA works perfectly.
Can you please change only to start taking amounts from sheet1 A2 (since A1 is reserved for description of column)?
 
Upvote 0
Thank you. This VBA works perfectly.
Can you please change only to start taking amounts from sheet1 A2 (since A1 is reserved for description of column)?
This should do it...
Code:
Sub ReferenceNames()
  Dim R As Long, LastRow As Long
  LastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
  Sheets("Sheet2").Range("AE1", Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft)).Clear
  For R = 2 To LastRow
    With Sheets("Sheet2").Range("W1").Offset(, 4 * R)
      .Formula = "=Sheet1!A" & R
      .Resize(, 4).HorizontalAlignment = xlHAlignCenterAcrossSelection
    End With
  Next
End Sub
 
Upvote 0

Forum statistics

Threads
1,213,494
Messages
6,113,988
Members
448,538
Latest member
alex78

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top