Solved

Similar case as Q27956847.

Posted on 2014-01-05
4
268 Views
Last Modified: 2014-01-05
Hi EE,

I´m looking for a solution very much the same as the case described in Q27956847. Only difference is that in this case I would like the UDF to get the row number where the maximum value(s) is(are) found. Range of data is on column G. Please refer to sample file Book1.xls attached.

Thanks.
Book1.xls
0
Comment
Question by:capterdi
  • 2
  • 2
4 Comments
 
LVL 6

Expert Comment

by:ButlerTechnology
ID: 39757608
Try the below UDF:
Public Function MaxRow(rRange As Range) As Integer
Dim cCell As Variant
Dim Highestvalue As Single
Dim iRow As Integer
    For Each cCell In rRange
    If cCell.Value > Highestvalue Then
        Highestvalue = cCell.Value
        iRow = cCell.Row
        MsgBox Highestvalue
    End If
    Next
MaxRow = iRow
End Function

Open in new window

0
 

Author Comment

by:capterdi
ID: 39757629
It works, but before getting to the result, windows with numbers and an OK button keep popping up until you are done with the last one.
0
 
LVL 6

Accepted Solution

by:
ButlerTechnology earned 300 total points
ID: 39757642
Sorry -- Remove the msgbox HighestValue line -- I was using that for testing.
0
 

Author Closing Comment

by:capterdi
ID: 39757648
That´s it. Perfect.

Thanks.
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

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

User Beware!  This is a rather permanent solution to removing your email from an exchange server.  The only way to truly go back is to have your exchange administrator restore your mailbox from backups.  This is usually the option of last resort.  A…
Having trouble getting your hands on Dynamics 365 Field Service or Project Service trial? Worry No More!!!
Viewers will learn how to maximize accessibility options in an Excel workbook for users with accessibility issues.
Viewers will learn the different options available in the Backstage view in Excel 2013.

809 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