Este fórum está sendo desativado

[Danilobo]

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.

[Basole]

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

[Danilobo]

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.

[Danilobo]

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.

[babdallas]

Veja se o código abaixo lhe ajuda. É o evento change da planilha Cód-4.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        Planilha1.CommandButton4.Caption = Target.Value
    End If
End Sub

Note que planilha1 é a planilha onde está o commandbutton4, ou seja, altere para o name da planilha em que está este botão.

[Danilobo]

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.

[babdallas]

No evento Change da planilha Cód-4 faça o seguinte código.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        Worksheets("Menu").CommandButton4.Caption = Target.Value
    End If
End Sub

Caso não tenha atendido, favor colocar a planilha em anexo.

[Danilobo]

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.

[Basole]

Segue em anexo com a alteração,

O codigo esta na aba Cód-4.

[babdallas]

Veja se é isso.

[Danilobo]

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]

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.

[wesleyribeiro123]

Danilobo
Bom dia,

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

[Basole]

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.

[wesleyribeiro123]

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.

[Danilobo]

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

[babdallas]

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.

[Danilobo]

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.