Descricao: |
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. '- - - - - - - - - - - - - - - - - - - - - - - - - NB - em programação (aprendizado) é de extrema importancia o dominio da matéria sobre Loops, e também como deslocar(propriedade offset()) dados pelos folhas de planilhas escolhendo linhas colunas e células para recepção de dados. 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.

|