Re: [ExcelVBA] VBA for Finding value in Current Cell

 

Sub Macro1()
  Dim FindValue As Variant
  FindValue = ActiveCell.Value
  ActiveCell.Rows("1:1").EntireRow.Select
  Selection.Find(What:=(FindValue), After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
  MsgBox (ActiveCell.Address)
End Sub

--- On Thu, 6/23/11, railroads@slingshot.co.nz <railroads@slingshot.co.nz> wrote:

From: railroads@slingshot.co.nz <railroads@slingshot.co.nz>
Subject: [ExcelVBA] VBA for Finding value in Current Cell
To: ExcelVBA@yahoogroups.com
Date: Thursday, June 23, 2011, 10:03 PM

 

Hi

Just athe basics.

I want to find the value in current cell in another column say H column.
Say value in A1(current cell) is: Tom

i.e. Want to locate Tom in column H

I should no the answer but have lost it in my files. (probably should read 'have lost the plot')

Thanks

Charlie Harris

[Non-text portions of this message have been removed]

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 13

Visit Your Group

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___