Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Atualizar textbox a...
 
Notifications
Clear all

Atualizar textbox apos atualizar planilha

 
2024 - VBA & Macros
Post Recente por sossego 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,072 Visualizações
RSS
 sossego
(@sossego)
Posts: 11
Active Member
Topic starter
 

Boa noite

Estou usando este código para atualizar algumas informações de uma planilha,

Private Sub CommandButton1_Click()
Dim w As Worksheet
Set w = Plan1
w.Range("c7") = CDbl(Me.TxtAno.Value)
w.Range("c10") = Me.ComboMês.Value
w.Range("c13") = CDate(Me.TxtDia.Value)

end sub

mas gostaria que quando eu atualizo usando este código logo depois estas outras textbox sejam atualizados

T

xtVendasMes.Value = Range("g7").Value
TxtComprasMes.Value = Range("g10").Value
TxtSaldoMes.Value = Range("g13").Value
TxtSaldoDia.Value = Range("k13").Value
TxtVendasDia.Value = Range("k7").Value
TxtComprasDia.Value = Range("k10").Value
 
Postado : 20/03/2017 5:20 pm
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde sossego,

Acho que você mesmo escreveu a resposta:

Private Sub CommandButton1_Click()
    Dim w As Worksheet
    
    Set w = Plan1
    w.Range("c7") = CDbl(Me.TxtAno.Value)
    w.Range("c10") = Me.ComboMês.Value
    w.Range("c13") = CDate(Me.TxtDia.Value)
    
    'As TXT recebe os valores das células
    TxtVendasMes.Value = Range("g7").Value
    TxtComprasMes.Value = Range("g10").Value
    TxtSaldoMes.Value = Range("g13").Value
    TxtSaldoDia.Value = Range("k13").Value
    TxtVendasDia.Value = Range("k7").Value
    TxtComprasDia.Value = Range("k10").Value
        
End Sub

Coloque o valor que as TxTs devem receber logo em seguida no código.

att,

 
Postado : 21/03/2017 1:12 pm
 sossego
(@sossego)
Posts: 11
Active Member
Topic starter
 

obrigado

 
Postado : 21/03/2017 4:20 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico