offset copy

C

Curt

Have the following code do not fully understand the parts. It works but I am
trying to only copy & paste part of the data. Data is in columns 'A' thru
'H'. I wish to copy
'A' thru 'E'. Have hit a brain dead spot.
If someone can define or set this code I think then I can get it.
Set rngPaste = rngPaste.Offset(0, 0)
Range(Target.Offset(0, -7), Target.Offset(0, -7)).Copy _
Destination:=rngPaste
rngPaste.Offset(0, 7) = Target
 
D

Don Guillett

Since you didn't include all code, it's hard to tell what you want. Maybe
this helps?
It will copy columns a-e for the target row.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a22")) Is Nothing Then
Target.Resize(, 5).Copy
End If
End Sub
 
C

Curt

Here is full code Your approch is different to me have not approached from
this way
seems you approach uses less code
Thanks for responce

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errhandler
Application.EnableEvents = False
If Target.Column = 8 And Target.Value <= 0 And IsNumeric(Target.Value)
Then _
Call CopyMailc(Target)
Application.EnableEvents = True
Exit Sub
errhandler:
Application.EnableEvents = True
End Sub
Public Sub CopyMailc(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Mailc")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
' recommend disabling events to block extra passes through
' Worksheet_Change caused by changing Donors cells
Application.EnableEvents = False
' option 2, next row down for demo purposes
Set rngPaste = rngPaste.Offset(0, 0)
Range(Target.Offset(0, -7), Target.Offset(0, -7)).Copy _
Destination:=rngPaste
rngPaste.Offset(0, 7) = Target
Application.EnableEvents = True
End Sub
 
T

Tom Ogilvy

Public Sub CopyMailc(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Mailc")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
' recommend disabling events to block extra passes through
' Worksheet_Change caused by changing Donors cells
Application.EnableEvents = False
' option 2, next row down for demo purposes
Target.Parent.Cells(Target.row, 1).Resize(1,5).Copy _
Destination:=rngPaste
Application.EnableEvents = True
End Sub

do nothing statements were removed.
 
C

Curt

Thanks so much sure takes someone smarter on this than I am. Knowung a few
words sure helps
Thanks Again
 

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
workbook event 2
Trigger Question 2
copy certain cells 1
triogger reset 0
Deleting specific information 1
input info when pasted in cells 5
Trigger or code 0

Top