Macro - to copy and search the date from one Sheet to other.

[aladin347]

Hello team,

Could you please help me with a script for the below example.

1. Sheet 1 - has a Date ( from the data validation Field ( ex : 09/25/2014)
2. Sheet 2 - Has series of Date Horizontally in different cells but same row ( ex : 09/20/2014 | 09/21/2014 |09/25/2014)

The macro should look for the date in Sheet 1 and come to Sheet 2 and search the date and go below the date and extend formulas for the date.

I tried recording the macro, but it always stop at the same day which i recorded, even though i change the date from the data validation it still stops there.


Sub Macro1()
'
' Macro1 Macro
'


'
Selection.Copy
Sheets("sheet2").Select
Cells.Find(What:="9/22/2014", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("W12").Select
End Sub

thanks,
Aladdin

 

[Smallman]

Hi Aladin

Give the following a try.

Sub FindAdd()
  Sheet2.Cells(14, Sheet2.Cells.Find([a8], , xlValues).Column) = "=SUM(R[-3]C:R[-1]C)"
End Sub

File attached to show workings.

Take care

Smallman

 

[aladin347]

Smallman .....Thank You so much....you are simply awesome...

 

[Smallman]

Aladin

Thanks for the kind words. I appreciate you coming back to comment.

Take it easy

Smallman