/ / Soma de várias células entre o período - excel, vba, data, intervalo, sumifs

Soma de várias células entre intervalo de datas - excel, vba, data, intervalo, sumifs

Tenho uma planilha com algumas informações de preços armazenadas queé datado. A coluna A possui uma lista de datas armazenadas e as colunas K, L e M precisam ser adicionadas e subtraídas pela soma da coluna E, se elas estiverem dentro do período especificado. Q1 é o local em que você escolhe o início data no formato "15/7/15" e Q2 é o local em que você escolhe a data final do intervalo desejado. Aqui estão algumas imagens para ajudar no que estou descrevendo:

insira a descrição da imagem aqui

Desconsidere a segunda imagem "Lucro médio", que deve ser intitulada "Lucro total"

insira a descrição da imagem aqui

Respostas:

0 para resposta № 1

Aqui, minha abordagem para o seu problema com o 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