Guru do Excel e Power BI

Bom dia. Por favor, gostaria de saber se tem como colocar o conteúdo de uma célula na propriedade caption do botão de comando (commandButton)? Gostaria que o label dele mudasse de acordo com o valor da célula., ou se tem algum código em VBA que faça isso.
Obrigado.

se o seu commandButton esta em um aba e se voce esta se referindo label como caption, veja este exemplo:

Tenho um botão de comando em uma planilha, executando o código abaixo:
Private Sub CommandButton4_Click()
Sheets("Cód-4").Select
End Sub

Gostaria que a propriedade Caption dele, pudesse buscar o conteúdo direto da célula B1 da planilha Cód-4. Isso faria com que toda vez que eu alterasse o conteúdo da célula, ele mudaria o nome do botão automaticamente.

Basole escreveu:se o seu commandButton esta em um aba e se voce esta se referindo label como caption, veja este exemplo:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
Plan2.CommandButton1.Caption = Range("B1").Value2
End Sub

Tenho um botão de comando em uma planilha, executando o código abaixo:
Private Sub CommandButton4_Click()
Sheets("Cód-4").Select
End Sub

Gostaria que a propriedade Caption dele, pudesse buscar o conteúdo direto da célula B1 da planilha Cód-4. Isso faria com que toda vez que eu alterasse o conteúdo da célula, ele mudaria o nome do botão automaticamente.

Veja se o código abaixo lhe ajuda. É o evento change da planilha Cód-4.
Note que planilha1 é a planilha onde está o commandbutton4, ou seja, altere para o name da planilha em que está este botão.

Ainda não deu certo. O botão de comando está na planilha Menu, e o conteúdo da propriedade Caption tem que estar na planilha Cód-4. Tentei tb com uma planilha zerada, mas não deu certo.

No evento Change da planilha Cód-4 faça o seguinte código.
Caso não tenha atendido, favor colocar a planilha em anexo.

Planilha de teste em anexo. O botão de comando esta na aba Menu e o conteúdo dele está na aba Cód-4, célula B1. Gostaria que a propriedade Caption desse botão fosse preenchida com o conteúdo da célula B1, ou seja, toda vez que eu alterasse o conteúdo da célula B1, o label do botão mudasse tb.

Segue em anexo com a alteração,

O codigo esta na aba Cód-4.

Veja se é isso.

Na planilha teste funciona, mas na original não. Parece que quando está com outros eventos ele não funciona. O botão de comando tem o seguinte evento:
Private Sub CommandButton2_Click()
Sheets("Cód-1").Select
End Sub
Se tivesse como inserir o comando dentro dessa sub, talvez funcionasse.

babdallas escreveu:Veja se é isso.

Na planilha teste funciona, mas na original não. Parece que quando está com outros eventos ele não funciona. O botão de comando tem o seguinte evento:
Private Sub CommandButton2_Click()
Sheets("Cód-1").Select
End Sub
Se tivesse como inserir o comando dentro dessa sub, talvez funcionasse.

Danilobo
Bom dia,

Veja no anexo.
Apenas complementei o código de nossos amigos ai de cima!!!

Parece que quando está com outros eventos ele não funciona

Funciona sim!.
No arquivo exemplo que voce postou o nome do seu botão, esta como CommandButton1, e na original CommandButton2, conforme voce postou.
Verifique este detalhe e altere se for o caso os codigos, deixando-os com o mesmo nome.

Caso não seja isso, anexe o arquivo original, ou então ficaremos aqui tentando lhe ajudar em cima de suposições.

Danilobo

Desconsidere o primeiro arquivo que mandei.., Considere este segundo anexo...
Saquei aqui o teu problema e já resolvi no anexo abaixo.

O teu problema é que vc tem um Botão com Name "CommandButton2" e a turma está se referenciando nos anexos ao "CommandButton1". Se não ajustar o Name do Button ele não vai dar erro mas também não vai funcionar!!!

Tente adaptar o código que está em meu anexo.

Infelizmente ainda não funciona. Mesmo na planilha teste funciona apenas por um tempo depois para. Realmente não sei o que acontece. Coloquei em uma planilha totalmente nova e funciona apenas por um tempo. Se eu entro no código, onde está descrito "Worksheets("Menu").CommandButton4.Caption = Target.Value, e mudo o número do CommandButton de 4 para 1 ele já dá pau. Se simplesmente entro na propriedade do Botão de comando e saio ele já para de funcionar. Se eu pudesse colocar dentro do código abaixo talvez funcionasse.

Private Sub CommandButton1_Click()
Sheets("Cód-4").Select
End Sub

Fiz vários testes aqui e não percebi que funciona apenas por um tempo. Mesmo assim, ainda fiz o código no comando click do botão.
Veja se atende.

Valeu gente ... deu Certo... estava dando errado porque eu estava colocando o nome renomeado da aba ao invés do nome original da planilha que é Plan1, Plan2, Plan3, etc...
Sheets("Cód-2").Select
Plan4.CommandButton1.Caption = Plan8.Range("b1").Value

Obrigado a todos que me auxiliaram.