Can anyone help???

[mattk918]

I want a Macro to run within my Worksheet "Input Sheet" that

Looks at merged cell G7:I7 (don't ask... inherited document that is formatted to hell and has so many links, references and macros that it throws a wobbler if anything changes!) where there is a date.

Then looks down the range AE45:AE409 (contains a column of dates for each day of the year) finds that same date.

Then pastes the value from cell G32 into the column to the right of the date range, i.e. the appropriate cell of AF45:AF409

I am sure that this is childsplay to many out there, but it has got me ready to bang my head against the wall this afternoon!!!

Any help greatfully received

Matt <!-- / message -->

 

[onlyadrafter]

Hello,

there are probably many methods to this, heres mine

Sub COPY_TO_AF()
    Application.ScreenUpdating = False
    MY_VALUE = Range("G7").Value
    Range("AE45").Select
    Do Until ActiveCell.Value = MY_VALUE
        ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(0, 1).Value = Range("G32").Value
    Application.ScreenUpdating = True
End Sub

 

[jasonb75]

Hi Matt

Assuming that it will always be G7 and G32, try,

Sub test()
Cells(44 + Application.Match(CLng(Range("g7").Value), Range("AE45:AE409"), 0), 32) = Range("G32").Value
End Sub

Hope this helps

 

[mattk918]

That great, and so simple when you know how....

Cheers