Hallo Luc,

Als ik je hoofdblad bekijk dan zie ik veel landen met 2, 3 en meer keer het jaar 2026 in kolom B, dat wordt dus moeilijk zonder fouten te schrijven.

De macro  Sub RijenToevoegen()   vervangen door onderstaande code zorgt voor je G-kolom met de foto-nummers.
Sub RijenToevoegen()

    Dim lijst As Variant
    Dim i As Long
    Dim beginrij As Long
    Dim rngLand As Range
    Dim jaar As String
 
   ' Controle op aantal
    If Application.WorksheetFunction.Count(Blad2.Range("B2:B100")) = 0 Then
         If MsgBox("Je hebt geen aantal ingevuld. Toch doorgaan?", vbYesNo + vbExclamation, "Geen aantal") = vbNo Then
             Blad2.Activate
            Exit Sub
         End If
    End If
    ' Blad1 actief maken en filter wissen
    Blad1.Activate
With Blad1
    On Error Resume Next
    If .AutoFilterMode Then
        .ShowAllData
        .AutoFilterMode = False
    End If
    On Error GoTo 0
End With
 
    ' Lijst uit Blad2
    lijst = Blad2.Range("A2:B2500").Value

    With Blad1
        For i = 1 To UBound(lijst, 1)
            If Val(lijst(i, 2)) > 0 Then

     ' Laatste rij van dit land zoeken, ongeacht filter
                Set rngLand = .Columns(1).Find(What:=lijst(i, 1), LookAt:=xlWhole, _
                                               SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
                If rngLand Is Nothing Then
                    MsgBox "Land '" & lijst(i, 1) & "' werd niet gevonden in Blad1.", vbExclamation, "Land ontbreekt"
                    Exit Sub
                End If

                beginrij = rngLand.Row + 1
               
                ' Volledige rijen invoegen (ongevoelig voor filter)
                .Rows(beginrij & ":" & beginrij + lijst(i, 2) - 1).Insert Shift:=xlDown
                ' Focus op de originele land-rij
                .Cells(rngLand.Row, 1).Select
                ' Landnaam + opmaak
                With .Cells(beginrij, 1).Resize(lijst(i, 2), 1)
                    .Value = lijst(i, 1)
                    .Font.Color = vbWhite
                End With

               'Kolom B en C leeg laten
                With .Cells(beginrij, 2).Resize(lijst(i, 2), 2)
                    .Value = ""
                        End With


                ' Kolommen D en E op 0
                With .Cells(beginrij, 4).Resize(lijst(i, 2), 2)
                    .Value = 0
                End With
                ' Kolom G doornummeren
                With .Cells(beginrij, 7).Resize(lijst(i, 2), 1)
                Dim nr As Long
                nr = rngLand.Offset(0, 6).Value + 1   ' nummer na de originele rij
                Dim k As Long
                For k = 1 To lijst(i, 2)
                    .Cells(k, 1).Value = nr
                        nr = nr + 1
                Next k
End With


            End If
        Next i
    End With

    Blad1.Visible = True
    Blad2.Visible = xlSheetHidden
    opmaak

End Sub
Succes.

SoftAid              

Hallo luc,

topics worden bijna nooit afgesloten. Er kan steeds bijkomende info geplaatst worden, en dan is de achtergrond vaak nodig.

Als je de foto-nummering al wilt bij je "rijen toevoegen" dat kan zo gefikst worden, maar het jaar, daar moet jij beslissen op welke basis de macro moet rekenen.

Ik hoor het wel.

SoftAid              

Hallo Luc,

het Jaar automatisch invoegen, dat kan de macro niet weten of beslissen.
Als je rijen toevoegt, dan zijn dat niet noodzakelijk rijen met een ander jaartal dan de laatste in de bestaande kolom voor dat land. Het kan, het kan hetzelfde jaar zijn. Dus hoe wil je dat oplossen?

De foto nummering doortrekken is eenvoudig.

SoftAid              

Hallo Jean-Pierre,

ja, dat kleine stukje info maakt mijn "debat" overbodig 

Je kan zo veel extra partities aanmaken als je wil, via schijfbeheer van Windows 11 zelf, en een herinstallatie van Windows zal de andere partities niet beïnvloeden.

Groeten,

SoftAid              

Hallo JG,

Ja, die 2 de partitie blijft bestaan. Vraag is: hoe oud is die laptop, en is het een HP, Lenova of een Dell, de merken die vroeger nogal veel OEM's meegaven bij verkoop van een laptop. Hoe oud is de laptop? Als er op de laptop Verborgen" recovery- partities staan, dan is het een oude OEM.
(Dat er verborgen partities zijn zie je in schijfbeheer). Deze eist dat je de recovery terug zet, en die exact dezelfde schijfindeling verwacht bij het naar fabrieksherstel zetten. DAN wordt je nieuw partitie een probleem.

Maar geef eens de merknaam, bouwjaar en geïnstalleerde Windows (10-11-Pro-Student- etc ) .
Ook een schermafdruk van de gegevens in "Systeem".

Normaal zijn PC's met dergelijke OEM's niet meer op de markt, en niet meer in gebruik.

Windows 11:
gebruikt cloud‑herstel → downloadt een verse Windows‑image
gebruikt WinRE → onafhankelijk van je datapartities
kan resetten met behoud van bestanden of volledig schoon
heeft geen afhankelijkheid van OEM‑partities (tenzij een fabrikant specifiek een eigen tool installeert, wat bijna niemand nog doet)

Zelfs Dell/HP/Lenovo gebruiken tegenwoordig gewoon Windows’ eigen resetmechanisme.

Ik zal vanmiddag en vanavond niet meer kunnen antwoorden. Zal dus voor morgenvoormiddag zijn.

Groeten,

SoftAid