• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 348
  • Last Modified:

VB6 - Value like between 2 cells in MSHFlexgrid

Hi,

I have the below code that search a value from a specific column and row into another column and row in the same MSHFlexgrid:

    Dim C As Long
    Dim R As Long

    For C = 1 To MSHFlexGrid_rates.Cols - 1
        If MSHFlexGrid_rates.TextMatrix(0, C) = MSHFlexGrid_rates.TextMatrix(1, 4) Then
            For R = 1 To MSHFlexGrid_rates.Rows - 1
                If Left(MSHFlexGrid_rates.TextMatrix(R, C), 2) = Left(MSHFlexGrid_rates.TextMatrix(1, 6), 2) Then
                    MSHFlexGrid_rates.Row = R
                    MSHFlexGrid_rates.Col = C
                    MSHFlexGrid_rates.CellBackColor = &H80FF&
                End If
            Next R
        End If
    Next C

Open in new window


What i'm trying to do if to update this part:
If Left(MSHFlexGrid_rates.TextMatrix(R, C), 2) = Left(MSHFlexGrid_rates.TextMatrix(1, 6), 2) Then

Open in new window


I want to say:
If MSHFlexGrid_rates.TextMatrix(R, C) contains MSHFlexGrid_rates.TextMatrix(1, 6) then

Ex:
If in MSHFlexGrid_rates.TextMatrix(1, 6) i have the value: 1559 and in MSHFlexGrid_rates.TextMatrix(R, C) i have a value: 1559.00 or 1559675, it would then put the cells in orange.

It is important to tell that the number of characters may vary in MSHFlexGrid_rates.TextMatrix(1, 6).

How can i do that?

Thanks
0
Wilder1626
Asked:
Wilder1626
  • 2
1 Solution
 
Martin LissOlder than dirtCommented:
If InStr(1, MSHFlexGrid_rates.TextMatrix(R, C), MSHFlexGrid_rates.TextMatrix(1, 6)) Then...
0
 
Wilder1626Author Commented:
Thanks for your help. it works
0
 
Martin LissOlder than dirtCommented:
As always, you're welcome and I'm glad I was able to help.

In my profile you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2014
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now