+ Reply to Thread
Results 1 to 3 of 3

Sum dynamic ranges based on numbers in a helper column

  1. #1
    Registered User
    Join Date
    11-12-2019
    Location
    Auckland, New Zealand
    MS-Off Ver
    2016
    Posts
    1

    Sum dynamic ranges based on numbers in a helper column

    I have a sheet with a list of numbers I want to sum. There are varying ranges after I have imported the data and am struggling to find the ranges and insert the totals(sum) of each category. There is a Helper column in column "A" which has the number 4 where the category starts and the number 7 where it ends. I want to sum the numbers in column "I" for rows between 4 (where 4 appears in column "A") and 7 (where 7 appears in column "A") and place the total in column "I" in the row that 7 appears in column "A". Here is the code I have so far.
    Please Login or Register  to view this content.
    Attachment 649376
    Attached Files Attached Files
    Last edited by Chrishere; 11-13-2019 at 12:17 AM.

  2. #2
    Valued Forum Contributor
    Join Date
    12-14-2011
    Location
    Vietnam
    MS-Off Ver
    Excel 2007
    Posts
    439

    Re: Sum dynamic ranges based on numbers in a helper column

    Here you are.
    Please Login or Register  to view this content.
    ❖ Please mark your thread is SOLVED if there has been offered a solution that works fine for you.

    ❖ If you like solutions provided by anyone, feel free to add reputation by clicking on ✶ Add Reputation bottom left of their posts.

  3. #3
    Forum Expert
    Join Date
    11-24-2013
    Location
    Paris, France
    MS-Off Ver
    Excel 2003 / 2010
    Posts
    9,831

    Cool Hi ! Try this …


    As a beginner starter (may be a bit faster) :

    PHP Code: 
    Sub Demo1()
               
    Dim Rf As RangeRg As RangeA$
        
    With ActiveSheet.UsedRange.Columns(1)
               
    Set Rf = .Find(4, , xlValuesxlWhole)
            If 
    Not Rf Is Nothing Then
                       A 
    Rf.Address
                       Application
    .ScreenUpdating False
                
    Do
                       
    Set Rg = .Find(7Rf):  If Rg.Row Rf.Row Then Exit Do
                        If 
    Rg.Row Rf.Row 1 Then Rg(19).Value2 Application.Sum(Range(Rf(29), Rg(09)))
                       
    Set Rf = .Find(4Rg)
                
    Loop Until Rf.Address A
                       Set Rf 
    Nothing:   Set Rg Nothing
                       Application
    .ScreenUpdating True
            End 
    If
        
    End With
    End Sub 
    Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !
    Last edited by Marc L; 11-13-2019 at 07:43 AM. Reason: optimizing for values instead of formulas …

+ Reply to Thread

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Extracting data based on two helper column criteria
    By QlooQ in forum Excel Formulas & Functions
    Replies: 5
    Last Post: 07-19-2018, 04:28 PM
  2. Replies: 1
    Last Post: 08-02-2017, 01:51 PM
  3. [SOLVED] Need dynamic vlookup if possible without helper column
    By davva23 in forum Excel Formulas & Functions
    Replies: 6
    Last Post: 07-04-2017, 07:50 AM
  4. Problems creating a bar or column chart based on dynamic offset ranges
    By chrisk67 in forum Excel Charting & Pivots
    Replies: 10
    Last Post: 09-01-2016, 03:23 PM
  5. Moving average on dynamic named range without helper column
    By HemAt in forum Excel Formulas & Functions
    Replies: 3
    Last Post: 08-31-2016, 12:15 PM
  6. Sort by helper column even if values in helper are alike
    By NoSleepForMe in forum Excel Formulas & Functions
    Replies: 4
    Last Post: 08-10-2016, 04:14 AM
  7. Transpose based on helper column VBA
    By carlosriver24 in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 07-27-2013, 03:12 AM

Tags for this Thread

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