se vc quiser que todas sejam iguais, pode ser, porque:
se a textbox 1 for igual a textbox 2, qualquer uma que vc pegar vai representar as 2.
Outra opção, caso vc tenha várias (não testei pq não tenho o modelo da tua plan):
Dim i as integer, Counter as integer
Counter = 0
For i = 2 to 4 'tente usar o comando: textbox.count
If not textbox1.value = textbox&i.value then counter = counter + 1
Next i
If Counter = 0 then msgbox "todas as textbox têm o mesmo valor"
Ou essa (não testada)
Dim tb as control, Counter as integer
Counter = 0
For each tb in Me.Controls
If not textbox1.value = tb.value then counter = counter + 1
Next tb
If Counter = 0 then msgbox "todas as textbox têm o mesmo valor"
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 27/02/2014 12:41 pm