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