Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Application.SUMIFS ...
 
Notifications
Clear all

Application.SUMIFS Não retorna valor desejado

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
571 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá!

Fui adaptar a fórmula SUMIFS para VBA e ela não está retornando o valor...

Fórmula no excel:

SUMIFS(AGENDA!D2:D3000,AGENDA!C2:C3000,B" & indice & ",AGENDA!B2:B3000,"">=""&(TODAY()-MOD(WEEKDAY(TODAY())-WEEKDAY(TIPO!N5),7)),AGENDA!B2:B3000,""<=""&(TODAY()+MOD(WEEKDAY(TIPO!N5)-WEEKDAY(TODAY())+6,7)))

Fórmula no VBA (com erro)

  Dim Vstatus As Range, Team As Range, Writer_Fee As Range
    Dim teste, TESTE2 As Variant
 
 lastresultrow = 4

     Set Writer_Fee = agendaBook.Range("D2:D3000")
     Set Vstatus = agendaBook.Range("C2:C3000")
      Set Team = agendaBook.Range("B2:B3000")

       teste = Date - "Mod (Weekday(Date) - Weekday(RELATÓRIO!F1), 7)"
       TESTE2 = Date + "MOD(WEEKDAY(RELATÓRIO!F1)-WEEKDAY(DATE)+6,7)"

  Sheets("RELATÓRIO").Cells(lastresultrow, 4) = Application.WorksheetFunction.SumIfs(Writer_Fee, _
                                                                     Vstatus, Sheets("RELATÓRIO").Range("B" & lastresultrow), _
                                                                     Team, "" >= "" & teste, _
                                                                     Team, "" <= "" & teste2)

Obrigado!

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

 
Postado : 05/02/2015 2:23 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Poderia postar seu arquivo modelo?

Att

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

 
Postado : 06/02/2015 5:11 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não entendi se pretende aplicar a formula na planilha ou efetuar a soma e aplicar o resultado.

Se for a segunda em VBA a função Mod te sua sintaxe diferente da planilha:

[code]Teste = Date - (Weekday(Date) - Weekday(Sheets("RELATÓRIO").Range("F1")) Mod 7)
Teste2 = Date + (Weekday(RELATÓRIO!F1) - Weekday(Date) + 6 Mod 7)
[/code]

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

 
Postado : 06/02/2015 7:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico