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
