Atualizar textbox apos atualizar planilha

2024 - VBA & Macros

Post Recente por sossego 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,084 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

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)

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