Thread: Condition
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
JLGWhiz JLGWhiz is offline
external usenet poster
 
Posts: 3,986
Default Condition

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.
"Curt" wrote:

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