Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Somar dados de um intervalo de células

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
bbsantos
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Seg Ago 12, 2019 3:36 pm

Somar dados de um intervalo de células

Mensagem por bbsantos »

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
InkedFigura1_LI.jpg (873.59 KiB) Exibido 14457 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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder