Solved

Find Max One Column Multiple Row Ranges

Posted on 2008-10-05
6
527 Views
Last Modified: 2012-06-21
Hello Experts:

Looking for a VBA script that will find the maximum value for a range of values in one column and repeat this between breaks.  The breaks are not uniform meaning that there may be 2-3 empty rows before the next set is found.  There may be even just one value in that set.  I'd like to display the maximum value in column B in the cell adjacent to the max value in column A.

Col A     Col B (Max Values)

1
2
3
4
5
15         15
9
8
10

5
6
7
12
45        45
31
23
8
6


1
4         4
2

15      15
0
Comment
Question by:donisanp
  • 3
  • 3
6 Comments
 
LVL 81

Expert Comment

by:zorvek (Kevin Jones)
ID: 22646482
Use this macro with the sheet to be evaluated active:

Public Sub AddMaxValues()

   Dim Target As Range
   
   With ActiveSheet
      Set Target = .Range(.[A1], .[A1].End(xlDown))
      Do
         Target.Offset(Application.Match(Application.Max(Target), Target, 0) - 1, 1).Resize(1, 1) = Application.Max(Target)
         If Target.Row + Target.Rows.Count > .Rows.Count Then Exit Do
         Set Target = Target.Offset(Target.Rows.Count).Resize(1).End(xlDown)
         Set Target = .Range(Target, Target.End(xlDown))
      Loop
   End With

End Sub

Kevin
0
 

Author Comment

by:donisanp
ID: 22646654
I'm getting a "data type mismatch" error
0
 
LVL 81

Expert Comment

by:zorvek (Kevin Jones)
ID: 22646899
Then there is a discrepancy between what you posted in your question and what you are actually working with. Please post your workbook.

Kevin
0
Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

 

Author Comment

by:donisanp
ID: 22646942
I've attached the file.  So in column B I'd like the macro to output the max value for each run.
Experts-MaxTest.xls
0
 
LVL 81

Accepted Solution

by:
zorvek (Kevin Jones) earned 500 total points
ID: 22646974
Works for me. I added a command button to make the test easier.

Kevin
Experts-MaxTest.xls
0
 

Author Closing Comment

by:donisanp
ID: 31503263
Brilliant!  Exactly what I needed, thank you very much!
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Introduction This Article briefly covers methods of calculating the NPV and IRR variants in Excel as well as the limitations in calculating and interpreting IRR results. Paraphrasing Richard Shockley, author of my favourite finance reference tex…
Introduction This Article is a follow-up to my Mappit! Addin Article (http://www.experts-exchange.com/A_2613.html), it was inspired by an email posting I made to EUSPRIG (http://www.eusprig.org/index.htm), I will briefly cover: 1) An overvie…
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…

785 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question