Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

Essa Função personalizada do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o total da soma dos números existentes em determinada coluna, dependendo do critério inserido na fórmula contendo a função personalizada SomaColuna() abaixo.
'- Na folha de planiha use a seguinte fórmula, destacando o critério da soma da coluna desejada.
Retorna a soma da coluna do mês de Março.......:     '=SOMA(SomaColuna("Plan1";"Março"))
Retorna a soma da coluna do mês de Dezembro.:     '=SOMA(SomaColuna("Plan1";"Dezembro"))

Function SomaColuna(vDados As String, vNome As String) As Range
    'variável vDados representa toda a tabela(meses e dados)
    Dim i As Integer
    Dim vCelula1 As String
    Dim vCelula2 As String
    Dim vColunas As Long
    Dim vLinhas As Long
   
    vColunas = Worksheets(vDados).UsedRange.Columns.Count
    vLinhas = Worksheets(vDados).UsedRange.Rows.Count
   
    For i = 1 To vColunas
        If UCase(Worksheets(vDados).Cells(1, i)) = UCase(vNome) Then
           vCelula1 = Worksheets(vDados).Cells(2, i).Address
           vCelula2 = Worksheets(vDados).Cells(vLinhas, i).Address
           
           Set SomaColuna = Worksheets(vDados).Range(vCelula1 & ":" & vCelula2)
        End If
     Next

End Function




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de plnailha contendo a função personalizada acima.
Excel planilha vba soma funcao personalizada (68.46 KB)

Publicidade
Compre com segurança, garantia e ótimos preços