Duvidoso,

Boa tarde!

Pode até ser que eu esteja enganado e que exista uma forma de fazer o que você está pedindo, todavia, se aparecer alguém com a resposta correta que você quer, eu também quero aprender. Já vi que em VBA, principalmente quando se utiliza recursos de módulos de Classe e também as API's do Windows tem muita coisa que nem imaginava que pudesse ser feita. Assim, vamos ver se alguém responde...

A princípio, como o VBA é uma linguagem voltada para EVENTOS e não há no objeto Userform nenhum evento que o faça identificar que houve um clique em um dos objetos que compõem o formulário, como o código seria disparado? Digo isso porque quando você clica no objeto Botão, o formulário perde o foco ativo. O Foco passa a ser o objeto clicado e, nesse caso, dispara o evento Click desse objeto. Então, ao meu ver, é impossível você clicar em um botão sem que seja disparado um evento clique desse mesmo botão.

Existe uma propriedade no objeto botão chamada TAG que você pode definir em tempo de design e, em tempo de execução do código, descobrir qual foi o botão clicado pela sua respectiva propriedade TAG previamente definida. Todavia, para isso, é necessário, obviamente, clicar no botão.

Confesso que não entendi a necessidade. Poderia explicar o porque dessa necessidade?

Duvidoso,

A única maneira que conheço para isso seria, criar uma variável do tipo Integer ou Long no escopo do formulário, ex :

Dim idBotao As Long

Criar uma Sub que valide essa variável, e que conterá todas as rotinas que serão executadas de acordo com cada botão, ex:

Sub validarBotao()
   'Laço Select Case ou If para validar a variável
   Select Case idBotao
      Case = 1
         'Código para o botao 1
      Case = 2
         'Código para o botao 2
      Case = 3
         'Código para o botao 3
     'E assim por diante
   End Select
End Sub

E no evento Click de cada botão, basta alterar o valor da variável e chamar a Sub, ex:
Para o botão 1 :

Private Sub CommandButton1_Click()
   idBotao = 1
   Call validarBotao
End Sub

Para o botão 2 :

Private Sub CommandButton2_Click()
   idBotao = 2
   Call validarBotao
End Sub

Para o botão 3 :

Private Sub CommandButton3_Click()
   idBotao = 3
   Call validarBotao
End Sub

E assim para todos os botões do formulário.

Espero ter ajudado.

Abs

Saulo,

Parabéns. Dessa forma, utilizando o evento click do botão clicado, ótimo. Eu também sei que é possível. Inclusive, não precisa da variável. Basta pegar o conteúdo da propriedade TAG de cada botão, previamente atribuída em modo de design. Todavia, da maneira que ele pediu:

sem ter Sub/Comando para o "Button1"

...

Fica difícil... pelo menos pra mim. Pois aí, o userform teria que trabalhar por "adivinhação".

Atribuir a Vários Controles a Mesma Rotina [VBA]
Felipe Gualberto

https://www.youtube.com/watch?v=Y2PU6ueBOqQ&feature=share

Segue um modelo utilizando Classes. Talvez auxilie

Ual!!!!!!!!!!!!!!!! Parabéns e obrigado eu sou muito grato a vocês, trabalho a um bom tempo com VBA e graças a pessoas como vocês hoje consigo desenvolver boas rotinas. Limpas e eficientes.

Estou fazendo uma formação em C# também programação é um mundo incrível para mim todas as linguagens são fascinantes todas possuem seus propósitos.

Muito obrigado a todos.