Solved

Find Max One Column Multiple Row Ranges

Posted on 2008-10-05
6
529 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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

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

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

749 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