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:
Desconsidere a segunda imagem "Lucro médio", que deve ser intitulada "Lucro total"
Respostas:
0 para resposta № 1Aqui, 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