Establecer una variable que contenga el nombre de un Control (Command Button)

[edloma]

Saludos a todos los foristas
Según el Ej. quiero establecer un Bucle For... Next que corra en los diferentes controles y para ello necesito una variable que contenga los nombres de dichos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

Option Explicit
Private Sub Actualizar_Click()
    Dim i As Long
    For i = 1 To 10
        Range("F" & i + 1).FormulaR1C1 = "=CONCATENATE(RC[-5],"" - "",RC[-4],"" = "",DOLLAR(RC[-1],2))"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

Casi podriamos olvidarnos de las formulas en la columna [F]

Option Explicit
Private Sub Actualizar_Click()
    Dim i As Long
    For i = 1 To 10
        With Me.OLEObjects("C" & i).Object...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[edloma]

Ferpecto, KL.
Suponí­a que con el evaluate podí­a prescindir de utilizar una celda para evaluar el valor pero algo me dejaba que no salí­a y en cuanto a la fórmula "chapeau" os sacaí­s conejos de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[edloma]

Nuevamente hola KL
He querido hacer lo siguiente pero no puedo porque el objeto no admite la propiedad Caption. En que difiere de lo propuesto anteriormente??.
Cómo se podrí­a solucionar

Private...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[edloma]

Ya di con la respuesta

Dim CTRL As Object

Set CTRL = Me.OLEObjects("D" & i).Object

With CTRL
.Caption = Evaluate("=A" & Fila & "&"" - ""&B" & Fila & "&"" = ""&DOLLAR(E" & Fila &...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]