Yo me refiero a que crees un array bidimensional para trabajar:
Y los textbox en 6 arrays de 5 textbox
Fila0(0), Fila0(1), Fila0(2) .....
Fila1(0).....
Fila2(0).....
Al tener 6 arrays de texto, debes crear una sub que haga el trabajo y sea llamada desde los 6 eventos text_change de los textbox
Quedaría algo así:
A cada evento change de los 6 textbox le pones esta línea:
Compara (0,index)
o
Compara (1,index)
etc, dependiendo del textbox
y luego creas la sub algo asi:
Private Sub Comparar(byval NumeroDeTextBox as integer, byval Posicion as integer)
Static EstoyEnUso as boolean ' esto evita que cuando estas modificando aqui los textbox,
' se vuelva a entrar en esta sub, ya que se estaría llamando a sí misma sin necesidad
Dim Arrayb(5,4) as string
if estoyenuso=true then exit sub
estoyenuso=true
' Pasas los valores de los textbox al Array
For f=0 to 4
arrayb(0,f)=Fila0(f).text
arrayb(1,f)=Fila1(f).text
arrayb(2,f)=Fila2(f).text
arrayb(3,f)=Fila3(f).text
arrayb(4,f)=Fila4(f).text
arrayb(5,f)=Fila5(f).text
next f
y a partir de aquí trabajas con
Arrayb (i,j)
en lugar de
fila(i,j).text
Si necesitas saber que array de textbox ha sido el que ha llamado a la sub y que index tenía,
usa las variables que he incluido en la definición de la sub.
Si no, déjala en : Private Sub Comparar()
y al final pasas el array a los textbox
Fot f=0 to 5
Fila0(f).text=arrayb(0,f)
Fila1(f).text=arrayb(1,f)
Fila2(f).text=arrayb(2,f)
Fila3(f).text=arrayb(3,f)
Fila4(f).text=arrayb(4,f)
Fila5(f).text=arrayb(5,f)
next f
estoyenuso=false
End Sub
Aunque parezca que modificas todos los textbox y va a parpadear, no se nota.
Espero que te sirva. Me he enrrollado un poco pero tampoco quiero quitarte el placer de hacerlo escribiendo todo el código.
Si sigues con dudas pregunta que no cuesta dinero (claro, primero usa el coco un poco).
Los que saben se reirán de mis soluciones, y puede que meta la pata, pero, jeje, ellos ahora no están aquí
Saludos.