Página 1 de 1

WorksheetFunction.SumIfs

Enviado: 03 Ago 2016 às 09:38
por Luciano021273
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,

Re: WorksheetFunction.SumIfs

Enviado: 03 Ago 2016 às 12:57
por alexandrevba
Boa tarde!!
Veja se ajdua.
Código: Selecionar todos
Private Sub CommandButton1_Click()
'Eu estou considerando que ao clicar no botão, será mostrado no txtbox o resultado
    Dim r As Long
    With Sheets("Plan25")
        r = .Range("H" & Rows.Count).End(xlUp).Row
        Me.txtEntradadomes = WorksheetFunction.SumIfs(.Range("H2:H100"), .Range("C2:C100"), .Range("T2"), _
        .Range("F2:F100"), .Range("T5"), .Range("P2:P100"), .Range("T6"))
    End With
End Sub
Att

Re: WorksheetFunction.SumIfs

Enviado: 05 Ago 2016 às 09:19
por Luciano021273
Muito obrigado, Professor!

Atenciosamente,