Una rutina para varios botones

[HusqNiva]

Hola de nuevo. Gracias a vosotros la cosa va prosperando

Mi cuestión es la siguiente:
Tengo 5 botones, los cuales actuan en cinco macros diferentes, con los mismos datos, pero sólo cambian los valores de algunas celdas.

Necesitaría saber como hacer que cada botón, primero lea su valor :

Sub Boton1
X=1
End Sub

Y luego que leyera una rutina y ejecutara el contenido. Y así con los demás botones.

No se si se puede utilizar goto o el gosub, ni como etiquetar la rutina.

Ahora mismo me funciona. Pero me gustaría afinar el programa.


Saludos.
Juanjo

[David]

Puedes usar un Sub con un parámetro. Por ejemplo:

Código vb:

Sub Prueba(Celda As Range, Valor As String)
    Celda.Value = Valor
End Sub
 

Ese es sólo un ejemplo simple, lo que hace es recibir como parámetro una celda y un valor, y colocar ese valor en la celda. Para llamarlo sería:

Código vb:

Prueba Range("A1"), "Texto"
 

[HusqNiva]

OK. Pero lo que yo quiero es la sintaxis para bajar a una rutina y hacerlo todo en código.

Y he encontrado esto, que es lo que yo quería. Solo me falta probarlo, pero lo dejaré para mañana


"Para llamar un procedimiento desde otro se utiliza la instrucción Call

Nombre_Procedimiento Sub P_Uno
Sentencias.
Call P_Dos
Sentencias
End Sub
Sub P_2
Sentencias.
End Sub


Las secuencias del procedimiento P_Uno se ejecutan hasta llegar a la línea Call P_Dos, entonces se salta
al procedimiento P_Dos, se ejecutan todas las sentencias de este procedimiento y el programa continua
ejecutándose en el procedimiento P_Uno a partir de la sentencia que sigue a Call P_Dos."


Gracias de todas formas