[AYUDA EXCEL] Optimizar codigo vb

A mí sí me funciona el método SetFocus. Por ejemplo, este código (que
está asociado al botón CommandButton1), hace lo que debe, sin
problemas:

Private Sub CommandButton1_Click()
Dim n As Integer
For n = 0 To Me.Controls.Count - 1
If Left(Me.Controls(n).Name, 7) = "Validar" Then
If Me.Controls(n) = "" Then
MsgBox "El control " & Me.Controls(n).Name & " está
vacío." Me.Controls(n).SetFocus
End If
End If
Next n
End Sub


El código recorre todos los controles del formulario y si alguno de
los cuadros de texto cuyo nombre empieza por "Validar" está vacío,
muestra un mensaje y vuelve a él.

Si sigues sin conseguir que te funcione SetFocus, puedo mandarte un
libro con el formulario del ejemplo, y si no te funciona sabremos que
es algún problema del equipo o de la versión que tienes. Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Arroyo" wrote in
news::


Fernando, a este paso tendré que invitarte a comer :) La verdad es que
eres un lujo:))

Te cuento rapidamente mi experiencia. He confeccionado un formulario con
3 textbox llamados ValidarUNO, ValidarDOS y ValidarTRES. He insertado tu
codigo (que bonito :) y me funciona pero quizás no como debería.
¿Interpreto mal si pienso que se debería parar despues de cada MsgBox y
tomar el foco del primero que encuentra vacío?

Te pregunto esto porque dejando los 3 en blanco recibo 3 MsgBox seguidos
y por ultimo toma el foco del ultimo (ValidarTRES).

Por simplificar, se me ha ocurrido probar sobre un evento EXIT (de
ValidarUNO) y otro CommandButton_Click el siguiente codigo:

If Me.ValidarUNO = "" Then Me.ValidarUNO.SetFocus

El resultado es que sobre Exit no funciona pero sí lo hace sobre
Click... ¿Problema del evento?... ¿O de mi versión?(9108 VBA Retail
6.3.8863 Forms:2.01)...

En cualquier caso, ya sé dónde funciona y dónde no, que ya es mucho :))

GraciasMIL
Un saludo,
Nilo