Posts by jaybels

  • Copy Activecell value to Column Header at Intersect

    Re: Copy Activecell value to Column Header at Intersect


    I have managed to solve this problem myself after much painstaking research.


    I have posted the solution for the benefit of the forum users:


    Sub Select_Today()
    mr = ActiveCell.row
    Set rng = ActiveCell
    On Error Resume Next
    Range("Q1:AM1").Find(rng, , xlValues, xlWhole).Activate
    mc = Chr(ActiveCell.Column + 64)

    Range(mc & mr).Select

    End Sub



    Jaybels

  • Copy Activecell value to Column Header at Intersect

    Hi there,


    Was wondering if anyone knows how to do the following:


    I have a range of week commencing dates (from cells Q1:AM1).
    In column L, I have corresponding w/c dates. What I need to do is run an event macro that will trigger when a date is typed into the activecell in column L (for example), it will then find the corresponding w/c date in range (Q1:AM1), i.e, the Column Headers. However, the value will be put into the intersect of the current activecell and the w/c column header date. The value needs to be copied from column E. I hope this makes sense.


    I have attached the spreadsheet that I have entered some code into. The macro runs by pressing CNTRL & t.


    I can only get it to highlight the w/c column at the moment.


    If anyone can help, it would be greatly appreciated.


    Thanks in advance.


    Jaybels.