Veri ayıklama

[sarcodinia]

Arkadaşlar, benim sorum şu şekilde:
Ekte, sahamızda bulunan bir meteoroloji ölçüm istasyonu verileri vardır. Kayıt cihazı her 30 dakikada bir veri okumakta, ve kayıt etmektedir. Raporlama için bu 30'ar dakikalık verilerin (bir gün içinde 48 veri) sütunlara göre analiz edilmesi gerekmektedir. Dosyanın "Data" sayfasında veriler, "Rapor" sayfasında ise istenen rapor formatı yer almaktadır. Bu verilerin gün bazında nasıl ayıklanacağını söyleyebilir misiniz? Yardımlarınız için çok teşekkür ederim.

NOT: LOOKUP gibi fonksiyonları kullandım ancak, bir sonuç elde edemedim.

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir. Ancak mesajınızda belirttiğiniz saat kuralına uymadan kayıt girilirse sonuç yanlış olur. Örnek dosyanızda, 29.03.2009 tarihinde saat 02.00 ve 02.30 kaydı yoktu . Boş satır açarak düzelttim.
Hoşçakalın.

Sub Ayıkla()
Set sR = Sheets("Rapor")
Set sD = Sheets("Data")
sR.Range("B3:M65536").ClearContents
satır = 2
For i = 3 To sD.[A65536].End(3).Row Step 48
ssR = sR.[B65536].End(3).Row + 1
satır = satır + 1
    For j = 3 To 6
        If j = 6 Then j = 17
        oRt = WorksheetFunction.Average(sD.Range(Cells(i, j), Cells(i + 47, j)))
        eK = WorksheetFunction.Min(sD.Range(Cells(i, j), Cells(i + 47, j)))
        eB = WorksheetFunction.Max(sD.Range(Cells(i, j), Cells(i + 47, j)))
        
        sutun = WorksheetFunction.CountA(Sheets("Rapor").Range("a" & satır & ":IV" & satır)) + 1
        sR.Cells(ssR, sutun).Value = oRt
        sR.Cells(ssR, sutun + 1).Value = eK
        sR.Cells(ssR, sutun + 2).Value = eB
    Next
Next
End Sub

 

[sarcodinia]

Hocam,
Müthişsiniz. Elinize sağlık.
Saat kuralı, o gün saatler bir saat ileri alınmıştı. Cihaz otomatik olarak boş bırakıyor.
Tekrar çok teşekkür ederim.

 

[Merhum İdris SERDAR]

Arkadaşlar, benim sorum şu şekilde:
Ekte, sahamızda bulunan bir meteoroloji ölçüm istasyonu verileri vardır. Kayıt cihazı her 30 dakikada bir veri okumakta, ve kayıt etmektedir. Raporlama için bu 30'ar dakikalık verilerin (bir gün içinde 48 veri) sütunlara göre analiz edilmesi gerekmektedir. Dosyanın "Data" sayfasında veriler, "Rapor" sayfasında ise istenen rapor formatı yer almaktadır. Bu verilerin gün bazında nasıl ayıklanacağını söyleyebilir misiniz? Yardımlarınız için çok teşekkür ederim.

NOT: LOOKUP gibi fonksiyonları kullandım ancak, bir sonuç elde edemedim.

Bu da pivot table ile yapılmış şekli.

.