one liner required

[RET79]

I need to put the cells(2,4), Cells(3,5), cells(8,3) into Range("A1:A3") in a different workbook.

A one liner in VBA code would do the trick.

Any suggestions, thanks.

[RET79]

I meant the VALUE of cells(.....) into
Range("A1:A3")

Cheers

[Tommy Bak]

Hi ret
assuming that the sehhet with the cells is the selected one

Sheets(2).Range("a1:a3") = WorksheetFunction.Transpose(Array(Cells(2, 4).Value, Cells(3, 5).Value, Cells(8, 6)))

regards Tommy

[Tommy Bak]

sehhet = sheet

[Jay Petrulis]

On 2002-03-23 10:19, RET79 wrote:
I need to put the cells(2,4), Cells(3,5), cells(8,3) into Range("A1:A3") in a different workbook.

A one liner in VBA code would do the trick.

Any suggestions, thanks.

Hi,

Since you are going to have to reference two workbooks, a single line of code will be a mess to look at and debug.

---begin VBA---
Sub test()

Set orig = ThisWorkbook.Sheets("Sheet1")
Set dest = Workbooks("TestBook.xls").Sheets("Sheet1")

listarray = Array(orig.Cells(2, 4), orig.Cells(3, 5), orig.Cells(8, 3))
dest.Range("A1:A3") = WorksheetFunction.Transpose(listarray)

End Sub
---end VBA---

Bye,
Jay

[Abcd]

If you really need a one-liner, then if (and only if) the source sheet is the active sheet, the shortest code is probably :-

Workbooks("TestBook.xls").Sheets("Sheet1").[A1:A3].Value = WorksheetFunction.Transpose(Array([D2], [E3], [C8]))

If the source sheet is not the active sheet, then as Jay Petrulius mentions, a one-liner would be a bit unweildy.