Excel planilha vba valores max e min meses

Dom, 08 de Janeiro de 2012 10:14 Expedito Marcondes
Imprimir

Escola Saberexcel VBA Treinamentos - para quem precisa aprender macros ms excel vba

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), retornam valores máximos e mínimos, referentes aos meses do ano,
relacionados na coluna(B) de determinada folha de planilha. Observe que o macro, contém código para deslocar esses dados extraídos para
determinada coluna(G) 'escolhida'.  Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
'caso queira ver o vídeo no youtube:
'- - - - - - - - - - - - - - - - - - - - - - - - -
NB - em programação (aprendizado) é de extrema importancia o dominio da matéria sobre Loops, e também como deslocar(propriedade offset())Temos dois trabalhos importantes para essa fase de conhecimento em programação e desenvolvimento:
1 - 120 Planilhas Microsoft Excel VBA sobre Loops (todos) como usar.
2 - Planilhas de treinamento deslocando dados pelas folhas de planilhas linhas e colunas, usando a propriedade offset e as instruções Loops.
'melhores informações Escola Saberexcel VBA Estudos, Treinamento com Macros, Fórmulas e Funções :   'Email-me"!

' - - - - - - - - - - - - - - - - - - - - - -  --

Const s = "Valores mínimos extaídos"
Const b = "Valores máximos extraídos"
'- - - - - - - - - - - - - - - - - - -
Sub sbx_extrair_valores_maximos_meses()
  For i = 1 To 12
      vMaximo = 0
      For J = 4 To Range("B65000").End(xlUp).Row
          If Range("B" & J).Value = i And Range("C" & J).Value > vMaximo Then
             vMaximo = Range("C" & J).Value
          End If
      Next J
      Range("G" & (3 + i)).Value = vMaximo
  Next i
  [a].Value = b
End Sub
'- - - - - - - - - - - - - - - - - - -
Sub sbx_extrair_valores_minimos_meses()
  For i = 1 To 12
      vMinimo = 1000
      For J = 4 To Range("B65000").End(xlUp).Row
          If Range("B" & J).Value = i And Range("C" & J).Value < vMinimo Then
             vMinimo = Range("C" & J).Value
          End If
      Next J
      Range("G" & (3 + i)).Value = vMinimo
  Next i
  [a].Value = s
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.


 

  Baixe o exemplo de planilha contendo os macros acima:
Excel planilha vba valores max e min meses (100.03 KB)

      

Tags:
Última atualização em Dom, 08 de Janeiro de 2012 17:35