Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Soma se. em vba exc...
 
Notifications
Clear all

Soma se. em vba excel

 
2024 - VBA & Macros
Post Recente por robertonl 5 anos atrás
1 Posts
1 Usuários
0 Reactions
1,987 Visualizações
RSS
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Boa noite.
Estou trabalhando em uma planilha para analise de lançamento.
A mesma está funcionando perfeitamente, porém o código ficará bem extenso
O formulario em vba Excel tem 5 áreas cadastradas, e para cada área terei cada mês separado (janeiro até dezembro)
Serão um total de 60 labels.
Por acaso alguém já conseguiu fazer o código abaixo reduzido.
Observação: Ainda no corpo da macro não está todos os meses do ano.

Sub Somar()
    Dim MyMes, MyVar, MyVar1, MyVar2, MyVar3, MyVar4, MyVar5, MyVar6, MyVar7, MyVar8, MyVar9, MyVar10, MyVar11, MyVar12, MyVar13, MyVar14, MyVar15, MyVar16, MyVar17, MyVar18, MyVar19, MyVar20, MyVar21, MyVar22, MyVar23, MyVar24, MyVar25 As Long
    
    'Dim MyVar As Long
    With Sheets("Recebe_Dizimo")
        MyMes = WorksheetFunction.SumIf(.Range("E:F"), Frm_PagamentoDizimo.Mes_Referencia, .Range("F:F"))
     End With
    With Sheets("Dizimo_Acumulado")
       On Error GoTo trataErro
        'MyVar = WorksheetFunction.CountIf(.Range("N:N"), "SR-1-novo")
        'MyMes = WorksheetFunction.SumIf(.Range("E:F"), Frm_PagamentoDizimo.Mes_Referencia, .Range("F:F"))
        MyMes = WorksheetFunction.SumIf(.Range("E:F"), Frm_PagamentoDizimo.Mes_Referencia, .Range("F:F"))
        MyVar = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label13 & "/" & Frm_PagamentoDizimo.Mes1, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar1 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label14 & "/" & Frm_PagamentoDizimo.Mes1, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar2 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label15 & "/" & Frm_PagamentoDizimo.Mes1, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar3 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label16 & "/" & Frm_PagamentoDizimo.Mes1, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar4 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label17 & "/" & Frm_PagamentoDizimo.Mes1, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar5 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label13 & "/" & Frm_PagamentoDizimo.Mes2, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar6 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label14 & "/" & Frm_PagamentoDizimo.Mes2, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar7 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label15 & "/" & Frm_PagamentoDizimo.Mes2, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar8 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label16 & "/" & Frm_PagamentoDizimo.Mes2, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar9 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label17 & "/" & Frm_PagamentoDizimo.Mes2, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar10 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label13 & "/" & Frm_PagamentoDizimo.Mes3, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar11 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label14 & "/" & Frm_PagamentoDizimo.Mes3, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar12 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label15 & "/" & Frm_PagamentoDizimo.Mes3, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar13 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label16 & "/" & Frm_PagamentoDizimo.Mes3, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar14 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label17 & "/" & Frm_PagamentoDizimo.Mes3, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar15 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label13 & "/" & Frm_PagamentoDizimo.Mes4, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar16 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label14 & "/" & Frm_PagamentoDizimo.Mes4, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar17 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label15 & "/" & Frm_PagamentoDizimo.Mes4, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar18 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label16 & "/" & Frm_PagamentoDizimo.Mes4, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar19 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label17 & "/" & Frm_PagamentoDizimo.Mes4, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar20 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label13 & "/" & Frm_PagamentoDizimo.Mes5, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar21 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label14 & "/" & Frm_PagamentoDizimo.Mes5, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar22 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label15 & "/" & Frm_PagamentoDizimo.Mes5, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar23 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label16 & "/" & Frm_PagamentoDizimo.Mes5, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        MyVar24 = WorksheetFunction.SumIf(.Range("A:F"), Frm_PagamentoDizimo.Label17 & "/" & Frm_PagamentoDizimo.Mes5, .Range("F:F")) 'SUMIF(invent?rio!a:g,A4,cadastro!g:g)
        
        Frm_PagamentoDizimo.MesAcumulado = MyMes
        Frm_PagamentoDizimo.Sr1_Janeiro = MyVar
        Frm_PagamentoDizimo.Sr2_Janeiro = MyVar1
        Frm_PagamentoDizimo.Sr3_Janeiro = MyVar2
        Frm_PagamentoDizimo.Sr4_Janeiro = MyVar3
        Frm_PagamentoDizimo.Sr5_Janeiro = MyVar4
        Frm_PagamentoDizimo.Sr1_Fevereiro = MyVar5
        Frm_PagamentoDizimo.Sr2_Fevereiro = MyVar6
        Frm_PagamentoDizimo.Sr3_Fevereiro = MyVar7
        Frm_PagamentoDizimo.Sr4_Fevereiro = MyVar8
        Frm_PagamentoDizimo.Sr5_Fevereiro = MyVar9
        Frm_PagamentoDizimo.Sr1_Marco = MyVar10
        Frm_PagamentoDizimo.Sr2_Marco = MyVar11
        Frm_PagamentoDizimo.Sr3_Marco = MyVar12
        Frm_PagamentoDizimo.Sr4_Marco = MyVar13
        Frm_PagamentoDizimo.Sr5_Marco = MyVar14
        Frm_PagamentoDizimo.Sr1_Abril = MyVar15
        Frm_PagamentoDizimo.Sr2_Abril = MyVar16
        Frm_PagamentoDizimo.Sr3_Abril = MyVar17
        Frm_PagamentoDizimo.Sr4_Abril = MyVar18
        Frm_PagamentoDizimo.Sr5_Abril = MyVar19
        Frm_PagamentoDizimo.Sr1_Maio = MyVar20
        Frm_PagamentoDizimo.Sr2_Maio = MyVar21
        Frm_PagamentoDizimo.Sr3_Maio = MyVar22
        Frm_PagamentoDizimo.Sr4_Maio = MyVar23
        Frm_PagamentoDizimo.Sr5_Maio = MyVar24
        
        Frm_PagamentoDizimo.MesAcumulado = Format(Frm_PagamentoDizimo.MesAcumulado, "R$ 0.00")
        Frm_PagamentoDizimo.Sr1_Janeiro = Format(Frm_PagamentoDizimo.Sr1_Janeiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr2_Janeiro = Format(Frm_PagamentoDizimo.Sr2_Janeiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr3_Janeiro = Format(Frm_PagamentoDizimo.Sr3_Janeiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr4_Janeiro = Format(Frm_PagamentoDizimo.Sr4_Janeiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr5_Janeiro = Format(Frm_PagamentoDizimo.Sr5_Janeiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr1_Fevereiro = Format(Frm_PagamentoDizimo.Sr1_Fevereiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr2_Fevereiro = Format(Frm_PagamentoDizimo.Sr2_Fevereiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr3_Fevereiro = Format(Frm_PagamentoDizimo.Sr3_Fevereiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr4_Fevereiro = Format(Frm_PagamentoDizimo.Sr4_Fevereiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr5_Fevereiro = Format(Frm_PagamentoDizimo.Sr5_Fevereiro, "R$ 0.00")
        Frm_PagamentoDizimo.Sr1_Marco = Format(Frm_PagamentoDizimo.Sr1_Marco, "R$ 0.00")
        Frm_PagamentoDizimo.Sr2_Marco = Format(Frm_PagamentoDizimo.Sr2_Marco, "R$ 0.00")
        Frm_PagamentoDizimo.Sr3_Marco = Format(Frm_PagamentoDizimo.Sr3_Marco, "R$ 0.00")
        Frm_PagamentoDizimo.Sr4_Marco = Format(Frm_PagamentoDizimo.Sr4_Marco, "R$ 0.00")
        Frm_PagamentoDizimo.Sr5_Marco = Format(Frm_PagamentoDizimo.Sr5_Marco, "R$ 0.00")
        Frm_PagamentoDizimo.Sr1_Abril = Format(Frm_PagamentoDizimo.Sr1_Abril, "R$ 0.00")
        Frm_PagamentoDizimo.Sr2_Abril = Format(Frm_PagamentoDizimo.Sr2_Abril, "R$ 0.00")
        Frm_PagamentoDizimo.Sr3_Abril = Format(Frm_PagamentoDizimo.Sr3_Abril, "R$ 0.00")
        Frm_PagamentoDizimo.Sr4_Abril = Format(Frm_PagamentoDizimo.Sr4_Abril, "R$ 0.00")
        Frm_PagamentoDizimo.Sr5_Abril = Format(Frm_PagamentoDizimo.Sr5_Abril, "R$ 0.00")
        Frm_PagamentoDizimo.Sr1_Maio = Format(Frm_PagamentoDizimo.Sr1_Maio, "R$ 0.00")
        Frm_PagamentoDizimo.Sr2_Maio = Format(Frm_PagamentoDizimo.Sr2_Maio, "R$ 0.00")
        Frm_PagamentoDizimo.Sr3_Maio = Format(Frm_PagamentoDizimo.Sr3_Maio, "R$ 0.00")
        Frm_PagamentoDizimo.Sr4_Maio = Format(Frm_PagamentoDizimo.Sr4_Maio, "R$ 0.00")
        Frm_PagamentoDizimo.Sr5_Maio = Format(Frm_PagamentoDizimo.Sr5_Maio, "R$ 0.00")
      Exit Sub
trataErro:
     End With
End Sub
 
Postado : 27/12/2019 8:12 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico