Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 soma total de uma coluna

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
henrymarques



Mensagens : 1
Data de inscrição : 16/01/2013

MensagemAssunto: soma total de uma coluna   Qua Jan 16, 2013 4:18 pm

Bom dia,
Gostaria de botar um total de soma numa coluna que tem o seguinte código:
O total é da coluna "G6" até o "G53".
tem que somar da G6 até o ultimo dado da "G" ou até "g53"
Obrigado, Henrique



If Me.Text_valortotal <= "0" Then
MsgBox "FAÇA UMA PESQUISA PARA PROSEGUIR", vbInformation
Exit Sub
End If

CONFIRMAR = _
MsgBox("DESEJA IMPRIMIR O RELATORIO DE VENDAS ?", vbYesNo + vbQuestion)
If CONFIRMAR = vbNo Then
Exit Sub
End If

Dim i As Integer
Dim cont As Integer
i = 5

Set BANCO = OpenDatabase(ThisWorkbook.Path & "/" & ThisWorkbook.Name, False, False, "Excel 8.0")
Set TABELA = BANCO.OpenRecordset("select * from [RELATORIO$];")

Plan5.Range("A7:H65000").ClearContents

For cont = 0 To Me.ListBox_produto.ListCount - 1


Plan5.Range("A" & i + 1) = Me.ListBox_produto.List(cont, 1)
Plan5.Range("B" & i + 1) = Format(Me.ListBox_produto.List(cont, 2), "MM/DD/YYYY")
Plan5.Range("C" & i + 1) = Me.ListBox_produto.List(cont, 3)
Plan5.Range("D" & i + 1) = Me.ListBox_produto.List(cont, 4)
Plan5.Range("E" & i + 1) = Me.ListBox_produto.List(cont, 5)
Plan5.Range("F" & i + 1) = Me.ListBox_produto.List(cont, 6)
Plan5.Range("G" & i + 1) = Me.ListBox_produto.List(cont, 7)
Plan5.Range("H" & i + 1) = Me.ListBox_produto.List(cont, Cool

i = i + 1

Next

Plan5.Range("G2").Value = Me.Text_valortotal
Plan5.Range("C3").Value = Me.Label_data
Plan5.Range("F4").Value = Me.Text_datainicial
Plan5.Range("H4").Value = Me.Text_datafinal



Application.ScreenUpdating = False
Plan5.Visible = True
Plan5.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Plan1.Activate
MsgBox " O relatório foi gerado com sucesso!", vbInformation
ThisWorkbook.Save
Plan5.Visible = False
Me.Command_sair.SetFocus
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: soma total de uma coluna   Dom Jan 27, 2013 12:20 am

Boa noite!!

Chame a seguinte macro
Código:
Sub Soma_AleVBA()
   
    Dim lCell As Range
   
    Set lCell = Range("G6").End(xlDown).Offset(1, 0) ' encontrar primeira célula em branco no fundo de dados
   
    'Coloque a fórmula SUMA na última célula
    With Sheet1
        lCell.Formula = WorksheetFunction.Sum(Range(Range("G6"), Range("G6").End(xlDown)))
    End With
   
End Sub

No final de seu código digite
Código:
Call Soma_AleVBA
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
soma total de uma coluna
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» 3D Total Textures Dirt & Graffiti Vol.05
» Coluna lateral do portal em todas páginas
» Backup total do fórum
» [Resolvido] [Resolvido] Logo, menu e coluna de widgets
» Exibir total de membros conectados nas últimas 24 horas

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: