The following is a copy of a post that I did a few days ago, I am having a
problem using this macro with my data. The problem is that I need this to be
used with a range of data (ie. A1:B20). This macro can only be used (to my
understanding) with one "data" cell. Is there a macro that can function like
this but copy the range A1:B20 to the destination page? Or maybe this can be
used in a loop macro. I have never used a loop macro so I do not know how to
write one. Basically this is how it needs to go.
2 pages - Input and Main
Take a specified date from cell A4 on page "Input" and find that date on
page "Main". all dates on "Main" are in row 4.
Use the found date as a reference point and copy A1:B20 to a cell range that
starts Left 2, Down 1 from the reference point.

-OLD POST-

Assumptions:
On the input sheet the date is entered into Cell A2 and the data is
enterd into cell B2.
On the Main sheet the list of dates is in column A and the data should
be inserted into column B.

Sub finder()
Dim fDate As Date
Dim fndRng As Range
Dim inpData As String

fDate = Sheets("Input").Range("A2").Value
inpData = Sheets("Input").Range("B2").Value
With Sheets("Main").Columns(1)
Set fndRng = .Find(fDate)
End With
If Not fndRng Is Nothing Then
fndRng.Offset(0, 1).Value = inpData
End If
End Sub


Hope this helps
Rowan

Agasnine wrote:
I am using Excel 2003 but need this to work in Excel '97.
On a "Main" sheet I have a series of dates with data the is inserted below
the dates. On an "Input" sheet I have a "data input" section with the date,
and the data for that date.
This is what I want to do.

Input a date, type the data for that date, click a button to activate a
macro or a series of macros. The macro would take the date from the "Input"
sheet and find it on the "Main" sheet. Then it would take the data from the
"Input" sheet and insert it on the "Main" sheet.
The problem I am running into is getting the macro to "find" the date in the
"Main" sheet and use that as a reference as to where to paste the data.