In dit artikel zullen we een macro maken om gegevens daggewijs op meerdere bladen te ordenen.
De onbewerkte gegevens voor dit artikel bestaan uit de dagelijkse verkoopgegevens van het team, waaronder de datum, de naam van de agent en het aantal verkochte items.
We willen de gegevens daggewijs over meerdere bladen verdelen. Als u op de knop "Gegevens overdag verspreiden" klikt, doet u hetzelfde.
Code uitleg
Doen tot het leeg is(Werkbladen(1).Cellen(intRowS, 1))
Lus
In bovenstaande code wordt de lus Do Until herhaald totdat een lege cel wordt aangetroffen.
strTab = Format(Cells(intRowS, 1).Value, "ddmmyy")
De bovenstaande code wordt gebruikt om de bladnaam uit de datum te extraheren.
intRowT = Werkbladen (strTab). Cellen (Rijen. Telling, 1). Einde (xlOmhoog). Rij + 1
De bovenstaande code wordt gebruikt om het rijnummer van de laatste cel te krijgen.
Volg hieronder voor de code:
Sub Divide() 'Variabelen dimmen intRowS As Integer, intRowT As Integer Dim strTab As String 'Initialiseren met startrijnummer intRowS = 10 'Controleren of cel in eerste kolom leeg is Do Until IsEmpty(Worksheets(1).Cells(intRowS, 1)) 'De naam van het blad ophalen op basis van de datumwaarde in de eerste kolom strTab = Format(Cells(intRowS, 1).Value, "ddmmyy") 'Het rijnummer van de laatste cel ophalen intRowT = Worksheets(strTab). Cells(Rows.Count, 1).End(xlUp).Row + 1 'Kopiëren van gegevens naar respectieve bladrijen (intRowS).Copy Worksheets(strTab).Rows(intRowT) intRowS = intRowS + 1 Loop End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite