Condition

[Guest]

following code works fine. Want if column (B) has (X) then target -10 else no
(X) target
not sure how to phrase this
Thanks

Public Sub CopyDonors(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Donors")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(0, 0)
Application.EnableEvents = False
Set rngPaste = rngPaste.Offset(1, 0)
Range(Target.Offset(0, -7), Target.Offset(0, 0)).Copy _
Destination:=rngPaste
rngPaste.Offset(0, 7) = Target - 10
Application.EnableEvents = True
End Sub

 

[Guest]

Curt, do you want the Target value to be 10 less or do you want to move the
Target up/left 10? I would assume you are dealing with a value since the last
cell designation is in column "H". But, not sure.

 

[Guest]

I want if no x in column (B) = target if (X) in column (B) target -10
if column b = x then target -10
if column b = "blank" then target
column h is trigger for action target cell
hope this makes it clearer. Its easy when you know what you mean. Not so
easy for othewr person. Target is a value. The x means an entry into parade
no x is a donor. Because of other things need to try to do all entry on this
sheet.
hopefully
Thanks
Curt

 

[Bob Phillips]

Is this what you want?

Public Sub CopyDonors(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Donors")
Set rngPaste = wksSummary.Cells(wksSummary.Rows.Count, "A").End(xlUp)
Application.EnableEvents = False
Set rngPaste = rngPaste.Offset(1, 0)
If rngPaste.Offset(0,1).Value = "X" Then
Range(Target.Offset(0, -10), Target.Offset(0, 0)).Copy _
Destination:=rngPaste
rngPaste.Offset(0, 7) = Target - 10
Else
Range(Target.Offset(0, -10), Target.Offset(0, 0)).Copy _
Destination:=rngPaste
rngPaste.Offset(0, 7) = ""
End If
Application.EnableEvents = True
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Looks good will insert and see what happens
Thanks Bob
Curt