We have quotes on individual spreadsheets and a summary
spreadsheet listing all quotes. When a quote is sold we
want to look up the quote number on the summary sheet and
insert the date in a column for date sold. I have code
below but cannot get the find part.(quote # is in F3 of
the quote and column 19 in quotetracking. D3 in the quote
is the date)
Windows("quote-2004.xlt").Activate
Dim rngCell As Excel.Range
Set rngCell = ActiveSheet.Range("F3")
rngCell.Select
Windows("QuoteTracking.xls").Activate
Application.Goto Reference:="R1C19"
Selection.End(xlDown).Select
Set c = .Find(rngCell, LookIn:=xlValues)
ActiveCell.Offset(0, 11).Activate
Windows("quote-2004.xlt").Activate
Dim rngCell1 As Excel.Range
Set rngCell1 = ActiveSheet.Range("d3")
rngCell.Select
Selection.Copy
Windows("QuoteTracking.xls").Activate
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub