About Me
Estatisticas
2006-10-23
4:52 da tarde | 
Publicada por
JRod - PORTUGAL
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
