+ Reply to Thread
Results 1 to 9 of 9

I want to modify the code

Hybrid View

hesham63 I want to modify the code 07-30-2011, 07:15 AM
Sadath31 Re: I want to modify the code 07-30-2011, 07:39 AM
hesham63 Re: I want to modify the code 07-30-2011, 07:50 AM
royUK Re: I want to modify the code 07-30-2011, 07:52 AM
hesham63 Re: I want to modify the code 07-30-2011, 08:03 AM
royUK Re: I want to modify the code 07-30-2011, 08:41 AM
hesham63 Re: I want to modify the code 07-30-2011, 08:43 AM
royUK Re: I want to modify the code 07-30-2011, 09:12 AM
hesham63 Re: I want to modify the code 07-30-2011, 10:36 AM
  1. #1
    Registered User
    Join Date
    04-28-2010
    Location
    London
    MS-Off Ver
    Excel 2003
    Posts
    35

    I want to modify the code

    hi
    This code works well
    HTML Code: 
    I want to do not appear in the equations cells

  2. #2
    Valued Forum Contributor Sadath31's Avatar
    Join Date
    03-02-2011
    Location
    Dammam, Saudi Arabia
    MS-Off Ver
    Office 365
    Posts
    452

    Re: I want to modify the code

    I think you want to convert the formula into value
    then include the code to your macro

    Range(Range("x5"), Range("x5").End(xlDown)).Select
    Selection.Value = Selection.Value

  3. #3
    Registered User
    Join Date
    04-28-2010
    Location
    London
    MS-Off Ver
    Excel 2003
    Posts
    35

    Re: I want to modify the code

    Really wonderful
    Thank you very much

  4. #4
    Forum Expert royUK's Avatar
    Join Date
    11-18-2003
    Location
    Derbyshire,UK
    MS-Off Ver
    Xp; 2007; 2010
    Posts
    26,200

    Re: I want to modify the code

    You don't need to switch off screen updating, especially as you don't return it to true. You also do not need to select the cells

    Option Explicit
    
    Sub hh()
        Range("X5").FormulaR1C1 = _
        "=SUMPRODUCT(--(R5C16:R1500C16=RC[-8]),R5C20:R1500C20)"
        Range("X6").FormulaR1C1 = _
        "=IF(EXACT(R[-1]C[-8],RC[-8]),"""",SUMPRODUCT(--(R5C16:R1500C16=RC[-8]),R5C20:R1500C20))"
        Range("X6").AutoFill Destination:=Range("X6:X1500"), Type:=xlFillDefault
        Range("X5:X1500").Value = Range("X5:X1500").Value
    End Sub
    Hope that helps.

    RoyUK
    --------
    For Excel Tips & Solutions, free examples and tutorials why not check out my web site

    Free DataBaseForm example

  5. #5
    Registered User
    Join Date
    04-28-2010
    Location
    London
    MS-Off Ver
    Excel 2003
    Posts
    35

    Re: I want to modify the code

    my dear
    Is it possible to work this code automatically Without pressing the button

  6. #6
    Forum Expert royUK's Avatar
    Join Date
    11-18-2003
    Location
    Derbyshire,UK
    MS-Off Ver
    Xp; 2007; 2010
    Posts
    26,200

    Re: I want to modify the code

    When would you want it to run?

  7. #7
    Registered User
    Join Date
    04-28-2010
    Location
    London
    MS-Off Ver
    Excel 2003
    Posts
    35

    Re: I want to modify the code

    When you put the value in cell

  8. #8
    Forum Expert royUK's Avatar
    Join Date
    11-18-2003
    Location
    Derbyshire,UK
    MS-Off Ver
    Xp; 2007; 2010
    Posts
    26,200

    Re: I want to modify the code

    Which cell? Why would that need to trigger adding all those formulas & converting to values?

  9. #9
    Registered User
    Join Date
    04-28-2010
    Location
    London
    MS-Off Ver
    Excel 2003
    Posts
    35

    Re: I want to modify the code

    You right I'm sorry and I thank you

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1