Boa noite Luislapa

Por enquanto algum colega não responde em VBA, deixo a minha contribuição com fórmulas nativas do Excel.

Dê retorno.

[]s

Boa noite amigo!

Vlw pelo retorno, a lógica que você fez em fórmula é exatamente a que busco em VBA, mas com o resultado direto, sem a aplicação da formula na célula.

Abraços

Boa noite!!

Tente assim..

Att

Olá amigo!

É quase isso, gostaria que nas células apresente o resultado, sem a fórmula.

Abs

Bom dia!!!

Veja em:
http://www.sendspace.com/file/agrd25

Att

Olá Alexandre, é exatamente isto que precisava.

Pessoal, se alguem poder me ajudar nestas outras 3 soma ficarei grato.

1) Colocar a soma dos valores da coluna AF que tiver Sim na Coluna AH na Célula AK1 - Critério.: ( A partir da Célula A5 até a ultima linha da coluna A que tiver valor )
2) *Colocar a soma dos valores negativos da Coluna AF na Célula AK2 - Critério.: ( A partir da Célula A5 até a ultima linha da coluna A que tiver valor )
3) *Colocar a soma dos valores positivos da Coluna AF na Célula AK3 - Critério.: ( A partir da Célula A5 até a ultima linha da coluna A que tiver valor )

abs

Boa tarde!!

Veja se resolve.

http://www.sendspace.com/file/vm225l

Obs: Não testado!
Att

Amigo,

Testei e ficou ótimo.

Somente a nível de conhecimento, como seria estes comando se em vez de usar o nome Tabela_Consulta_de_Protheus39 fosse informando a partir de determinada célula até a ultima que contenha valor na coluna A, parecido com o módula AleVBA.

vlw

Bom dia!!

Considerando que na coluna A o intervalo será fixo.

Sub Formulas_AleVBA_11426()
    '############## seria isso? ###############################
    [AJ1].Formula = "=SUMIF($A$1:$A$27,""=""&""Sim"",$A$1:$A$27)"
    [AJ2].Formula = "=SUMIF($A$1:$A$27,""<""&0,$A$1:$A$27)"
    [AJ3].Formula = "=SUMIF($A$1:$A$27"">""&0,$A$1:$A$27)"
    [AJ1:AJ3].Value = [AJ1:AJ3].Value
    
End Sub

Caso não seja isso me mando um arquivo modelo.

Att

Olá Amigo!

Gerei um teste com a outra forma que gostaria de aprender, mas não estou conseguindo.

Se você observar, o código que criei esta fazendo a soma da Coluna AF5 até a ultima linha com valor na Coluna A.

Mas meu objetivo é Somar somente da Coluna AF5 até a ultima linha com valor na Coluna A, somente se a coluna AH for Sim.

O resultado neste teste deveria ser 42.849,34 e não 36.283,26

Vlw pela paciência e atenção.

Por fórmula:

=SOMASE(Tabela_Consulta_de_Protheus39[Faturar];"sim";Tabela_Consulta_de_Protheus39[TOTAL])

Abs,

Olá amigo Mandrix!

Vlw, mas estou tentando resolver está questão em VBA, pois será a resposta para outras planilhas que tenho.

abs

Olá amigos,

Por favor,
Poderiam me ajudar com o código abaixo, tem algo de errado:

Desde já obrigado.

Sub teste()

lastro1 = Cells(Cells.Rows.Count, 5).End(xlUp).Row
 For Each Cell In Range("A5:A" & lastro1)

        If Cell.Offset(0, 33) = "Sim" Then

    Cells(1, "AJ").Value = Application.WorksheetFunction.Sum(Range("AF5:AF" & lastro1))

 End If
 Next Cell

End Sub