Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
look ups
I am trying to write code to program a button to look up
a stock symbol in column A on another sheet and write the information on that row onto the next available row on the master sheet. any thoughts? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
look ups
Tom,
Here's a thought Dim oFind As Range Set oFind = Worksheets("Sheet2").Columns(1).Find("abcd") If Not oFind Is Nothing Then oFind.EntireRow.Copy Destination:=Cells(Rows.Count, "A").End(xlUp)(2, 1) End If -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "tom donino" wrote in message ... I am trying to write code to program a button to look up a stock symbol in column A on another sheet and write the information on that row onto the next available row on the master sheet. any thoughts? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
look ups
Dim sStockSymbol as String
Dim rng as Range, rng1 as Range sStockSymbol = "ABCD" set rng = worksheets("Data").Columns(1).Find( What:=sStockSymbol) if not rng is nothing then set rng1 = Worksheets("Master") _ .Cells(rows.count,1).End(xlup).Offset(1,0) rng1.entireRow.copy destination:=rng1 End if -- Regards, Tom Ogilvy "tom donino" wrote in message ... I am trying to write code to program a button to look up a stock symbol in column A on another sheet and write the information on that row onto the next available row on the master sheet. any thoughts? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|