Validar filas de columna de msflexgrid

[aedEric]

hola buenos dias a todos tengo una duda deseo validar todas la filas de una columna de flexgrid lo hago mediante el siguiente codigo

Código: [Seleccionar]

    With Grid1
       
        Dim i As Long
       
        For i = 1 To .Rows - 1
           
            If Trim(.TextMatrix(i, 1)) <> "hola" Or Trim(.TextMatrix(i, 1)) <> "dia" Then
               
               MsgBox "No es un dato Valido"
            End If
        Next

    End With

ahora tengo que validar unos quince datos, abra un forma de poder optimizar este codigo o otra forma de validarlos ? los datos son introducidos directamente en el grid

de antemano agradecere mucho sus opinion dudas o sugerencias gracias

[Bazooka]

Código: [Seleccionar]

With Grid1
       
        Dim i As Long
        Dim c As Long
       
        For c = 1 To .Cols - 1
            For i = 1 To .Rows - 1
               
                If Trim(.TextMatrix(i, c)) <> "hola" Or Trim(.TextMatrix(i, c)) <> "dia" Then
                   
                   MsgBox "No es un dato Valido"
                End If
            Next i
        Next c
    End With


[aedEric]

Hola Amigo Bazooka te agradezo mucho tu respuesta

fijate que tengo que validar uno 15 o 20 datos en lugar de 2

en esta linea

Código: [Seleccionar]

If Trim(.TextMatrix(i, c)) <> "hola" Or Trim(.TextMatrix(i, c)) <> "dia" Then
ejemplo

Código: [Seleccionar]

If Trim(.TextMatrix(i, c)) <> "hola" Or Trim(.TextMatrix(i, c)) <> "dia" Or Trim(.TextMatrix(i, c)) <> "tarde" Or Trim(.TextMatrix(i, c)) <> "noche" Or Trim(.TextMatrix(i, c)) <> "lunes" Then
en esta parte es donde quisiera saber si abra alguna forma de optimizar el codigo de antemano agradezco sus opiniones o sugerencias  muchas gracias

[YAcosta]

Quiza creando una matriz o sino usando InStr y preguntando si el elemento del grid existe en la cadena.

estoy en movil por eos no te puedo pasar codigo

[aedEric]

gracias amigo tratare de armar algo  saludos