want to when leaving a cell in column (L) check if amount is over $10.00. If
it is then copy some other cells in the row to another sheet and take amount
over ten also. This same code will be applied to several sheets as many
different entries in parade. Am used to excel validation its tieing it all
together that stops me.
Sure am thankful for support given. At my age I need all I can get. Am
having good time trying to do this.
Thanks to all of You

This should give you a start. Paste this code into the thisworkbook module of
the workbook... (right click on the Excel Icon next to the word file in the
XL menu and select view code...)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Sheet1", "Sheet2"
If Target.Column = 12 And Target.Value 10 Then Call
CopyStuff(Target)
End Select

End Sub

Private Sub CopyStuff(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range

Set wksSummary = Sheets("Sheet3")
Set rngPaste = wksSummary.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

rngPaste = Target.Value
rngPaste.Offset(0, 1) = Target.Offset(0, -1)
End Sub
--
HTH...

Jim Thomlinson


"Curt" wrote:

want to when leaving a cell in column (L) check if amount is over $10.00. If
it is then copy some other cells in the row to another sheet and take amount
over ten also. This same code will be applied to several sheets as many
different entries in parade. Am used to excel validation its tieing it all
together that stops me.
Sure am thankful for support given. At my age I need all I can get. Am
having good time trying to do this.
Thanks to all of You

Thanks Much all of you to one of my age are great
Thanks

"Jim Thomlinson" wrote:

This should give you a start. Paste this code into the thisworkbook module of
the workbook... (right click on the Excel Icon next to the word file in the
XL menu and select view code...)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Sheet1", "Sheet2"
If Target.Column = 12 And Target.Value 10 Then Call
CopyStuff(Target)
End Select

End Sub

Private Sub CopyStuff(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range

Set wksSummary = Sheets("Sheet3")
Set rngPaste = wksSummary.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

rngPaste = Target.Value
rngPaste.Offset(0, 1) = Target.Offset(0, -1)
End Sub
--
HTH...

Jim Thomlinson


"Curt" wrote:

want to when leaving a cell in column (L) check if amount is over $10.00. If
it is then copy some other cells in the row to another sheet and take amount
over ten also. This same code will be applied to several sheets as many
different entries in parade. Am used to excel validation its tieing it all
together that stops me.
Sure am thankful for support given. At my age I need all I can get. Am
having good time trying to do this.
Thanks to all of You

this old boy isn't smart enough yet. know its funny at 70 why people think
you can do anything. the right click on excel icon was a big help.
need more coaching can you advise is word vba close enough for excel. can
get cources on word but not excel
what I am doing I have wkssheets
1 data
6 motorcycles
7 indian
8 native
5 donors
need to copy to donors from all other target = 10 or J made change fron L
does this code need to be into a macro and called when needed. have never
done this in workbook befor. Seems to me that in workbook it will serve all
worksheets?
If I see this work on one sheet can probably do rest.
Thanks it sure is appreciated.

"Jim Thomlinson" wrote:

This should give you a start. Paste this code into the thisworkbook module of
the workbook... (right click on the Excel Icon next to the word file in the
XL menu and select view code...)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Sheet1", "Sheet2"
If Target.Column = 12 And Target.Value 10 Then Call
CopyStuff(Target)
End Select

End Sub

Private Sub CopyStuff(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range

Set wksSummary = Sheets("Sheet3")
Set rngPaste = wksSummary.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

rngPaste = Target.Value
rngPaste.Offset(0, 1) = Target.Offset(0, -1)
End Sub
--
HTH...

Jim Thomlinson


"Curt" wrote:

want to when leaving a cell in column (L) check if amount is over $10.00. If
it is then copy some other cells in the row to another sheet and take amount
over ten also. This same code will be applied to several sheets as many
different entries in parade. Am used to excel validation its tieing it all
together that stops me.
Sure am thankful for support given. At my age I need all I can get. Am
having good time trying to do this.
Thanks to all of You

addenum will be copying E,F,G,H,I,J-$10.00,K to donors
didn't think to put this in first message
Thanks Again

"Jim Thomlinson" wrote:

This should give you a start. Paste this code into the thisworkbook module of
the workbook... (right click on the Excel Icon next to the word file in the
XL menu and select view code...)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Sheet1", "Sheet2"
If Target.Column = 12 And Target.Value 10 Then Call
CopyStuff(Target)
End Select

End Sub

Private Sub CopyStuff(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range

Set wksSummary = Sheets("Sheet3")
Set rngPaste = wksSummary.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

rngPaste = Target.Value
rngPaste.Offset(0, 1) = Target.Offset(0, -1)
End Sub
--
HTH...

Jim Thomlinson


"Curt" wrote:

want to when leaving a cell in column (L) check if amount is over $10.00. If
it is then copy some other cells in the row to another sheet and take amount
over ten also. This same code will be applied to several sheets as many
different entries in parade. Am used to excel validation its tieing it all
together that stops me.
Sure am thankful for support given. At my age I need all I can get. Am
having good time trying to do this.
Thanks to all of You