Excel - Een macro om de berekening uit te voeren en gegevens op een ander blad op te slaan

Kwestie

Ik heb een reeks klanten met klantnummers in kolom A. Deze lijst heeft een variabele grootte.

Mijn behoefte is:

• Ik heb de lijst opgedeeld in pagina's met 40 tellingen.
• Ik neem 40 rekeningen in kolom A
• Ik kopieer en ik blijf bij een nieuw blad 1.
• Ik volg de 40 en plak ze in een blad 2. En zo ... tot de laatste van de lijst. Kun je me helpen, want VBA-boeken voor nu is het Chinees voor mij? Dank je!

Oplossing

Een voorbeeld van hoe het zou moeten zijn:

 Sub exploderend () Dim sh As Werkblad, numf As Long, rij As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Voor lig lig sh = 1 Aan. [A65536]. End (xlUp) Worksheets. Toevoegen na: = Worksheets (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Formaat wijzigen (40, 1). Waarde = lig lig + numf 39 + 1 = numf lig sh.Activeer Volgende toepassing.ScreenUpdating = True End Sub 

U selecteert het betreffende blad voordat u de macro uitvoert.

• Als hij een naam heeft, vervang dan:
• Sh instellen: ActiveSheet
  • door:
• Set sh = Worksheets ("name_ofthe_sheet)