U ovom ćemo članku stvoriti makronaredbu za raspored dnevnih podataka na više listova.
Sirovi podaci za ovaj članak sastoje se od dnevnih prodajnih podataka tima, koji uključuju datum, naziv agenta i broj prodanih artikala.
Podatke želimo distribuirati dnevno na više listova. Klikom na gumb "Distribuiraj podatke po danu" učinit ćete isto.
Objašnjenje koda
Raditi do IsEmpty (Radni listovi (1). Ćelije (intRowS, 1))
Petlja
U gornjem kodu, petlja Do Do će se petljati sve dok ne naiđe na praznu ćeliju.
strTab = Format (ćelije (intRowS, 1) .Vrijednost, "ddmmyy")
Gornji kôd koristi se za izdvajanje naziva lista od datuma.
intRowT = Radni listovi (strTab). Ćelije (Rows.Count, 1) .End (xlUp) .Row + 1
Gornji kôd koristi se za dobivanje broja retka zadnje ćelije.
Molimo slijedite dolje za kôd
Sub Divide () 'Deklariranje varijabli Dim intRowS kao cijeli broj, intRowT kao cijeli broj Dim strTab As String' Pokretanje s početnim brojem retka intRowS = 10 'Provjera je li ćelija u prvom stupcu prazna Učinite sve do IsEmpty (Radni listovi (1). Ćelije (intRowS, 1)) 'Dobivanje naziva lista na temelju vrijednosti datuma u prvom stupcu strTab = Format (Cells (intsRowS, 1) .Value, "ddmmyy")' Dobivanje broja retka zadnje ćelije intRowT = Worksheets (strTab). Ćelije (Rows.Count, 1) .End (xlUp) .Row + 1 'Kopiranje podataka u odgovarajuće redove lista (intRowS) .Copy Radni listovi (strTab) .Rows (intRowT) intRowS = intRowS + 1 Loop End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte