1 resposta(s) nesse tópico

[Edson Padilha]

Bom dia prezados,

Estou com uma dificuldade que aparentemente é fácil de resolver mas não estou encontrando a solução.

Tenho um UserForm que possui um ScrollBar e este modifica uma determinada célula que é atualizada automaticamente, ao lado deste Scroll existe um TextBox onde eu gostaria que aparecesse o valor atualizado da célula sem precisar de botões de atualização.

Ja tentei TextBox1.Value = Sheets("Menu").Range("G4") e outras lógicas...

Porém, ou não aparece nada ou aparece o primeiro valor quando aberto a planilha e depois de modificada a célula permanece o valor inical.


Agradeço se puderem me ajudar.

Obrigado.

[Edson Padilha]

Bom, consegui aqui. A definição do Value da TextBox quando imposta dentro da sub do ScrollBar ela funciona buscando o valor da célula, mas quando dentro da sub Change do TextBox não.

Segue o código da ScrollBar:

Private Sub ScrollBar1_Change()
    Sheets("Menu").Range("h2") = ScrollBar1.Value
    ScrollBar1.Max = Sheets("Menu").Range("h3")
    ScrollBar1.Min = Sheets("Menu").Range("h4")
    TextBox2.Value = Sheets("Menu").Range("G4")
End Sub