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
