Hi Dave and David
Thanks for your responses. Will try them both out. I will not lose this time. Will put it on a macro floating toolbar.
Thanks
Charlie
From: David Lanman
Sent: Saturday, June 25, 2011 1:43 AM
To: ExcelVBA@yahoogroups.com
Subject: 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]
[Non-text portions of this message have been removed]
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
----------------------------------
Tidak ada komentar:
Posting Komentar