Tip Printed from ExcelTip.com
Distribute Data from a List of the day to day sheets using VBA


Question:
How can I distribute Data from a List of the day (date in Column A) to separate day sheets. The names of the Worksheets correspond to the respective date.


Answer:
Enter the following Code with XL5/7 in an ModuleSheet, with XL8 in a general Module, assign it to a Button and run it.






Place the code below into the standard module




Sub Divide()

   Dim intRowS As Integer, intRowT As Integer

   Dim strTab As String

   intRowS = 2

   Do Until IsEmpty(Worksheets(1).Cells(intRowS, 1))

      strTab = Cells(intRowS, 1).Text

      intRowT = Worksheets(strTab).Cells(Rows.Count, 1).End(xlUp).Row + 1

      Rows(intRowS).Copy Worksheets(strTab).Rows(intRowT)

      intRowS = intRowS + 1

   Loop

End Sub