Copy and Paste 2 columns from a named range?

[Simon Lloyd]

Hi all,

I have some code that selects a named range and then copies it to a
location, is it possible to select the named range but just copy the
first 18 rows x 2 columns out of it, so if the named range dimension
was 18x4 just copy the contents of the named from columns A & B and
paste to location. I would also need to copy the code to another module
where in that instance it would copy the contents of the named range
from columns C & D.

Any ideas?, Here's the code im using to select the named range,

Regards,
Simon

Sub datachange()
Sheets("User Data").Visible = True

Application.Goto Reference:=Range("B3").Value
Selection.Copy
Sheets("Data View").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("User Data").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("Data View").Select
Range("A1").Select
Exit Sub
End Sub

 

[Norman Jones]

Hi Simon Try something like:

Dim rng As Range
Dim rng1 As Range
Dim rng2 As Range


Set rng = Range("NamedRange")

Set rng1 = rng.Resize(18, 2)
Set rng2 = rng.Offset(, 2).Resize(18, 2)



---
Regards,
Norman



"Simon Lloyd" <[email protected]>
wrote in message
news:[email protected]...

 

[Simon Lloyd]

Thanks Norman..............Worked a treat!

Regards,
Simon