ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Can VBA Match? (https://www.excelbanter.com/excel-programming/344923-can-vba-match.html)

alymcmorland[_20_]

Can VBA Match?
 

Hi,

If i had an input box where whatever the user put in would be equal to
a string, lets call that string d, would it be possible to write some
code which said match string d to the names which are in the range of
D1:ED1 baring in mind that in the range D1:ED1 is a list of staff names
so it should be possible to match string d to one of those names.

Could anyone provide code?


--
alymcmorland
------------------------------------------------------------------------
alymcmorland's Profile: http://www.excelforum.com/member.php...o&userid=27652
View this thread: http://www.excelforum.com/showthread...hreadid=482825


Dave Peterson

Can VBA Match?
 
option explicit
sub testme
dim res as variant
dim myRng as range
dim d as string

set myrng = worksheets("Sheet1").range("d1:Ed1")

d = inputbox(Prompt:="type something")

if trim(d) = "" then
exit sub 'user didn't type anything.
end if

res = application.match(d,myrng,0)

if iserror(res) then
msgbox "Not a match. The board goes back
else
msgbox "Found a match!
end if

end sub


alymcmorland wrote:

Hi,

If i had an input box where whatever the user put in would be equal to
a string, lets call that string d, would it be possible to write some
code which said match string d to the names which are in the range of
D1:ED1 baring in mind that in the range D1:ED1 is a list of staff names
so it should be possible to match string d to one of those names.

Could anyone provide code?

--
alymcmorland
------------------------------------------------------------------------
alymcmorland's Profile: http://www.excelforum.com/member.php...o&userid=27652
View this thread: http://www.excelforum.com/showthread...hreadid=482825


--

Dave Peterson


All times are GMT +1. The time now is 04:43 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com