Return header column text if value in row below

[Adrian W]

Hi, 1st post ever so please accept my novice status..


I have a spreadsheet as per below:
sheet.PNG

I'm trying to get a formula to calculate the value in column I automatically and have tried using the MATCH/INDEX combination but unsuccessfully.
I2 shows the result I'm expecting.

Please can someone help?

thanks
Adrian

[mrice]

Suggest posting the workbook rather than an image.

[Adrian W]

forum sheet.xls

thanks Martin - attached sample rows now.

thanks
Adrian

[mrice]

So if there are multiple changes in a row, what do you want to appear in columns R and S?

[Adrian W]

nothing required really as those are handled via a different exception process
thanks Adrian

[mrice]

Might be easiest to do this with a user defined function.

Function GetChangedHeader(MyRange1 As Range, MyRange2 As Range, MyRange3 As Range, MyRange4 As Range, MyRange5 As Range, MyRange6 As Range, MyRange7 As Range) As String
If MyRange1 <> "" Then
    GetChangedHeader = Cells(1, MyRange1.Column)
    Exit Function
ElseIf MyRange2 <> "" Then
    GetChangedHeader = Cells(1, MyRange2.Column)
    Exit Function
ElseIf MyRange3 <> "" Then
    GetChangedHeader = Cells(1, MyRange3.Column)
    Exit Function
ElseIf MyRange4 <> "" Then
    GetChangedHeader = Cells(1, MyRange4.Column)
    Exit Function
ElseIf MyRange5 <> "" Then
    GetChangedHeader = Cells(1, MyRange5.Column)
    Exit Function
ElseIf MyRange6 <> "" Then
    GetChangedHeader = Cells(1, MyRange6.Column)
    Exit Function
ElseIf MyRange7 <> "" Then
    GetChangedHeader = Cells(1, MyRange7.Column)
    Exit Function
End If
End Function

Open the VBA editor by hitting Alt F11.
Insert a new module with Insert - Module
Paste in the above function
Go back to the sheet by hitting Alt F11.

In a suitable cell, enter =GetChangedHeader(C2,E2,G2,I2,K2,M2,P2)

Remember to save the workbook as a macro enabled workbook .xlsm

[Adrian W]

great - job done!

[Cutter]

@ Adrian W

Welcome to the forum.

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.