Notifications
Clear all

WorksheetFunction.SumIfs

3 Posts
2 Usuários
0 Reactions
1,231 Visualizações
(@luc1-2)
Posts: 23
Eminent Member
Topic starter
 

Bom dia!
Venho até o Forum para qver se alguém pode me ajudar a resolver este problema de somases...

tenho a {coluna H onde esta meu intervalo da soma}, {tenho a coluna C que esta o intervalo do 1º critério e a celula T2 o Critério} {tenho a coluna F que esta o intervalo do 2º critério e a celula T5 o Critério} {tenho a coluna P que esta o intervalo do 3º critério e a celula T6 o Critério}
isso tudo quero carregar na textbox, txtEntradadomes

Quando tento carregar me da a mensagem de erro: Erro em tempo de execução 424, segue abaixo o código que estou tentando usar:

Me.txtEntradadomes.Value = WorksheetFunction.SumIfs(Plan25.Range("H2:H100").Value, Plan25.Range("C2:C100"), Plan25("T2").Text, Plan25.Range("F2:F100"), Plan25.Range("T5").Text, Plan25.Range("P2:P100"), Plan25.Range("T6").Text)

Será que alguém poderia dar uma olhada no código e ver onde esta o erro,

Se isso for possível agradeço desde já...

Atenciosamente,

 
Postado : 03/08/2016 6:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

1- Tire o .Value da primeira parte, do intervalo de soma...
2- Ao informar o critério da T2, vc está usando Plan25("T2").Text, o que é errado, use: Plan25.Range("T2").Text

Assim:

Me.txtEntradadomes.Value = WorksheetFunction.SumIfs(Plan25.Range("H2:H100"), Plan25.Range("C2:C100"), Plan25.Range("T2").Text, Plan25.Range("F2:F100"), Plan25.Range("T5").Text, Plan25.Range("P2:P100"), Plan25.Range("T6").Text)

eu ainda limparia para ficar assim:

with Plan25
Me.txtEntradadomes.Value = WorksheetFunction.SumIfs(.Range("H2:H100"), _
                                      .Range("C2:C100"), .Range("T2").Text, _
                                      .Range("F2:F100"), .Range("T5").Text, _
                                      .Range("P2:P100"), .Range("T6").Text)
end with

E não sei pq, mas não gosto de usar o .Text, eu usaria o .Value... mas isso é seu critério !!

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

 
Postado : 03/08/2016 7:34 am
(@luc1-2)
Posts: 23
Eminent Member
Topic starter
 

Bom dia, Professor Fernando!

Deu muito certo, muito obrigado!

Atenciosamente,

 
Postado : 05/08/2016 6:14 am