Este fórum está sendo desativado

[SandroLima]

Bom dia, pessoal

Podem verificar pq o código da planilha "Atividades Diarias" não está funcionando?

Código: Selecionar todos

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim TabelaConsulta As ListObject, TabelaConsulta2 As ListObject
        
    Set TabelaConsulta = wshAtivDiarias.ListObjects("TB_ConsultaAtivCadastrada")
    Set TabelaConsulta2 = wshPlanAuxiliar.ListObjects("TB_ConsultaAtivCadastrada2")
    
    If Not Application.Intersect(Target, TabelaConsulta.ListColumns("Data").DataBodyRange) Is Nothing And VBA.IsDate(Target.Value) Then
        With wshPlanAuxiliar
            .Range("Ano_Referencia").Value2 = VBA.Year(Target.Value2)
            .Range("Mes_Referencia").Value2 = Application.WorksheetFunction.Proper(VBA.Format(Target.Value2, "mmmm"))
        End With
    End If
    
    If Not Application.Intersect(Target, TabelaConsulta.ListColumns("Fluxo").DataBodyRange) Is Nothing Then
        With TabelaConsulta2.ListRows(1)
            .Range(1, 5).Value2 = TabelaConsulta.ListRows(1).Range(1, 5).Value2 'Coluna Fluxo
        End With
    End If
    
    If Not Application.Intersect(Target, TabelaConsulta.ListColumns("Periodicidade").DataBodyRange) Is Nothing Then
        With TabelaConsulta2.ListRows(1)
            .Range(1, 6).Value2 = TabelaConsulta.ListRows(1).Range(1, 6).Value2 'Coluna Periodicidade
        End With
    End If
    
End Sub

A cada alteração nos campos relacionados do código da planilha "Atividades Diarias" ele deveria alterar o respectivo campo da "Plan_Aux".

Há como o código ser melhorado/resumido. Fiz ele baseado apenas no campo data e depois incluí os demais campos (Fluxo e Periodicidade)

Obrigado a quem puder colaborar.

[SandroLima]

Eu havia enviado o código errado.

Podem verificar o funcionamento agora por favor?

Obrigado.

[SandroLima]

Bom dia.... alguém poderia verificar por favor?

[SandroLima]

Boa tarde, pessoal.
O problema resolvido. O erro era com os intervalos nomeados.
Tudo ok com o código.