Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
SOMASE com VBA
 
Notifications
Clear all

SOMASE com VBA

 
2024 - VBA & Macros
Post Recente por bilokas 10 anos atrás
9 Posts
3 Usuários
0 Reactions
2,129 Visualizações
RSS
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Amigos, segue o seguinte código:

Soma = Application.WorksheetFunction.SumIf(Sheets("dados").Range("M:M").Value, "=2015", Sheets("dados").Range("K:K").Value)

A condição é a seguinte:

Se na coluna M tiver a informação "2015", somar o respectivo valor da linha na coluna K, somando assim todasas linhas que tiverem "2015" como referência e guarar na variável Soma

Não estou conseguindo fazer isso de jeito nenhum, não sei o que há de errado no código acima.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 04/02/2015 9:46 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Já tentou mudar 

 "=2015"

para 

 "="&2015"

não testado!!

att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/02/2015 9:48 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Se fosse no Excel, seria assim:

=SumIf('dados!'."M:M", 2015, 'dados!'K:K)

Então, creio que no VBA seria:

Soma = Application.WorksheetFunction.SumIf(Sheets("dados").Range("M:M").Value, 2015, Sheets("dados").Range("K:K").Value)

Ou:

Soma = Application.WorksheetFunction.SumIf(Sheets("dados").Range("M:M").Value, "2015", Sheets("dados").Range("K:K").Value)

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 04/02/2015 11:15 am
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Obrigado por responderem amigos,

Em ambas as sugestões, está dando Erro 424 - O objeto é obrigatório.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 04/02/2015 11:22 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Sem a planilha, creio que vai ser difícil dizer.

O nome da planilha "dados" está certo? Vc declarou a variável "soma" as double?

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 04/02/2015 11:32 am
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Então, isso pelo que eu vi, fiz sim.

no frmCadastro, no evento change do cbo_FonteDaVerba.

TERRESTRE.rar


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 04/02/2015 11:37 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente assim:

 Soma = WorksheetFunction.SumIf(Sheets("dados").Range("M:M"), "2015", Sheets("dados").Range("K:K"))

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/02/2015 12:11 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Eu usei assim e deu certo:

Soma = Application.WorksheetFunction.SumIf(Sheets("dados").Range("B:B"), 2015, Sheets("dados").Range("K:K"))

Porém, troquei o range de M:M para B:B porque na coluna M não tem anos, tem meses.

Talvez vc estivesse se referindo à coluna L e não à M.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 04/02/2015 12:13 pm
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Caramba! Que falha, realmente era a coluna errada mesmo, o certo era a L

Fiquei tão preocupado achando que era outra coisa que não dei atenção para as colunas.

Problema resolvido gente, muito obrigado!


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 04/02/2015 12:18 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico