"Find" question
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 |
All times are GMT +1. The time now is 08:30 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com