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


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=546299

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"
wrote in message
...

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


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=546299

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

Regards,
Simon


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=546299