Search

A carregar...

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-10-23
Se pretendermos inserir uma TextBox proveniente do menu Draw num qualquer local de uma Worksheet e que essa TextBox contenha o mesmo conteúdo de uma determinada célula, como no exemplo:



podemos fazê-lo da seguinte maneira:

  • Criamos a TextBox:



  • Renomeamos a TextBox e damos-lhe o valor igual à célula que pretendemos (no exemplo, C2):



O resultado será o esperado:



E agora, se pretendermos que o valor que temos na TextBox seja inserido numa qualquer célula (no exemplo, C8), então teremos que atribuir uma macro àquela TextBox:



E o resultado será:




O Código da macro:

Sub TboxValueInCell()
    Dim ws1 As Worksheet
    Dim rng As Range
    Dim tb As TextBox
    Dim newtext

    Set ws1 = Sheets("Sheet1")
    Set rng = ws1.Range("C8")
    Set tb = ws1.TextBoxes("Text01")
    
    newtext = tb.Text
    rng = newtext

End Sub