I wish to copy only the listed cells Range does not like my way of saying
this. Range target offset is the area I am having problem. Is it poss to only
copie the listed cells? This procedure is called from action on another
sheet. The cells to copy are on that sheet. they are column(A_D_E_F_H_M) M is
trigger cell on sheet.
Thanks to all we sure do get ourselves into things.
Thanks

Public Sub CopyDoIt(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Announcer")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
Application.EnableEvents = False
Set rngPaste = rngPaste.Offset(0, 0)

Range(Target.Offset(0, -12), Target.Offset(0, 0), (-1), (4), (5), (8),
(13)).Copy _

Destination:=rngPaste
rngPaste.Offset(0, 6) = Target
Application.EnableEvents = True
End Sub

Hi Curt,

Have a look at the example. I simply dummied up some info but I think that
it might explain enough for you to achieve your goal.

Sub Test_Multi_Rnge_Copy()

Dim targDummy As Range
Dim rngPaste As Range
Dim myMultipleRange As Range

Set targDummy = Range("N3")
Set rngPaste = Range("N1")
Range("A1").Select

Set myMultipleRange = _
Union(targDummy.Offset(0, -12), _
targDummy.Offset(0, 0), _
targDummy.Offset(0, -1), _
targDummy.Offset(0, 4), _
targDummy.Offset(0, 5), _
targDummy.Offset(0, 8), _
targDummy.Offset(0, 13))

myMultipleRange.Copy Destination:=rngPaste

End Sub


Hope it helps.

Regards,

OssieMac


"Curt" wrote:

I wish to copy only the listed cells Range does not like my way of saying
this. Range target offset is the area I am having problem. Is it poss to only
copie the listed cells? This procedure is called from action on another
sheet. The cells to copy are on that sheet. they are column(A_D_E_F_H_M) M is
trigger cell on sheet.
Thanks to all we sure do get ourselves into things.
Thanks

Public Sub CopyDoIt(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Announcer")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
Application.EnableEvents = False
Set rngPaste = rngPaste.Offset(0, 0)

Range(Target.Offset(0, -12), Target.Offset(0, 0), (-1), (4), (5), (8),
(13)).Copy _

Destination:=rngPaste
rngPaste.Offset(0, 6) = Target
Application.EnableEvents = True
End Sub