Forum Discussion

jewels's avatar
jewels
Copper Contributor
Oct 24, 2022

move rows in excel daily

Hi, I am looking for a script that will take the top 100 rows from one sheet and move it to another. Ideally, I would like it to trigger automatically every 24 hours.

 

Appreciate any guidance

excel
Formulas and Functions
Macros and VBA
Office Scripts

4 Replies

Sort By
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Oct 24, 2022

    jewels 

    Should the data be moved below existing data on the other sheet, or should existing data be moved down before inserting the 100 rows?

      • HansVogelaar's avatar
        HansVogelaar
        MVP
        Oct 24, 2022

        jewels 

        If you open the workbook once a day, you could use code in the Workbook_Open event procedure in the ThisWorkbook module:

        Private Sub Workbook_Open()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Dim r As Long
    Set w1 = Worksheets("Source")
    Set w2 = Worksheets("Target")
    r = w2.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    w1.Range("A2:A101").EntireRow.Copy Destination:=w2.Range("A" & r)
    w1.Range("A2:A101").EntireRow.Delete
End Sub

Resources