excel - Create Cells starting at date x and ending at date y -
i have excel spreadsheet i'm working on, looks data database based on date/time. have row set starting date/time , want create script or macro automatically copy row, i'll call guide row, , add x minutes until hits end time.
i need copy entire guide row (row 5) add x minutes (which can define in cell d3) , copy them many times until time value (located in column g of every row) equals end time (located in g2).
transfer answer added op question during period op not post own answer:
here's code worked out helpful links in question:
sub popcells() ' define variables dim rowlast long 'last row data in dim cprange string 'holds range of data select when using variable ' find last row data in rowlast = activesheet.cells(rows.count, "h").end(xlup).row ' clear out old range of data let cprange = "h6:zz" & rowlast activesheet.range(cprange).select selection.clearcontents ' set current row first row data crrow = 5 ' loop copies current row, pastes following row ' , increments time frame time increament value while cells(crrow, "h") <= [g2] ' select entire current row let cprange = "h" & crrow & ":" & "zz" & crrow activesheet.range(cprange).select 'copy selected row selection.copy ' increment next row crrow = crrow + 1 ' select entire current row let cprange = "h" & crrow & ":" & "zz" & crrow activesheet.range(cprange).select ' paste in copied row activesheet.paste ' update time activesheet.cells(crrow, "h") = activesheet.cells(crrow - 1, "h") + [$d$3] / 1440 wend end sub
Comments
Post a Comment