copy certain cells

C

Curt

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
 
O

OssieMac

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Condition 4
Trigger Question 2
workbook event 2
triogger reset 0
Trigger or code 0
offset copy 4
Application Defined or object defined error..?Need help generic er 5
VBA Coding Help for Beginner 0

Top