Hi Thanks Paul
On Wed, Sep 29, 2010 at 5:53 PM, Paul Schreiner <schreiner_p...@att.net>wrote: > this is a change event macro. > whenever a cell is changed, this macro is called and Range of the cell (or > cells) > is passed to the macro as the variable name "Target". > > In this case, the macro is checking to see if the row or column of the > cell changed is 3, then proceeds. > > note: if a group of cells is changed.. as in: deleted > the macro will produce an error because the Target is then an array of > ranges > and target.row is not valid.. > I usually check first: if (Target.count = 1) then > > > In the case of: > * If Cells(Target.Row, 1).Value <> "" Then* > > the macro looks at column "A" of the row in which a cell is changed > and checks to see if it is not blank before proceeding. > > hope this helps. > > Paul > > > *From:* neil johnson <neil.jh...@googlemail.com> > *To:* Dave Bonallack <davebonall...@hotmail.com>; > excel-macros@googlegroups.com > *Sent:* Wed, September 29, 2010 2:47:27 AM > *Subject:* $$Excel-Macros$$ Please explain that code Which I highlighted > > Dear Excel member, > > I need your help. Can you explain that code. > > Private Sub Worksheet_Change(ByVal Target As Range) > *If Target.Row = 3 And Target.Column = 3 Then* ( What is that Means ) > 'calculate criteria cell in case calculation mode is manual > Worksheets("ProductsList").Range("I3").Calculate > Worksheets("ProductsList").Range("Database") _ > .AdvancedFilter Action:=xlFilterCopy, _ > CriteriaRange:=Sheets("ProductsList").Range("I2:I3"), _ > CopyToRange:=Range("A6:G6"), Unique:=False > End If > End Sub > > > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > *If Target.Column = 7 And Target.Row > 6 Then > If Cells(Target.Row, 1).Value <> "" Then > Target.Value = "X"* > MoveRow > 'MsgBox "Row has been copied" > End If > End If > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts