Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 232
  • Last Modified:

How can I convert a list of item based on starting date to show the history of each one

Dear All,

How can I convert a list of item based on starting date to show the history of each one.

wellbore      Fluid      Date                  wellbore      Fluid      Date
SFNY-951      3.5      1/1/2013                  SFNY-951      3.5      1/1/2013
SFNY-952      7      1/2/2013                  SFNY-951      3.5      1/2/2013
SFNY-953      6      1/3/2013                  SFNY-951      3.5      1/3/2013
SFNY-954      5      1/4/2013                  SFNY-951      3.5      1/4/2013
SFNY-955      6.3      1/5/2013                  SFNY-951      3.5      1/5/2013
                              SFNY-952      7      1/2/2013
                              SFNY-952      7      1/3/2013
                              SFNY-952      7      1/4/2013
                              SFNY-952      7      1/5/2013
                              SFNY-953      6      1/3/2013
                              SFNY-953      6      1/4/2013
                              SFNY-953      6      1/5/2013
                              SFNY-954      5      1/4/2013
                              SFNY-954      5      1/5/2013
                              SFNY-955      6.3      1/5/2013


Please the attached sheet.

Regards,

Dallag
Production-Priority.xlsx
0
Mohammed Dallag
Asked:
Mohammed Dallag
1 Solution
 
Saqib Husain, SyedEngineerCommented:
Try this macro

Sub wellbhistory()
    Dim sws As Worksheet
    Dim tws As Worksheet
    Dim cel As Range
    Dim tr As Long
    Dim i As Long
    Set sws = Sheet1
    Set tws = Sheet2
    edat = WorksheetFunction.Max(sws.Range("C:C"))
    For Each cel In sws.Range("A2:A" & sws.Range("A2").End(xlDown).Row)
        For i = cel.Offset(, 2) To edat
            tr = tws.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
            cel.Resize(, 3).Copy tws.Cells(tr, 1)
            tws.Cells(tr, 3) = i
        Next i
    Next cel
End Sub

Open in new window

0
 
Mohammed DallagPetroleum ConsultantAuthor Commented:
Thank you it worked fine.

Regards,

Dallag
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now