Botão Receber informações de uma célula

Galera, to precisando de ajuda

Tenho vários botoes que buscam um valor digitado qualquer.

Tenho esse comando:
Private Sub CommandButton01_Initialize()
CommandButton01.Caption = Plan10.Range("a4")
End sub

A4 no caso é variado, pode mudar pra qualquer valor.


O que ta acontecendo: Ele recebe as informações apenas quando fecho e abro a planilha novamente.


Gostaria de que quando fosse mudando a informação, os valores do botão mudasse automaticamente também.


Alguem pode ajudar?

Olá doidoDmais,

O problema que está reportando acontece por conta do momento em que é rodado seu comando:
Private Sub CommandButton01_Initialize()

Assim, somente quando a planilha é inicializada que o rótulo do botão é atualizado.

Uma maneira de acertar a atualização do botão é colocar o mesmo código que criou (CommandButton01.Caption = Plan10.Range("a4")) só que no evento após atualização da célula A4.

Se precisar de ajuda para configurar isso é só dar reply aqui ou me Add no

Skype: Excelling_Treinamentos
MSN: contatoARROBAexcellingPONTOcomPONTObr

Abração

Quero ajuda sim!

Se puder me postar, agradeço.

Olá doidoDmais,

Como disse, você precisa ajustar o momento em que o código (CommandButton01.Caption = Plan10.Range("a4")) será executado.
Para isso entre no editor VBA (Alt + F11) e se posicione na sua "Plan10".
Adicione o código:

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton01.Caption = Plan10.Range("a4")
End sub

Desta maneira, qualquer alteração em células na sua aba "Plan10" fará com que a o Rótulo do botão seja atualizado com o valor da célula "A4".

Se precisar de mais informação sobre o funcionamento destes eventos me dê um toque.

Abração

João Villela
WWWoEXCELLINGoCOMoBR

Bom dia João,

Ficou beleza agora, valeu pela ajuda.