Tomás Vásquez Fórum

Enviado: **Seg Ago 19, 2019 6:53 pm**

Boa tarde, estou tentando organizar alguns dados pluviométricos o qual a série é extensa.
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.

: InkedFigura1_LI.jpg (873.59 KiB) Exibido 14474 vezes

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

O código está muito cru porque é uma mistura de tudo que já fui tentando. Não tenho prática em trabalhar com datas-horas e isso está dificultando muito.
Se puderem dar alguma sugestão de caminho, fico grato.

Tomás Vásquez Fórum

Somar dados de um intervalo de células

Somar dados de um intervalo de células