Userform get value of row one in column of selected cell

[fonk]

Hi all,
I have a userform that retreives data from a selected spreadsheet that has date values in columns A,B,F,G,K,L,P,Q,U,V as non contiguous data. I have a find that selects the maxVal date cell, then I want it to go to the first row in the column to get the header data along with the selected date (active cell) values for display on the userform. Using xlUp only takes me to the next populated cell up, do I need to do a loop to find the top header cell or is there an alternative?

The line of code I am having troule with is below,

tb_LastEntry.Value = ActiveCell.End(xlUp).Value & " - " & ActiveCell.Value

I've been searching for quite a while and had no luck, seen lots of row macros but can't (or don't have the knowledge) change it to what I want.
Regards, Dave

 

[davesweep]

Does this help you at all?

tb_LastEntry.Value = Cells(1, ActiveCell.Column).Value & " - " & ActiveCell.Value

 

[fonk]

Hi davesweep,
Thanks for the reply, I have tried that one and when I mouse over the

Cells(1, ActiveCell.Column).Value

the value is not displayed, no an error message. On the

ActiveCell.Value

which is displaying the date as expected.
In the Add Watch I am getting the following when it is running:
Watch : : Cells(1, ActiveCell.Column).Value : Empty : Variant/Empty : usrfmWkDysEmp.CmdGo_Click
Then it goes to the below on End Sub
Watch : : Cells(1, ActiveCell.Column).Value : Empty : Variant/Empty : usrfmWkDysEmp.CmdGo_Click

When I run it the userform displays " - 3/4/2012" (without the inverted) commas.
Regards, Dave

 

[davesweep]

Odd - can you get a figure for ActiveCell.Column ?

 

[fonk]

Hi,
A copy/paste error in the last one, see the Watch value at End Sub.

In the Add Watch I am getting the following when it is running:
Watch : : Cells(1, ActiveCell.Column).Value : Empty : Variant/Empty : usrfmWkDysEmp.CmdGo_Click
Then it goes to the below on End Sub
Watch : : Cells(1, ActiveCell.Column).Value :<out of context> <OUT context of>: Variant/Empty : usrfmWkDysEmp.CmdGo_Click

Regards, Dave

 

[fonk]

Hi davesweep,
Yes, getting ActiveCell.Column = 12 which is correct for Column L where the value is.
Regards, Dave

 

[davesweep]

And the value of L1? (the cell containing the header)

 

[fonk]

Hi davesweep,
Sorted thanks, should have paid attention to the Add Watch where it said "empty", commited the sin of the header being in a merged cell. Thanks for the assistance.
Regards, Dave

 

[davesweep]

No worries.