Ir ao conteúdo
  • Cadastre-se
victorrgds

Como ocultar tabela dinâmica sem valores?

Recommended Posts

Fala galera, beleza?

 

Bom, como o próprio título diz, eu gostaria de saber se existe alguma forma de fazer com que a minha tabela dinâmica fique oculta quando não tiver nenhum valor pra ser exibido...

 

Provavelmente isso possa ser feito por VBA, pesquisei bastante, mas não encontrei nada que pudesse me ajudar...

 

Conto com a ajuda de vocês!

 

Abs,

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia!!
 

Tente algo do tipo..

Sub ZinhoVBA_1068984()        With ActiveSheet.PivotTables(1)        For i = 1 To 2            .PivotFields(i).Orientation = xlHidden        Next i    End With    End Sub

Obs: Não foi implementado caso encontre um campo vazio.

 

Att

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fala Zinho, tudo bem?

Então, de certa forma funcionou...porém, quando aumento a quantidade de vezes do for (coloquei 31 que é o número de campos que a tabela tem) a pivot é ocultada porém fica com aquela imagem de pivot sem campos selecionados, sabe?

Existe alguma forma de evitar isso?

Abs,

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fala Zinho,

 

Como estou no trabalho agora não consigo upar a planilha, porém o código é esse:

Sub Send_Range()      Dim texto As String   Dim titulo As String   Dim remetente As String      'Seleciona todas imagens presentes na pasta de trabalho selecionada   'Worksheets("Disparo de Indicadores").ChartObjects(1).Chart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture      'Seleciona o Range definido e copia para o corpo do email   Worksheets("Disparo de Indicadores").Range("A1:G36").CopyPicture Appearance:=xlScreen, Format:=xlPicture      ActiveWorkbook.EnvelopeVisible = True      If Sheets("Capa").Cells(15, 4).Value = "Transacional" Then    remetente = Sheets("Capa").Cells(16, 4) & ";" & Sheets("Guia de Uso").Cells(19, 6) & ";" & Sheets("Guia de Uso").Cells(19, 8)                              Else: remetente = Sheets("Capa").Cells(16, 4) & ";" & Sheets("Guia de Uso").Cells(20, 6) & ";" & Sheets("Guia de Uso").Cells(20, 8)   End If      titulo = "Report CUP Solicitação  " & "[" & Sheets("Capa").Cells(14, 4) & "]"      texto = "Prezados, " & vbCrLf & vbCrLf & _           "Realizamos o controle de uso de processo para a demanda - " & "[" & Sheets("Capa").Cells(14, 4) & "]" & vbCrLf & _           " e informamos abaixo os resultados coletados:"           With ActiveSheet.MailEnvelope            .Introduction = texto            .Item.To = remetente            .Item.Subject = titulo            .Item.Send        End With        End Sub

Caso não ajude muito, hj a noite posto a planilha...

 

Abs,

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×