Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Preenchimento autom...
 
Notifications
Clear all

Preenchimento automático usando VBA em tabela

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por Mapelli 9 anos atrás
2 Posts
1 Usuários
0 Reactions
560 Visualizações
RSS
 Mapelli
(@mapelli)
Posts: 2
New Member
Topic starter
 

Boa tarde senhores!

Preciso que quando eu altere o valor de (B2), (C2) seja preenchido com o valor de (A2).

Preciso fazer isso via VBA de maneira automática, não posso usar fórmula na célula (C2), pois esse valor pode ser alterado pelo usuário.

Estou usando isso em uma tabela (intervalo formatado como tabela) que pode ir da linha 2 ao "infinito".

Alguém pode me dar uma luz?

Muito obrigado!

 
Postado : 30/03/2016 2:24 pm
 Mapelli
(@mapelli)
Posts: 2
New Member
Topic starter
 

Buenas!

Consegui resolver da seguinte forma:


Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("Tabela1[Número da ação]")) Is Nothing Then
            ActiveCell.Offset(-1, -1).Activate
                Selection.Copy
            ActiveCell.Offset(0, 2).Activate
                ActiveSheet.Paste
                Application.CutCopyMode = False
            ActiveCell.Offset(0, -1).Activate
        End If
        Application.EnableEvents = True
End Sub

Muito obrigado de qualquer forma!

Forte Abraço

 
Postado : 30/03/2016 3:12 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico