Os dados data-hora estão de 5 em 5 minutos, entretanto, os eventos de chuva não acontecem em um horário exato. Conforme a imagem abaixo, linhas onde a pluviometria é zero, deverá se manter igual.
Mas nas linhas com horas "quebradas", as pluviometrias 0,25 deverão ser somadas ao próximo horário exato.
Exemplo:
Todos os dados de pluviometria entre 11:05:01 e 11:10:00 deverão estar somados e identificados na data-hora de XX/XX/XXXX 11:10:00..
Além disso, após essa somatória, as linhas com horas "quebradas" deverão ser apagadas, ficando apenas os horários exatos.
Código: Selecionar todos
Dim linha As Long
Dim soma, difdata As Double
Dim dataiplus1, datai As Date
Dim x As Range
linha = 2
For Each x In Range("N:N")
While Cells(linha, 14).Value <> ""
If Cells(linha, 15).Value = 0 Then
Range("N" & linha).Select
Selection.Copy
Range("Q" & linha).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Application.CutCopyMode = False
Range("O" & linha).Select
Selection.Copy
Range("R" & linha).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Application.CutCopyMode = False
Else
'???
End If
linha = linha + 1
Wend
Next
End Sub
Se puderem dar alguma sugestão de caminho, fico grato.