Excel - een macro voor het kopiëren van gegevens van verschillende bladen

Kwestie

Ik probeer gegevens van verschillende bladen naar een mastervel te kopiëren op basis van de volgende criteria

Een mastervel moet worden gegenereerd wanneer ik een macro uitvoer die het vorige basisblad wist.
Alle kolomkoppen zijn identiek.
Voor masterbladen mag slechts één kop worden gekopieerd (dwz de eerste rij mag niet van het tweede blad worden gekopieerd.)
Als nulwaarden in een bepaalde cel worden weergegeven, moet die rij niet worden gekopieerd.
Hoofdpagina moet worden gesorteerd volgens de kolom die ik noem bij het uitvoeren van de macro. (Dat wil zeggen dat ik in het berichtenvak het veld / de kolom zal toewijzen die in het hoofdpagina moet worden gesorteerd.)

Oplossing

Ik heb er één twijfel over dat je de gegevens voor alle maanden wilt kopiëren naar masterblad OF voor elke maand. Ik nam alle maanden aan. Probeer in dat geval deze macro

 Sub test () Dim j As Long, k As Long, r As Range j = Worksheets.Count With Worksheets ("master") Set r = Range (.Range ("A2"), .Range ("A2"). Einde (xlDown)) r.EntireRow.Delete End With For k = 1 To j If Worksheets (k) .Name = "master" Then GoTo errorhandler With Worksheets (k) If .Range ("A2") = "" Then GoTo errorhandler Stel r = Bereik in (.Range ("A2"), .Range ("A2"). Einde (xlDown)) r.EntireRow.Copy werkbladen ("master"). Cellen (Rows.Count, "A"). Einde (xlUp) .Offset (1, 0) .PasteSpecial End With errorhandler: Next k End Sub

In je bestand heb je te veel lege modules. Verwijder ze allemaal behalve module1.