In diesem Artikel erstellen wir ein Makro, um Daten täglich auf mehreren Blättern anzuordnen.

Die Rohdaten für diesen Artikel bestehen aus täglichen Verkaufsdaten des Teams, einschließlich Datum, Agentenname und Anzahl der verkauften Artikel.

ArrowRawData

Wir möchten die Daten täglich auf mehrere Blätter verteilen. Klicken Sie auf die Schaltfläche „Daten täglich verteilen“, um dasselbe zu tun.

ArrowOutput

Code Erklärung

Do Is Ismmy (Arbeitsblätter (1) .Cells (intRowS, 1))

Schleife Im obigen Code wird die Do Until-Schleife wiederholt, bis eine leere Zelle gefunden wird.

strTab = Format (Zellen (intRowS, 1) .Wert, „ddmmyy“)

Der obige Code wird verwendet, um den Blattnamen aus dem Datum zu extrahieren.

intRowT = Arbeitsblätter (strTab) .Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Der obige Code wird verwendet, um die Zeilennummer der letzten Zelle abzurufen.

Bitte folgen Sie unten für den Code

Sub Divide()

'Declaring variables

Dim intRowS As Integer, intRowT As Integer

Dim strTab As String

'Initializing with starting row number

intRowS = 10

'Checking whether cell in first column is empty

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



'Getting name of the sheet based on the date value in the first column

strTab = Format(Cells(intRowS, 1).Value, "ddmmyy")



'Getting the row number of last cell

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



'Copying data to respective sheet

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

intRowS = intRowS + 1

Loop

End Sub

Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]