SOMAR CELULAS

[DANYY]

Boa tarde a todos, gostaria de saber como proceder para somar o valor das celulas de uma coluna. Por exemplo, tenho uma sequencia de celulas com valores onde nomeei as celulas para: listaValores, ao informar:

Application.Goto reference:="listaValores"

O excel faz a seleção das celulas que tem ser somado, gostaria que na celula ativa fosse retornado o valor da soma de todas as celulas abaixo, e que o procedimento de soma de celulas se repita até a proxima celula vazia encontrada na sequencia.

Tentei fazer com Do While activecell.value = ""

Mais não sei o que colocar na instrução para poder somar os valores das celulas abaixo.

Desde já agradeço!

[kuroi]

danyy, deve ser assim:

Dim t

t = 0
Do While ActiveCell.Value <> ""
    t = t + ActiveCell.Value
    
    ActiveCell.Offset(1).Select
Loop

TextBox1.Text = t[/code]

[DANYY]

Oi boa tarde! Tentei o codigo acima mais não deu certo :(

coloquei da seguinte forma:

Dim t

t = 0

Application.Goto reference:="sdAntCaixa"

ActiveCell.Select

Do While ActiveCell.Offset(1, 0).Value <> ""

t = t + ActiveCell.Value

ActiveCell.Offset(1).Select

Loop

Na linha Do While pedi para verificar se a partir da celula ativa (primeira celula da lista sdAntCaixa), a proxima celula seria diferente de zero e ai sim começar o loop porque a primeira celula ativa vai receber o valor da soma.

Ao executar ocorre erro na linha: t = t + Activecell.Value

[kuroi]

danyy, tentou assim??

Dim t 

t = 0

Application.Goto reference:="sdAntCaixa"
ActiveCell.Offset(1).Select
Do While ActiveCell.Value <> ""
t = t + ActiveCell.Value
ActiveCell.Offset(1).Select
Loop[/code]
a parte do Goto ta dando certo?? o q é exatamente essa lista sdAntCaixa?? você não devia passar um objeto range na reference?? exemplo: Worksheets("Plan1").Range("B5")
alias, se você sabe a coluna e a linha, era so pegar pelos Cells() e chamar o .Select().

[Sonnel]

Estou supondo que você tem uma célula nomeada "sdAntCaixa" e queira que nessa célula seja armazenada a soma das células que estejam logo abaixo dela.

Se for isso, teste o código abaixo. Se não for, disponibilize um arquivo nesses sites que armazenam arquivos tipo sendspace, 4shared.

Public Sub SomarCelulas()

    Dim wks As Worksheet
    Dim rng As Range

    Set wks = ActiveSheet
    Set rng = wks.Range("sdAntCaixa").Offset(1)
    
    If Not IsEmpty(rng) And IsNumeric(rng) Then
        Set rng = wks.Range(rng, rng.End(xlDown))
        wks.Range("sdAntCaixa") = Application.WorksheetFunction.Sum(rng)
    End If
    
    Set rng = Nothing
    Set wks = Nothing

End Sub

[DANYY]

Sonnel deu super certo!! perfeito! muito obrigada.. não entendi direito o codigo mais vou dar uma estudada depurando.. valeu!!