How to find multipal letters in a column in ms excel by these codes?

[Sabestian Caine]

Friends i have these codes by that i can find specific letter in the given range-

Code: Select all

f1::
 oExcel := ComObjActive("Excel.Application")
    oExcel.Range("b:b").Find("p", oexcel.activecell.entirerow.cells(1,2)).select 
	return

As in the above codes it finds letter p in column b in excel sheet. Now here i want that it should find either p or m in column b then what should be the codes? it tried to modify these codes in many ways like-

Code: Select all

f1::
 oExcel := ComObjActive("Excel.Application")
    oExcel.Range("b:b").Find("p" or "m", oexcel.activecell.entirerow.cells(1,2)).select
	return

Code: Select all

 oExcel := ComObjActive("Excel.Application")
    oExcel.Range("b:b").Find("p") or ("m", oexcel.activecell.entirerow.cells(1,2)).select 
	return

Code: Select all

 oExcel := ComObjActive("Excel.Application")
    oExcel.Range("b:b").Find("p", oexcel.activecell.entirerow.cells(1,2)).select  or oExcel.range("b:b").Find("m", oexcel.activecell.entirerow.cells(1,2)).select  
	return

But none of these codes are working as i want. please tell me what would be the right codes to do that. Thanks...

[Crashm87]

I'm not sure if this will work, but this is the first thing I thought of.

Code: Select all

oExcel := ComObjActive("Excel.Application")
range := oExcel.Range("b:b")

if range.find("p") oexcel.activecell.entirerow.cells(1,2)).select
if range.find("a") oexcel.activecell.entirerow.cells(1,2)).select

[Sabestian Caine]

I'm not sure if this will work, but this is the first thing I thought of.

Code: Select all

oExcel := ComObjActive("Excel.Application")
range := oExcel.Range("b:b")

if range.find("p") oexcel.activecell.entirerow.cells(1,2)).select
if range.find("a") oexcel.activecell.entirerow.cells(1,2)).select

thanks dear Crashm87 for your kind respose...but these codes are not excetly working as i want. infact i have already used these codes like this-

Code: Select all

f1::
 oExcel := ComObjActive("Excel.Application")
oExcel.Range("b:b").Find("p", oexcel.activecell.entirerow.cells(1,2)).select
oexcel.Range("b:b").Find("m", oexcel.activecell.entirerow.cells(1,2)).select
	return

[Crashm87]

Try this, I tested it on a workbook of mine, and it selected the cell containing my search

Code: Select all

FilePath := "..."  ; ENTER WORKBOOK PATH HERE
oExcel := ComObjActive("Excel.Application")
oWorkbook := ComObjGet(FilePath)
dataBase := oWorkbook.WorkSheets("Sheet1")


InputBox, LookFor, Search, Enter Search Criteria
myRng := dataBase.Range["A:A"]


if	!c :=	myRng.Find(LookFor)
{
	MsgBox, , Warning, No matches found. 
}
else
{
c.select
}

[FanaticGuru]

Code: Select all

Xl := ComObjActive("Excel.Application")
if (Xl.Range("B1").Value ~= "p|m")
	Xl.Range("B1").Select
else
{
	R1 := Xl.Columns("B").Find("p").Row
	R2 := Xl.Columns("B").Find("m").Row
	Xl.Range("B" Min(R1,R2)).Select
}

It is important to remember that the find method only finds the first cell that matches. So hopefully you are aware of that and truly just want the first cell that contains "p" or "m". Find will not select all cells that contain a certain string.

Also the find method does not allow for "or". You have to do two finds and then select the one with the smallest row number to get the first cell that has what you are looking for.

FG

[Sabestian Caine]

Code: Select all

Xl := ComObjActive("Excel.Application")
if (Xl.Range("B1").Value ~= "p|m")
	Xl.Range("B1").Select
else
{
	R1 := Xl.Columns("B").Find("p").Row
	R2 := Xl.Columns("B").Find("m").Row
	Xl.Range("B" Min(R1,R2)).Select
}

It is important to remember that the find method only finds the first cell that matches. So hopefully you are aware of that and truly just want the first cell that contains "p" or "m". Find will not select all cells that contain a certain string.

Also the find method does not allow for "or". You have to do two finds and then select the one with the smallest row number to get the first cell that has what you are looking for.

FG

thanks dear fanaticguru...