VBA: Pull data based on time frame from Raw data or pivot table to dashboard sheet column

[JackJon]

Dear Experts,
Please assist on this request.
I kindly need the codes for extracting TURNS for a specific date and time from the database to Dashboard sheet under column B.
(26/11/2018 06:01:00 to 26/11/2018 17:59:00)

Should i extract the values from RawData or PivotStage sheet?
Please advise.

https://www.excelforum.com/excel-programming-vba-macros/1255215-vba-pull-data-based-on-time-frame-from-raw-data-or-pivot-table-to-dashboard-sheet-column.html

 

[JackJon]

Hi All,
To be more specific:-

I would like to capture the values/turns from either Raw data or Pivot table on this particular time frame as shown below.
How can i accomplish this task?
Please let me know.


e.g

StartTime = 4/12/2018 06:01:00
EndTime = 4/12/2018 17:59:00

 

[JackJon]

I've been cracking my head up for the past few days on solving this task.
If anyone have an idea, please share with us.
Thank you.

 

[JackJon]

Attached is the similar issue.
Summary, this Dashboard sheet will accumulate real-time values/turns from 6:01:00 to 17:59:00 and loop to the next time frame of 18:01:00 to 05:59:00.
It will continue to loop on both of this time frame.


https://www.excelforum.com/excel-pro...iod-print.html

 

[JackJon]

I need to loop a macro to add X values of rows whenever it's being updated in the database to a column.
Is it possible?
Please help to assist.
Thank you.
[h=2][/h]

 

[JackJon]

Any ideas or input to accomplish this task?

 

[JackJon]

This is what i have so far.
How can i sum up the values in C column(ENDTIME) under "RawData" following on this time frame?

I'm already out of ideas..


Sub test1()
Dim FDate As Range, FF As Range
Dim FVal As Range
Dim WkRg As Range
Dim WS As Worksheet

Const StartTimeNight As Date = #6:01:00 PM#
Const EndTimeNight As Date = #5:59:00 AM#
Const StartTimeDay As Date = #6:01:00 AM#
Const EndTimeDay As Date = #5:59:00 PM#
Const ValStg As String = "0"
Set WS = Worksheets("RawData")

With WS
Set FDate = .Cells.Find(What:="Time", After:=Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)

If (FDate Is Nothing) Then Exit Sub
Set WkRg = .Range(FDate.Offset(1, 0), Cells(Rows.Count, FDate.Column).End(xlUp))

Set FVal = .Cells.Find(What:=ValStg, After:=Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
If (FVal Is Nothing) Then Exit Sub

 

[JackJon]

Anyone has suggestion?

 

[JackJon]

I'm still stuck on solving this task..
Anybody up for a challenge or provide a suggestion?

 

[JackJon]

Dear Experts,
I really need your assistance on this task.
Please have a look and thanks in advance.

Tasks: 1). To pull current accumulated values in the column(ENDQTYMAIN) from database("RawData") WS to another WS("DASHBOARD") in the column(TURNS) based on criteria which would be STAGE column for both WS.
2). DASHBOARD WS under TURNS column will have the current accumulated values based on current time frame which will be from 12/9/2018 18:01:00 to 12/10/2018 05:59:00 and another time frame which will be from 12/10/2018 06:01:00 to 12/10/2018 17:59:00.
3). It will continue to loop for the next time frame and day.