Dúvida VBA EXCEL Segmentação de Dados

[Michel de Oliveira]

Boa tarde,
Presciso de um help, tenho uma planilha com uma lista de nomes presciso montar uma macro quando ativada ela deixa selecionada somente o primeiro item da Segmentação de Dados.

Podem me dar uma luz um help. Ops


Att.
Michel de Oliveira

[Jahezer]

Boa tarde,
Presciso de um help, tenho uma planilha com uma lista de nomes presciso montar uma macro quando ativada ela deixa selecionada somente o primeiro item da Segmentação de Dados.

Podem me dar uma luz um help. Ops


Att.
Michel de Oliveira

Michel, boa noite!

Fiz a criação de um código VBA que efetua esse processo, veja se te ajuda.

Código: Selecionar todos

Sub SelecionaPrimeiroItem()
    ' vsLoop            = Usado para estrutura de repetição.
    ' vsNomeSegmentacao = Nome definido na segmentação de dados.
    Dim vsLoop As Long
    Dim vsNomeSegmentacao As String
    
    ' Recebe o nome definido na segmentação de dados.
    vsNomeSegmentacao = "SegmentaçãodeDados_Nome"
    
    ' Varre todas as opções da segmentação de dados.
    With ActiveWorkbook.SlicerCaches(vsNomeSegmentacao)
        For vsLoop = 1 To .SlicerItems.Count
            ' Se for o primeiro item, mantem selecionado, senão remove a seleção.
            If vsLoop = 1 Then
                .SlicerItems(vsLoop).Selected = True
            Else
                .SlicerItems(vsLoop).Selected = False
            End If
        Next
    End With
End Sub

Demonstração da execução


Estou deixando em anexo o arquivo zipado do Excel com a macro para download se julgar necessário.

[Michel de Oliveira]

Bom dia a todos,
Jahezer, obrigado pela ajuda, funcionou, ele demora um pouquinho para fazer 6s, tem uma forma de otimizar os loopings, já está funcionando obrigado.

[Jahezer]

Michel, boa tarde!

Que bom que consegui te ajudar! Acredito que o tempo é devido a quantidade de registros no Excel