Jump to First Number in a column

[mustu2]

Hi

Thanks for reading the post.

Every month i copy the GL into an excel sheet, which goes by month underneath month. i update each month every day until Work Day 6, beacause every day the number changes until finalised on Work Day 7.

Now when i paste say March month i have to scroll up and up and find where the March month starts, so is there an easy way in a column where i can just jump to where the March (3) starts in a column. or any suggestions as to what i can do so that i dont have to scroll so many rows.


Thanks

 

[MickG]

Try something like this:-
If you sheet has a list of dates in for each day in column "A" ,then this "Double_Click" event (In column "A") will select the first date of the Month, before todays month.

Private [COLOR="Navy"]Sub[/COLOR] Worksheet_BeforeDoubleClick(ByVal Target [COLOR="Navy"]As[/COLOR] Range, Cancel [COLOR="Navy"]As[/COLOR] Boolean)
[COLOR="Navy"]If[/COLOR] Target.Column = 1 [COLOR="Navy"]Then[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] Month(Dn) = Month(DateAdd("m", -1, Date)) [COLOR="Navy"]Then[/COLOR]
        Dn.Select
        [COLOR="Navy"]Exit[/COLOR] For
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]If[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[mustu2]

Thanks a lot