UDHAY, I think this will work for you...
Dim xl
t = "shashi"
Set xl = createobject("excel.application")
xl.Visible = true
Set sd = xl.Workbooks.Open ("C:\Documents and Settings\aa\Desktop\kk.xls")
Set st = sd.Worksheets("sheet1")
rows = st.usedrange.rows.count
coloumn = st.usedrange.columns.count
For i = 1 to rows
For j = 1 to coloumn
If st.cells(i,j) = t Then
st.cells(i,6) = "pass"
End If
Next
next
Also i have attached the excel that i have tested...
Regards
Shashidhar
+91 -8125564879
[email protected]
On Tue, Jun 5, 2012 at 12:56 PM, udhaya kumar <[email protected]>wrote:
> Hi All,
>
> i have to find particular keyword in excel and then i have
> to put pass/Fail in particular column cells. Please help me.
>
>
> Thank You,
> Udhay
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
kk.xls
Description: MS-Excel spreadsheet
