Notifications
Clear all

Preenchimento textbox e botão alterar

4 Posts
2 Usuários
0 Reactions
1,021 Visualizações
(@marciofsa)
Posts: 7
Active Member
Topic starter
 

Bom dia Pessoal,

Gostaria que a textbox fosse preenchida com o conteúdo da célula selecionada, para àpartir daí fazer as alteração do dados e salvar o mesmo.
Tipo se eu selecionar o conteúdo da A1, quando o formulário for carregado ele exibe esse conteúdo. A2, a mesma coisa e assim por diante. Exemplo em anexo.
Aproveitando, se puderem me passar o codigo do botão alterar, ficaria muito agradecido.... :P :P

 
Postado : 22/01/2018 7:26 am
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub UserForm_Initialize()
Me.TextBox1.Text = ActiveCell.Value
End Sub
 
Postado : 22/01/2018 2:01 pm
(@klarc28)
Posts: 971
Prominent Member
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.TextBox1.Text
End Sub
 
Postado : 22/01/2018 2:06 pm