Hi All,
I need to find a value = ".length()" in the excel sheet row and check
if the row color is is RED .I found many sample codes on Google but
none of them helped me. please help me in this...
Thanks. I used the code below to do the same.
On Error Resume Next
Set objExcelApp = createobject("Excel.Application")
objExcelApp.visible=true
Set objWorkbook = objExcelApp.Workbooks.Open("C:\Shalabh\Automation
Framework\Templates\DIA_Proposed_Mapping_Template_GHEPM.xls")
Set objWorksheet = objWorkbook.Worksheets("DIA Mapping")
set objValueFind = objWorksheet.UsedRange.Find(".length()")
If Not objValueFind Is Nothing Then
rem find the address
firstAddress = objValueFind.Address
rem make the gray color if it finds the data
MsgBox "value Found"
objValueFind.Interior.ColorIndex = 40
Do
Set objValueFind = .FindNext(objValueFind)
Loop While Not objValueFind Is Nothing And objValueFind.Address
firstAddress
End If
--
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
