Somme de plusieurs cellules entre les dates

Question

J'ai une feuille avec des informations de prix stockées qui sont datées. La colonne A contient une liste de dates stockées et les colonnes K, L et M doivent être additionnées et soustraites par la somme de la colonne E, si elles se situent dans la plage de dates indiquée. Q1 est l'emplacement dans lequel vous choisissez la date de début au format "7/15/15", et Q2 est l'emplacement dans lequel vous choisissez la date de fin de la plage souhaitée. Voici quelques images pour aider à ce que je décris:

Mépris la seconde image cellule "moyenne Profit", qui devrait être intitulé "Total Profit"

Answer 1

Ici, mon approche pour votre problème avec VBA.

Public Sub summarizeValue() 

    Dim total As Long 
    Dim row As Integer 

    'Set start row 
    row = 5 

    'Work with sheet 
    With Sheets("sheetname") 

     'Loop until date cell is blank 
     Do While .Range("A" & row) <> "" 

      'If all date cell are valid 
      If IsDate(.Range("A" & row)) And IsDate(.Range("Q1")) And IsDate(.Range("Q4")) Then 

       'If date is valid between two range. 
       If .Range("Q1") <= .Range("A" & row) And .Range("A" & row) <= .Range("Q4") Then 

        total = total + .Range("K" & row) + .Range("L" & row) + .Range("M" & row) - .Range("E" & row) 

       End If 

      End If 

      row = row + 1 

     Loop 

     .Range("Q7") = total 

    End With 

End Sub