Excel VBA Planilhas grafico de indice pluviometrico shapes ocultar

Estes Macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), índice pluviométrico

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

esse primeiro macro oculta todos os shapes existentes renomeados com prefixo txtMES(?), abaixo o macro verifica uma determinada condição se for igual <> de zero ou diferente de (não vazia) e mostra o shapes do mês correspondente a soma na pagina inferior do gráfico então se não houver nada digitado nos dias ocultará o shapes. gráfico controle de índice pluviométrico oculta todos shapes com prefixo txtMES.

Sub sbx_oculta_meses()
Dim i, vCol As Integer
For i = 1 To 12
On Error Resume Next
With ActiveSheet
.Shapes(“txtMES” & i).Visible = False
End With
Next
End Sub

‘Mostra todos shapes ccom prefixo txtMES
‘se as condições forem verdadeiras
Sub sbx_exibe_meses()
sbx_oculta_meses
For i = 2 To 13
On Error Resume Next
With ActiveSheet
If Cells(44, i) <> “” Or Cells(i, 44) <> 0 Then
.Shapes(“txtMES” & i – 1).Visible = True
End If
End With
Next
End Sub 

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

Compre pelo PagSeguro		Compre pelo PayPal

Material Didático: Curso Excel VBA Expert

Baixe o exemplo de planilha contendo os macros acima:

SBL gráfico de índice pluviométrico

—-> verifique sua caixa de email – (Itens Excluídos)

Seu Nome - Receber o Arquivo por Email Seu Email Válido: para Enviar o Link do Arquivo