Botón da valor a un celda Excel

¡Gracias! Agradezco mucho tu interés, ya había recibido dos respuestas de otros expertos y solucione mi problema. Me llamó mucho la atención el vídeo del formulario de inventario, en mi proyecto es importante este tema, visitare los tutoriales y creo que vamos a estar en contanto. Muchas gracias.

Te anexo un ejemplo, los 3 botones llaman al userform5, antes de abrir el userform5, el textbox1 del userform5 recibe un dato:

Private Sub CommandButton1_Click()
    With UserForm5
        .TextBox1 = "llamada desde el botón1"
        .Show
    End With
End Sub
'
Private Sub CommandButton2_Click()
    With UserForm5
        .TextBox1 = "Botón 2"
        .Show
    End With
End Sub
'
Private Sub CommandButton3_Click()
    With UserForm5
        .TextBox1 = "botón 3"
        .Show
    End With
End Sub

R ecuerda valorar esta respuesta y las otras 2 que tienes pendientes. G racias

'

Avísame cualquier duda

.03.04.17

Hola, Diana

Habría que ver qué otras cosas pasan en el segundo Userform, pero esta sería una forma de resolver lo que solicitas:

Public ElTexto
Private Sub CommandButton1_Click()
ElTexto = "texto a mostrar desde Botón 1"
UserFormX.TextBoxX = ElTexto
End Sub
Private Sub CommandButton2_Click()
ElTexto = "texto a mostrar desde Botón 2"
UserFormX.TextBoxX = ElTexto
End Sub
Private Sub CommandButton3_Click()
ElTexto = "texto a mostrar desde Botón 3"
UserFormX.TextBoxX = ElTexto
End Sub

Reemplaza, claro, la X de UserFormX y de TextBoxX con los corespondientes a tu proyecto.

Saludos

Fer

.