Remplazar nombre boton por variable

[alberto4888]

Hola a todos :

If CC.Value = "B1" Then
For I = 0 To 50
N = Replace("B1" + Str(I), " ", "", 1, -1)
N.Visible = True

Next

End If

Basicamente lo que no quiero es escribir 50 veces b1 .visible =true, y de esta forma no funciona.
Un saludo.

[David]

Iniciado por alberto4888

Hola a todos :

If CC.Value = "B1" Then
For I = 0 To 50
N = Replace("B1" + Str(I), " ", "", 1, -1)
N.Visible = True

Next

End If

Basicamente lo que no quiero es escribir 50 veces b1 .visible =true, y de esta forma no funciona.
Un saludo.

Puedes crear una matriz de controles. En ese caso sería:

Código:

 
For I = 0 To 50
     B1(I).Visible = True
Next I

[alberto4888]

Ya lo puse y me dijo error de compilacion no se ha definido sub o fuction.
Gracias por responder tan pronto
Un saludo.

[David]

Iniciado por alberto4888

Ya lo puse y me dijo error de compilacion no se ha definido sub o fuction.
Gracias por responder tan pronto
Un saludo.

Pero antes de poner el código debes indexar tus controles. O sea, el control debe ser una matriz. Copia y pega el control (50 veces, según mencionaste), cuando te pregunte si desea hacer una matriz de controles, selecciona Sí.

[alberto4888]

Se me olvido decirte que lo estoy haciendo desde acces.

[David]

Iniciado por alberto4888

Se me olvido decirte que lo estoy haciendo desde acces.

Entonces estás haciendo con Macros, bueno, podrías hacer así:

Código:

On Error Resume Next
Dim Count As Long
For Count = 0 To Me.Controls.Count
    If Left(Me.Controls(Count).Name, 2) <> "B1" Then
    Else
        Me.Controls(Count).Visible = True
    End If
Next Count

Edito el mensaje porque se me ocurrió esta idea mejor

[alberto4888]

Funcionó a la primera gracias por todo.
Me permito una ultima pregunta si no te importa que diferencia por utilizar macros.
Un saludo.

[David]

Iniciado por alberto4888

Funcionó a la primera gracias por todo.
Me permito una ultima pregunta si no te importa que diferencia por utilizar macros.
Un saludo.

Es que las Macros de Office (Excel, Access, Word, etc.) no te permiten realizar muchas cosas que el Visual Basic completo te permite, por ejemplo, indexar controles. Pero la principal diferencia es que con Macros no puedes crear ejecutables (*.exe) mientras que con Visual Basic completo sí puedes.

[alberto4888]

Ok gracias.
Un saludo.