Help in VBScript....

[abhijit2610]

Hi,

I have script that returns row number after string match, but i want value of that cell

like table

name id
JJ 1
JK 7

in this case if i search JK it returns 2 not 7 and i want 7

please see the code below

======================

Dim Input
Input = InputBox("Please enter Name")

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
strExcelFile = "C:\Users\Desktop\test1.xlsx"
objExcel.Workbooks.Open strExcelFile

strValue = Input
lngRowNum = objExcel.Match(strValue, objExcel.ActiveSheet.Range("A1:A4"), 0)

MsgBox lngRowNum

Please suggest me where i need to change the code...

[Greg M]

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

The highlighted value may be altered to suit your own requirements.


I assume that you need this routine to create a temporary new instance of Excel - if you don't need a new instance the code can be made significantly shorter.

Hope this helps - please let me know how you get on.

Regards,

Greg M

[TMS]

Please Login or Register  to view this content.

Regards, TMS

[alansidman]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)