look ups

  • Thread starter Thread starter tom donino
  • Start date Start date
T

tom donino

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?
 
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)
 
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
 
Back
Top