Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condition
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condition
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 "JLGWhiz" wrote: 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condition
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) "Curt" wrote in message ... 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 "JLGWhiz" wrote: 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condition
Looks good will insert and see what happens
Thanks Bob Curt "Bob Phillips" wrote: 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) "Curt" wrote in message ... 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 "JLGWhiz" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
If Condition | Excel Discussion (Misc queries) | |||
lookup with multiple condition, but one condition to satisfy is en | Excel Worksheet Functions | |||
Combine an OR condition with an AND condition | Excel Discussion (Misc queries) | |||
Condition 1 overules condition 2? | Excel Worksheet Functions | |||
I need 4 condition for condition formatting | Excel Programming |