Paste =Sheet1 instead of actual values ?

[mmenashe]

I have an excel sheet

Excel Workbook
	B
3	dog
4	cat
5	bird
6	horse
Sheet1

Excel Workbook
	A	B	C	D	E	F
1
2		dog	cat	bird	horse
3
Excel 2003 I want to paste on the next heet Sheet2

Excel 2003

Cell Formulas
Range	Formula
B2	=Sheet1!B3
C2	=Sheet1!B4
D2	=Sheet1!B5
E2	=Sheet1!B6

but, I dont want to manually link each cell, Id like to copy the first selection, and somehow paste w/ transpose...so that when I make changes to the first sheet, its gets reflected on there

right now, I have to manually go to each cell and select it, its a pain

any ideas?

thanks

Matt

 

[pboltonchina]

Try this, it works for me. Put the code in the workbook

Option Explicit

Sub Macro1()
'
    Cells(Rows.Count, "B").End(xlUp).Select
    Range(Selection, Cells(2)).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        Application.CutCopyMode = False
                
End Sub

 

[MrKowz]

We can do this with an OFFSET and COLUMN formula:

<b>Excel 2003</b><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><colgroup><col width="25px" style="background-color: #E0E0F0" /><col /></colgroup><thead><tr style=" background-color: #E0E0F0;text-align: center;color: #161120"><th></th><th>B</th></tr></thead><tbody><tr ><td style="color: #161120;text-align: center;">3</td><td style=";">dog</td></tr><tr ><td style="color: #161120;text-align: center;">4</td><td style=";">cat</td></tr><tr ><td style="color: #161120;text-align: center;">5</td><td style=";">bird</td></tr><tr ><td style="color: #161120;text-align: center;">6</td><td style=";">horse</td></tr></tbody></table><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style="background-color: #E0E0F0;text-align: center;color: #161120"><th><b>Sheet1</b></th></tr></td></thead></table><br /><br />

<b>Excel 2003</b><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><colgroup><col width="25px" style="background-color: #E0E0F0" /><col /><col /><col /><col /></colgroup><thead><tr style=" background-color: #E0E0F0;text-align: center;color: #161120"><th></th><th>B</th><th>C</th><th>D</th><th>E</th></tr></thead><tbody><tr ><td style="color: #161120;text-align: center;">2</td><td style=";">dog</td><td style=";">cat</td><td style=";">bird</td><td style=";">horse</td></tr></tbody></table><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style="background-color: #E0E0F0;text-align: center;color: #161120"><th><b>Sheet2</b></th></tr></td></thead></table><br /><br /><table width="85%" cellpadding="2.5px" rules="all" style=";border: 2px solid black;border-collapse:collapse;padding: 0.4em;background-color: #FFFFFF" ><tr><td style="padding:6px" ><b>Worksheet Formulas</b><table cellpadding="2.5px" width="100%" rules="all" style="border: 1px solid;text-align:center;background-color: #FFFFFF;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style=" background-color: #E0E0F0;color: #161120"><th width="10px">Cell</th><th style="text-align:left;padding-left:5px;">Formula</th></tr></thead><tbody><tr><th width="10px" style=" background-color: #E0E0F0;color: #161120">B2</th><td style="text-align:left">=OFFSET(<font color="Blue">Sheet1!$B$3,COLUMN(<font color="Red">B3</font>)-COLUMN(<font color="Red">$B$3</font>),0</font>)</td></tr></tbody></table></td></tr></table><br />