Saber criar uma Segmentação de Dados Automática no Excel vai possibilitar a seus relatórios uma customização incrível, possibilitando a entrega de tabelas dinâmicas personalizadas.😉 E, sim...rs...eu esqueci de mostrar as segmentações que deveriam aparecer no canto aos 17 segundos de vídeo. Me desculpem pessoal, é a correria...rs
esse vídeo não era exatamente a solução que procurava, mas me ensinou uns passos necessários. No geral eu queria vincular duas segmentações de dados porém de planilhas diferente, isso por que na planilha que estou desenvolvendo em VBA para controle financeiro tenho duas planilhas dinâmicas com dados separados de entradas e saídas, nesse sentido meu dashboard não estava funcionando com uma segmentação de dados só, então espelhei as duas segmentações de dados. protótipo abaixo: Sub espelhar() 'alterar para evento click ou evento change ' essa solução foi desenhado para espelhar as seguimentações de planilhas diferentes Dim slicerCache1 As SlicerCache Dim slicerCache2 As SlicerCache Set slicerCache1 = ThisWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro") Set slicerCache2 = ThisWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1") Dim itemtotal As Long Dim itemunico As Long 'algumas variávei acabei não utilizando ainda itemtotal = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro").SlicerItems.Count ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1").ClearManualFilter
For itemunico = 1 To itemtotal If ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro").SlicerItems(itemunico).Selected = True Then ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1").SlicerItems(itemunico).Selected = True Else ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1").SlicerItems(itemunico).Selected = False End If Next End Sub obrigado professor.
Excelentes vídeos, tenho uma dúvida. É possível ao salvar o arquivo, ele sair com o nome da segmentação selecionada? A segunda dúvida é se existe alguma parte da biblioteca que deleta todos os segmentos selecionados(Como se estivesse filtrado no vazio). Obrigado desde já!
Muito bom!!! Qual botão vc clica quando vc deseja escrever "activeworkbook" e vc digita somente "acti" e exibe as opções para vc selecionar e não precisar digitar tudo?
Opa, vamos la. Após digitar os primeiros caracteres do objeto ou comando que quer utilizar, pressione Ctrl + Espaço para exibir a lista de elementos que iniciam com os mesmo caracteres que digitou, e ao localizar o item da lista que deseja (com as setas do teclado mesmo), pressione a tecla TAB. Um abraço😉
Oi !!! Eu gostaria de saber se tem como eu bloquear a seleção multípla na caixas segmentação de dados, pois eu preciso que os dados selecionados fiquem salvos até a proxima alteração, abrindo e fechando o arquivo.
Olá boa tarde, é possível vincular essa macro a função ontime, para que num horário determinado ela mude para segmentação de dados que eu deseja? Ex: das 6 as 12 ela mantem selecionado o turno matutino, das 12 as 18 o turno vespertino e das 18 as 22 o turno matutino, e novamente quando der 6 da manhã ela volte para o matutino?
Professor, eu criei uma macro para que ao clicar na segmentação, essa macro execute o que determinei. Mas quando eu atribuo a macro na segmentação, a macro não funciona. E quando crio uma forma e atribuo a macro, a macro funciona normalmente. O que devo fazer para que ao clicar no filtro da segmentação a macro funcione normalmente?
No meu caso, eu preciso selecionar 1 item e copiar dados do que foi filtrado abrir um bloco de notas e salvar com um nome específico. E novamente com o próximo item. É possível?
Consegui com isso: totalItem = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Vendedores").SlicerItems.Count
For itemUnico = 1 To totalItem If ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Vendedores").SlicerItems(itemUnico).Selected = True Then filtro = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Vendedores").SlicerItems(itemUnico).Value End If Next
Kelly, para trabalhar com o nome dos botões, precisaria comparar o texto com este código : ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_unidade").SlicerItems(itemUnico).Name Um abraço😉
@@ExcelOnlineBrasil Eu tenho um Dashboard criado po mim que têm uma lista de vendedores que eu os seleciono manualmente. Eu queria poder acompanhar de tempos em tempos a mudança desses indicadores de cada vendedor.
Sobre a acentuação do VBE: verifique se a fonte que vc está usando é uma fonte Ocidental ou Europeia. Meu VBA ficou doido assim tb qdo, sem querer, eu ajustei uma fonte Céltica, srsrsrss
@@ExcelOnlineBrasil uma coisa que aprendi ... Começa pelo básico, não queira fazer o que os mais entendidos fazem, copiar é fácil, é preciso entender o que está sendo feito e o porque !
Saber criar uma Segmentação de Dados Automática no Excel vai possibilitar a seus relatórios uma customização incrível, possibilitando a entrega de tabelas dinâmicas personalizadas.😉
E, sim...rs...eu esqueci de mostrar as segmentações que deveriam aparecer no canto aos 17 segundos de vídeo. Me desculpem pessoal, é a correria...rs
esse vídeo não era exatamente a solução que procurava, mas me ensinou uns passos necessários.
No geral eu queria vincular duas segmentações de dados porém de planilhas diferente, isso por que na planilha que estou desenvolvendo em VBA para controle financeiro tenho duas planilhas dinâmicas com dados separados de entradas e saídas, nesse sentido meu dashboard não estava funcionando com uma segmentação de dados só, então espelhei as duas segmentações de dados.
protótipo abaixo:
Sub espelhar()
'alterar para evento click ou evento change
' essa solução foi desenhado para espelhar as seguimentações de planilhas diferentes
Dim slicerCache1 As SlicerCache
Dim slicerCache2 As SlicerCache
Set slicerCache1 = ThisWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro")
Set slicerCache2 = ThisWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1")
Dim itemtotal As Long
Dim itemunico As Long
'algumas variávei acabei não utilizando ainda
itemtotal = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro").SlicerItems.Count
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1").ClearManualFilter
For itemunico = 1 To itemtotal
If ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro").SlicerItems(itemunico).Selected = True Then
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1").SlicerItems(itemunico).Selected = True
Else
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_janeiro1").SlicerItems(itemunico).Selected = False
End If
Next
End Sub
obrigado professor.
Era isso que eu estava procurando! Obrigado.
Tava precisando muito desse vídeo para uma planilha do trabalho. Me salvou! Obrigada!
Ajudou muito aqui no meu trabalho, obrigado!
Obrigado pelo vídeo. Adaptei o código a minha necessidade e funcionou perfeito.
Parabéns, ótimo conteúdo!!
Muito bom, parabéns pelo vídeo. O único que conseguiu sanar minha dúvida.
Bacana!
é possivel criar um combobox para escolher itens do filtro que precisamos filtrar?
Excelentes vídeos, tenho uma dúvida. É possível ao salvar o arquivo, ele sair com o nome da segmentação selecionada?
A segunda dúvida é se existe alguma parte da biblioteca que deleta todos os segmentos selecionados(Como se estivesse filtrado no vazio).
Obrigado desde já!
Muito bom!!! Qual botão vc clica quando vc deseja escrever "activeworkbook" e vc digita somente "acti" e exibe as opções para vc selecionar e não precisar digitar tudo?
Opa, vamos la. Após digitar os primeiros caracteres do objeto ou comando que quer utilizar, pressione Ctrl + Espaço para exibir a lista de elementos que iniciam com os mesmo caracteres que digitou, e ao localizar o item da lista que deseja (com as setas do teclado mesmo), pressione a tecla TAB.
Um abraço😉
Olá. Como faço nesse exemplo mas preciso mostrar em uma textbox qual ou quais os itens selecionados na segmentação?
oi, tem como desablitar o botao direto do mouse em cima da segmentaçao de dados? me ajude por favor
Oi !!!
Eu gostaria de saber se tem como eu bloquear a seleção multípla na caixas segmentação de dados, pois eu preciso que os dados selecionados fiquem salvos até a proxima alteração, abrindo e fechando o arquivo.
Comofixa o filtro da seguimentação? Pois ele sai do lugar. e o excel mesmo clicando ele nçao está atualuizando com a fonte.
Olá boa tarde, é possível vincular essa macro a função ontime, para que num horário determinado ela mude para segmentação de dados que eu deseja? Ex: das 6 as 12 ela mantem selecionado o turno matutino, das 12 as 18 o turno vespertino e das 18 as 22 o turno matutino, e novamente quando der 6 da manhã ela volte para o matutino?
Sem dúvida, é possível.😉
Professor, eu criei uma macro para que ao clicar na segmentação, essa macro execute o que determinei. Mas quando eu atribuo a macro na segmentação, a macro não funciona. E quando crio uma forma e atribuo a macro, a macro funciona normalmente. O que devo fazer para que ao clicar no filtro da segmentação a macro funcione normalmente?
No meu caso, eu preciso selecionar 1 item e copiar dados do que foi filtrado abrir um bloco de notas e salvar com um nome específico. E novamente com o próximo item.
É possível?
Quero fazer isso tbm kk mas enviar para outra sheet do excel.
Consegui com isso:
totalItem = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Vendedores").SlicerItems.Count
For itemUnico = 1 To totalItem
If ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Vendedores").SlicerItems(itemUnico).Selected = True Then
filtro = ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Vendedores").SlicerItems(itemUnico).Value
End If
Next
Na função if, ao invés de colocar igual ou igual a 3, poderia colocar entre aspas, no caso, o que está escrito no botão?
Kelly, para trabalhar com o nome dos botões, precisaria comparar o texto com este código :
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_unidade").SlicerItems(itemUnico).Name
Um abraço😉
@@ExcelOnlineBrasil estou com esta mesma Duvida, como ele vai buscar na segmentação usando o nome do botão?
Amigo boa tarde,
como faço para deixar a os ítens da segmentação de dados rotacionando de forma automática para um dashboard que estou desenvolvendo?
Olá Luiz.
Desculpe, creio que não entendi sua questão.
Como assim rotacionando?
Um abs😉
@@ExcelOnlineBrasil Eu tenho um Dashboard criado po mim que têm uma lista de vendedores que eu os seleciono manualmente. Eu queria poder acompanhar de tempos em tempos a mudança desses indicadores de cada vendedor.
Sobre a acentuação do VBE: verifique se a fonte que vc está usando é uma fonte Ocidental ou Europeia. Meu VBA ficou doido assim tb qdo, sem querer, eu ajustei uma fonte Céltica, srsrsrss
Valeu a dica Monica. Obrigado.
Abs😉👍
Quanto mais busco estudar VBA, mais vejo que VBA queima meus neurónios !
No começo os neuronios precisam fazer um pouco de musculação...rs, mas depois o resultado compensa😂
@@ExcelOnlineBrasil uma coisa que aprendi ... Começa pelo básico, não queira fazer o que os mais entendidos fazem, copiar é fácil, é preciso entender o que está sendo feito e o porque !