Formula to make first visible row show 1 when scrolling?

[tonywatsonhelp]

Hi Evenone,
I thought this would be easy but i dont know the words to do it? please help.

I have a sheet nameed data with about 10,000 lines of data

i've split the view at row 10 so i can scroll dowbn and still see whats going on above (I've used the freeze panes button)
as i scroll down i'd like a formula to do the folllowing
in column B show me the number 1 in the first visible row after row 10 (the last fixed row) so as i scroll down 11 = 1, but that gets hidden so it changes to 12, 13 etc.

can this be done?

please help if you can

Thanks

Tony

 

[mumps]

Try this "work-around". Place this Worksheet_SelectionChange macro in the worksheet code module. Since there is no event macro that will capture scrolling, you will have to click on any cell in the sheet after you finish scrolling in order to insert the number "1" in column B of the first visible row after row 10.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Scroll = ActiveWindow.ScrollRow
    Range("B:B").Replace "1", ""
    Range("B" & Scroll) = 1
End Sub