Excel VBA - Rodar rotina quando alterar células com fórmulas

[KaKaBeCuDo]

Olá Boa Tarde!!

 

No arquivo em anexo, na guia "2021" coluna "C" eu consigo escolher um número. Se eu escolher o número 4 (por exemplo), ele fica indisponível para nova escolha. Essa lista de validação de dados está vinculada à guia "TEMAS" coluna "B".

 

O que eu preciso é : uma rotina que copie o Range B3:B196 da guia "TEMAS" e cole só valores no Range C3:C196 da própria guia "TEMAS".  E que essa rotina rode toda vez que eu escolher um novo número na guia "2021"

 

Obs.: A Coluna B de TEMAS se altera automaticamente toda vez que escolho um número na guia 2021.

 

Obrigado.....

TESTE.zip

[Muca Costa]

EM UM MÓDULO:
Sub Atualiza()
    Sheets("TEMAS").Select
    Range("B1").Select
    Columns("B:B").Select
    Selection.Copy
    Columns("C:C").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

NA GUIA "2021":
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    If Target.Offset(, 0).Value >= 1 Then
    Atualiza
    End If
End Sub

 

[KaKaBeCuDo]

@Muca Costa MUUUITO BOM.... ficou excelente!

 

Só uma outra coisa, eu percebi que ao final da rotina ele vai para a guia TEMAS e termina lá. 

Suponhamos que eu faça a inclusão do número na coluna C da planilha 2021 (mas eu tenha outras guias - 2019,2020, 2022). Existe a possibilidade de eu executar a ação em uma dessas guias e a rotina finalizar na mesma guia que estou adicionando o número? Tipo para o usuário nem perceber a rotina, sabe?

 

[Muca Costa]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Guia As String
    Guia = ActiveSheet.Name
    If Target.Column <> 3 Then Exit Sub
    If Target.Offset(, 0).Value >= 1 Then
    Atualiza
    End If
    Sheets(Guia).Select
End Sub

Tente assim...

[KaKaBeCuDo]

1 hora atrás, Muca Costa disse:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Guia As String
    Guia = ActiveSheet.Name
    If Target.Column <> 3 Then Exit Sub
    If Target.Offset(, 0).Value >= 1 Then
    Atualiza
    End If
    Sheets(Guia).Select
End Sub

Tente assim...

 

 

Perfeito Show de Bola!! Muito obrigado mais uma vez