Thanks Uday,
It is working for me.
On Thursday, August 29, 2013 11:18:46 PM UTC+5:30, udayanem wrote:
>
> Hi Mary,
>
> Following should help.
>
> i=0
> For Each cell In objWorksheet1.UsedRange
> If cell.Value <> objWorksheet2.Range(cell.Address).Value Then
> ReDim preserve val(i) ' You should use Redim preserve as the
> subscript increases for each mismatch
> ReDim preserve Row_No(i)
> ReDim preserve Col_No(i)
> Val(i) = objWorksheet2.Range(cell.Address).Value
> Row_No(i) = objWorksheet2.Range(cell.Address).Row
> Col_No(i) = objWorksheet2.Range(cell.Address).Column
> i=i+1 'I see problem with your increment, which should be
> inside the loop, so i place within the loop
> end if
> Next
>
> Please let me know if it didnt work for you.
>
> Thanks,
> Uday
> QTP \ UFT Videos <http://www.youtube.com/user/AnemUday/videos>
> QTP Videos Blog <http://qtpftvideos.blogspot.in>
>
> On Wednesday, 28 August 2013 18:04:07 UTC+5:30, Mary wrote:
>>
>> Hi All
>> I am comparing two excel files and i got row and column of mismatched
>> cell.
>> I need to store that values in array values.
>>
>> I have used the below code but getting error like subscript out of range.
>>
>> Dim Val(),Row_No(),Col_No()
>> i=0
>> For Each cell In objWorksheet1.UsedRange
>> If cell.Value <> objWorksheet2.Range(cell.Address).Value Then
>> Val(i) = objWorksheet2.Range(cell.Address).Value
>> Row_No(i) = objWorksheet2.Range(cell.Address).Row
>> Col_No(i) = objWorksheet2.Range(cell.Address).Column
>> Next
>> i=i+1
>>
>>
--
--
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 Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
