Buen día;

Me podrían ayudar con este bucle, ya que me marca un error:

Private Sub TB500_Change()

If TB500.Text <> "" Then

For a = 1 To 89 Step 8

Controls("UserForm1.TextBox" & a).Visible = True

Next a

Else

For a = 1 To 89 Step 8

Controls("UserForm1.TextBox" & a).Visible = False

Next a

End If

End Sub

Saludos!

Hola, para mejor atencion debes usar etiquetas y adjuntar libro con resultados esperados.

Para mas info por favor lee las normas del foro, gracias.

Hola Armando;

Si conozco las normas del foro,, hace tiempo fuí Moderador aquí,, sin embargo sólo apoyaba en fórmulas y funciones. a las macros no le muevo nada.

No subo el archivo, ya que está muy pesado.

Tengo detalle sólo en este bucle, lo qe quiero es:

Si el TextBox 500 no se ha capturado nada, no estén visibles los TextBox del 1 al 89, es decir el:

TextBox1

TextBox9

TextBox17

etc, etc....

El TextBox500 está en el UserForm7 y los deás en el UserForm1

Private Sub TB500_Change()

If TB500.Text <> "" Then

For a = 1 To 89 Step 8

Controls("UserForm1.TextBox" & a).Visible = True

Next a

Else

For a = 1 To 89 Step 8

Controls("UserForm1.TextBox" & a).Visible = False

Next a

End If

End Sub

[/CODE]

Hola @[uSER=32472]Carlos[/uSER]:

Así funciona, siempre y cuando el Userform1 se encuentre mostrado o cargado.

Private Sub TB500_Change()

On Error Resume Next


  For a = 1 To 89 Step 8

      If TB500.Text <> "" Then

        UserForm1.Controls("TextBox" & a).Visible = True

      Else

        UserForm1.Controls("TextBox" & a).Visible = False

      End If

  Next a



End Sub

[/CODE]

Excelente Macro Antonio;

Estaba muy cerca, sólo traía algo cambiado, ya lo probé y funciona correctamente,, y sí el Userform1 está cargado,,

Una duda, lo que hace esta línea:

On Error Resume Next

Si tiene errores el bucle,, no se inhiba y corte?

Gracias por el apoyo.

Saludos!

Simplemente, se salta la línea errónea.

Se quedo de las pruebas, si prefieres que no se salte el error, elimínala.