Anderson, não entendi direito a finalidade: "Em fim Preciso que um comando que grave o Caption do CommandButton acionado para usar em uma rotina.", mas se quer somente captar o Caption, é só definir e declarar as variaveis para cada CommandButton, exemplo :
Para o CommandButton : -
Private Sub CBCu_Click()
Defina a variavel antes do Do While
sCBCu = CBCu.Caption
...........
......................
............................
End Sub
E abaixo de :
Option Explicit
Adicione
Public sCBCu
Assim a Variavel ficará na memoria quando clicar neste Botão, crie umavariavel para cada Botão.
Para fazer os testes, adicione em outras rotinas a insttrução :
Private Sub CBFe_Click()
MsgBox sCBCu
Se utilizou o Private Sub CBCu_Click(), a mensagem exibirá o Caption.
espero que seja isso que preciisa.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/07/2011 5:39 pm