Planilha Excel VBA soma colunas performance produtos

Planilha Excel VBA soma colunas performance produtos

soma colunas performance produtos

Excel VBA soma colunas Planilha performance produtos

Estes Macros do aplicativo MS Excel VBA, calcula variações, usando a instrução for next e variáveis Linhas e Colunas,  o exemplo faz os cálculos das variações e retorna também (porcentagens valores reais), com formatações em células
via vba. (observe que uso da instrução For..Next é muito importante no aprendizado), fiz a referencia a uma linha x coluna porém desloquei os valores (subtraindo (valores)) da variável vCol (Coluna) a ser analisada, para buscar os valores
desejados.

Sub somando_valores_sbx()
Dim vLin, vCol As Long
Dim tSoma, xSoma As Double ‘ ou pode ser currency leia sobre variáveis (clique na palavra e f1)
tSoma = 0
xSoma = 0 ‘somando coluna “AB”
UL = Cells(Rows.Count, “A”).End(xlUp).Row
‘sbx_limpar_teste
‘//Limpando dados
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(Cells(9, “AA”), Cells(x, “ad”)).ClearContents

For vLin = 9 To Cells(Rows.Count, “a”).End(xlUp).Row

For vCol = 10 To 17
      ‘Cells(vLin, vCol).Select  ‘ caso queira depurar manualmente e percorrer o caminho do macro (tecle f8 no vba)
tSoma = tSoma + Cells(vLin, vCol).Value
xSoma = xSoma + Cells(vLin, vCol – 8).Value
Next vCol

Cells(vLin, vCol + 9).Value = Format(tSoma, “##,###,##0.00”)
Cells(vLin, vCol + 10).Value = Format(xSoma, “##,###,##0.00”)
Cells(vLin, vCol + 11).Value = Format(tSoma – xSoma, “##,###,##0.00”)
‘comparando valores para nao dar erro na divisao valor/0
If Cells(vLin, vCol + 11).Value And Cells(vLin, vCol + 10).Value <> 0 Then
Cells(vLin, vCol + 12).Value = (1 – (tSoma / xSoma))
End If

tSoma = 0
xSoma = 0
Next vLin
End Sub
‘//========’ limpar dados para realização do teste
Sub sbx_limpar_teste()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(Cells(9, “AA”), Cells(x, “ad”)).ClearContents
MsgBox “dados foram apagados com sucesso!!!”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

‘//=====’mensagem treinamento.
Sub sbx_msg()
MsgBox “clique na vassourinha rs…..”, vbCritical, “Escola Saberexcel VBA Estudos®”
End Sub

Sub sbx_visualizar_macro_wordpad()
ActiveSheet.Shapes.Range(Array(“saber1”)).Select
Selection.Verb Verb:=xlPrimary
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
excel-vba-treinamento-pagseguro
 Material Didático: Curso Excel VBA Expert 
excel vba treinamentos planilhas
 Baixe o exemplo de planilha contendo os macros acima:
icon  Planilha Excel VBA soma colunas performance produtos
 <<Verifique Caixa de Itens Excluídos no Email, caso Link não esteja na Caixa de Entrada >>

    icon  Planilha Excel VBA soma colunas performance produtos

    Deixe um comentário

    O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *