Ejecutar Private Sub Click(Comando 3, Comando 14, Comando24)

No parece tener mucha lógica pero, si los botones están en el mismo objeto (Hoja, Userform, etc.) algo así te servirá:

Private Sub CommandButton4_Click()
CommandButton1_Click
CommandButton2_Click
CommandButton3_Click
End Sub

Comentas

Abraham Valencia

Abraham muchas gracias por su ayuda, pero ajuste el código según su observaciones, al ejecutarlo me arroja el siguiente error: error de compilación no se ha definido sub o función.

el código es:

Private Sub Comando27_Click()
Commando3_Click
Commando13_Click
Commando24_Click
End Sub

Nuevamente muchas gracias

Creo que lo estas haciendo de una manera incorrecta.

Te doy una idea.

El código de cada botón, lo puedes meter en una sub o función (dependiendo que se ejecute). Y después solo llamar la sub o función, de un solo botón.

Y si quieres tener los otros botones por separado, es lo mismo, solo llamas la sub o función.

Por ejemplo:

Private Sub botonPrincipal_Click()
  Call Inserta
  Call Mensaje
  Call Salir
End Sub

Private Sub Inserta()
    Currentdb.Execute "INSERT INTO MiTabla(Nombre)Values(" & Me.txtNombre & ")",dbfailonerror
End Sub

Private Sub Mensaje()
    MsgBox "Registro insertado"
End Sub

Private Sub Salir()
    Docmd.Close
End Sub

De esta manera solo serán llamadas. Igual para cada botón solo hacer llamadas.

¡Muchas Gracias Excelente !