Excel Hiperlink que gera um filtro automático em outra tabela

[Davethekkid]

Na tabela "FIN" eu quero inserir em cada mês um hiperlink que leve para a fonte dos dados, aplicando um filtro automático de acordo com o mês selecionado (sendo "COF" para Receitas e "DES" para despesas). Por exemplo, se eu clicasse na célula de despesas de fevereiro, eu seria levado à "DES" já filtrada com os valores só desse mês.

 

Não tenho muita noção de VBA ainda, ficarei muito grato se puderem me ajudar...

FLUXO DE CAIXA EXEMPLO.xlsx

[Midori]

@Davethekkid Veja se assim resolve, cole no módulo da planilha.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect([D6:O7], Target) Is Nothing Then
        Dim Tipo As String
        
        Tipo = IIf(Target.Row = 6, "COF", "DES")
        Call FiltraMes(Left(Cells(5, Target.Column), 3), Tipo)
    End If
End Sub

Sub FiltraMes(Mes As String, PlanNome As String)
    Dim Plan As Worksheet
    
    Set Plan = ThisWorkbook.Sheets(PlanNome)
        Plan.Activate
        Plan.[C5].CurrentRegion.AutoFilter Field:=2, Criteria1:=Mes
End Sub

 

[Davethekkid]

4 horas atrás, Midori disse:

@Davethekkid Veja se assim resolve, cole no módulo da planilha.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect([D6:O7], Target) Is Nothing Then
        Dim Tipo As String
        
        Tipo = IIf(Target.Row = 6, "COF", "DES")
        Call FiltraMes(Left(Cells(5, Target.Column), 3), Tipo)
    End If
End Sub

Sub FiltraMes(Mes As String, PlanNome As String)
    Dim Plan As Worksheet
    
    Set Plan = ThisWorkbook.Sheets(PlanNome)
        Plan.Activate
        Plan.[C5].CurrentRegion.AutoFilter Field:=2, Criteria1:=Mes
End Sub

 

@Midoritenho que substituir alguma coisa?

 

[Midori]

@Davethekkid Para testar o código abra o editor com Alt+F11. Do lado esquerdo dê duplo clique na Planilha 4 (FIN) e cole o código. Não precisa fazer nenhuma alteração. Depois de colar o código clique sobre algum valor da tabela para rodar a macro.

[Davethekkid]

@Midori tinha feito isso mas não funcionou

 

 

[Midori]

@Davethekkid Aí mostra que você colou em "EstaPastaDeTrabalho" e não em "Planilha 4 (FIN)" como eu comentei.

[Davethekkid]

@Midori kkkkk desculpe o leigo mano, deu certo agora, valeu demais cara se loco.