Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por SandroLima 11 Jan 2019 às 14:55
Membro 5 Estrelas
Mensagens: 412
Reputação: 6
#40045
Boa tarde, pessoal.

Tenho essa rotina ao abrir a pasta de trabalho:
Código: Selecionar todosOption Explicit

Private Sub Workbook_Open()
   
    Application.ScreenUpdating = False
   
    Dim TabelaConsulta As ListObject
    Dim TabelaConsulta2 As ListObject
       
    Set TabelaConsulta = wshAtivDiarias.ListObjects("TB_ConsultaAtivCadastrada")
    Set TabelaConsulta2 = wshPlanAuxiliar.ListObjects("TB_ConsultaAtivCadastrada2")
   
    TabelaConsulta.ListRows(1).Range(1, 2).Value = Date
    TabelaConsulta.ListRows(1).Range(1, 4).Value = "Entrada"
    TabelaConsulta.ListRows(1).Range(1, 5).Value = "Ocasional"
    TabelaConsulta.ListRows(1).Range(1, 6).Value = "-"
   
    wshPlanAuxiliar.Range("Consulta_Data").Value = TabelaConsulta.ListRows(1).Range(1, 2).Value
    wshPlanAuxiliar.Range("Consulta_Fluxo").Value = TabelaConsulta.ListRows(1).Range(1, 4).Value
    wshPlanAuxiliar.Range("Consulta_Periodicidade").Value = TabelaConsulta.ListRows(1).Range(1, 5).Value
    wshPlanAuxiliar.Range("Consulta_ID").Value = TabelaConsulta.ListRows(1).Range(1, 6).Value
                                   
    Set TabelaConsulta = Nothing
    Set TabelaConsulta2 = Nothing
   
    Application.ScreenUpdating = True

End Sub


Mas gostaria que cada vez que realizasse uma mudança nas células da planilha "Atividades Diarias"mencionadas no código fosse feito a mudança nas células correspondentes da planilha "Plan_Aux".

Isso deve ser feito no evento change da planilha Atividades Diarias, correto?
Podem elucidar na planilha anexa ou aqui no tópico como ficaria, por favor.
Apenas usuários registrados podem ver ou baixar anexos.