Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: Sheet Change help

  1. #1
    New Member
    Join Date
    Apr 2002
    Posts
    26
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hi!

    I used a worksheet change and I get in the routine but Target.Column does not work.
    What do I use to address the cells?
    I want column E to be a formula :
    Column D * Column C.

    Private Sub Workbook_SheetChange(ByVal AssetInventory As Object, _
    ByVal Source As Range

  2. #2
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-04-25 08:38, fdavidgolf wrote:
    Hi!

    I used a worksheet change and I get in the routine but Target.Column does not work.
    What do I use to address the cells?
    I want column E to be a formula :
    Column D * Column C.

    Private Sub Workbook_SheetChange(ByVal AssetInventory As Object, _
    ByVal Source As Range
    Hi Frank
    Please explain further exactly what it is you
    want to happen via this event?
    Kind Regards,
    Ivan F Moala From the City of Sails

  3. #3
    New Member
    Join Date
    Apr 2002
    Posts
    26
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Columns are:
    Asset ID, Description, Unit Price, Quantity, Extended Price, and Location.

    Originally, I wanted Extended Price to be a formula Unit Price * Quantity, but I didn't want to fill in the formula, because the $0.00 was displayed. Now, I filled in the formula and hide the money by making the background and display color the same. Now, what I want to do is change the background when data is entered in the row.

    Private Sub Workbook_SheetChange(ByVal AssetInventory As Object, _
    ByVal Source As Range)

    MsgBox "In Change ... " & ActiveCell.Rows.Address

    - This displays correct address $E$17

    If ActiveCell.Rows.Address = "$E$" & Range("E" & Right(ActiveCell.Rows.Address, 2)) Then
    ------ this doesn't execute
    Module3.ShowExtPrice
    Else
    MsgBox "$E$" & Range("E" & Right(ActiveCell.Rows.Address, 2))
    ---- This display $E$extended price money like $E$2200 for Unit Price of $1100 and Quantity of 2

    End If

    End Sub


    -----

    I prefer the formula be used in column E automatically. Any suggestions?




Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •