Procedure

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
891
Goedemiddag weer,


Zit met een vraagje.

Voorwoord: heb jaren geleden een aandelen (excel) file gemaakt en vorig jaar begonnen dit met VBA aan te passen

Het is een soort 'Beheer' file waar je alle actie onderbrengt en dan weergeeft wat je gedaan hebt en wat je bezit.

Had het zover dat s'avonds na 6 uur hij automatisch koersen downloaden en neerzette op de goede plek.
Sinds kort problemen daarmee doordat het file te groot wordt om deze actie (webquerry) nog te kunnen doen en hierop vervolgens het aangepast dat het wel werkte.
Enigste grootte probleem is nog als er aandelen uit of in de lijst komen.
Dit zou dan automatisch worden aangepast met VBA.
Ben al ruim 2 weken bezig hiermee maar loop dus tegen problemen op :-(

Het gaat dus om een lijst namen onder elkaar (kolom A)

Als er geupdated wordt komt deze nieuwe lijst er naast te staan (kolom B)

Vervolgens moet er gecheckt worden of deze namen nog hetzelfde zijn. i.v.m. data er achter

grootste uitdaging is nu als er in kolom A 26 namen staan en vervolgens komen er 25 in kolom B

heb dit geprobeerd op te lossen met lussen (for next) maar loop tegen het probleem op dat er maar 23 for next gebruikt kunnen worden en vind dit ook geen schone oplossing.

Code: 
 With Worksheets("Blad1")
  ERegel = .Range("E" & 2)          ' Eerste regel v/d Matrix
  LRegel = .Range("E" & 3)          ' Laatste regel v/d Matrix
  For a = LRegel To ERegel Step -1
   If .Range("B" & a) = "" Then
    MsgBox ("[01]  Naam, Kolom B Rij " & a & " = niets, kijken of er in Kolom A, naam iets staat")
    If .Range("A" & a) = "" Then MsgBox ("[01-1]  Kolom A Naam = niets volgende"): GoTo Door
    
    For i1 = a To ERegel Step -1
     MsgBox ("[02]  i = i1,  Kolom A Naam = " & .Range("A" & a) & " , zoeken naar naam A " & .Range("A" & a) & " in kolom B")
     If .Range("B" & i1) <> .Range("A" & a) And i1 = ERegel Then        ' komt niet voor
      MsgBox ("[03]  i = i1,  Naam " & .Range("A" & a) & " niet gevonden op Kolom B !")
      .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
      GoTo Door
     End If
     If .Range("B" & i1) = .Range("A" & a) Then                               ' komt voor
      MsgBox ("[04]  i = i1,  Naam " & .Range("A" & a) & " gevonden op rij " & i1)
      For i2 = i1 To ERegel Step -1
       If .Range("B" & i2) <> .Range("A" & i1) And i2 = ERegel Then           ' komt niet voor
        MsgBox ("[05]  i = i2,  Naam " & .Range("A" & i1) & " niet gevonden op Kolom B !")
        .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
        .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
        GoTo Door
       End If
       If .Range("B" & i2) = .Range("A" & i1) Then                            ' komt voor
        MsgBox ("[05]  i = i1,  Naam " & .Range("A" & i1) & " gevonden op rij " & i2)
        For i3 = i2 To ERegel Step -1
         If .Range("B" & i3) <> .Range("A" & i2) And i3 = ERegel Then         ' komt niet voor
          MsgBox ("[06]  i = i3,  Naam " & .Range("A" & i2) & " niet gevonden op Kolom B !")
          .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
          .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
          .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
          GoTo Door
         End If
         If .Range("B" & i3) = .Range("A" & i2) Then                          ' komt voor
          MsgBox ("[07]  i = i1,  Naam " & .Range("A" & i2) & " gevonden op rij " & i3)
          For i4 = i3 To ERegel Step -1
           If .Range("B" & i4) <> .Range("A" & i3) And i4 = ERegel Then       ' komt niet voor
            MsgBox ("[08]  i = i4,  Naam " & .Range("A" & i3) & " niet gevonden op Kolom B !")
            .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
            .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
            .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
            .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
            GoTo Door
           End If
           If .Range("B" & i4) = .Range("A" & i3) Then                        ' komt voor
            MsgBox ("[09]  i = i1,  Naam " & .Range("A" & i3) & " gevonden op rij " & i4)
            For i5 = i4 To ERegel Step -1
             If .Range("B" & i5) <> .Range("A" & i4) And i5 = ERegel Then     ' komt niet voor
              MsgBox ("[10]  i = i5,  Naam " & .Range("A" & i4) & " niet gevonden op Kolom B !")
              .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
              .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
              .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
              .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
              .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
              GoTo Door
             End If
             If .Range("B" & i5) = .Range("A" & i4) Then                        ' komt voor
              MsgBox ("[11]  i = i1,  Naam " & .Range("A" & i4) & " gevonden op rij " & i5)
              For i6 = i5 To ERegel Step -1
               If .Range("B" & i6) <> .Range("A" & i5) And i6 = ERegel Then     ' komt niet voor
                MsgBox ("[12]  i = i6,  Naam " & .Range("A" & i5) & " niet gevonden op Kolom B !")
                .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                GoTo Door
               End If
               If .Range("B" & i6) = .Range("A" & i5) Then                        ' komt voor
                MsgBox ("[13]  i = i6,  Naam " & .Range("A" & i5) & " gevonden op rij " & i6)
                For i7 = i6 To ERegel Step -1
                 If .Range("B" & i7) <> .Range("A" & i6) And i7 = ERegel Then     ' komt niet voor
                  MsgBox ("[14]  i = i7,  Naam " & .Range("A" & i6) & " niet gevonden op Kolom B !")
                  .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                  .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                  .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                  .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                  .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                  .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                  .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                  GoTo Door
                 End If
                 If .Range("B" & i7) = .Range("A" & i6) Then                        ' komt voor
                  MsgBox ("[15]  i = i7,  Naam " & .Range("A" & i6) & " gevonden op rij " & i7)
                  For i8 = i7 To ERegel Step -1
                   If .Range("B" & i8) <> .Range("A" & i7) And i8 = ERegel Then     ' komt niet voor
                    MsgBox ("[16]  i = i8,  Naam " & .Range("A" & i7) & " niet gevonden op Kolom B !")
                    .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                    .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                    .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                    .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                    .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                    .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                    .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                    .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                    GoTo Door
                   End If
                   If .Range("B" & i8) = .Range("A" & i7) Then                        ' komt voor
                    MsgBox ("[17]  i = i8,  Naam " & .Range("A" & i7) & " gevonden op rij " & i8)
                    For i9 = i8 To ERegel Step -1
                     If .Range("B" & i9) <> .Range("A" & i8) And i9 = ERegel Then     ' komt niet voor
                      MsgBox ("[18]  i = i9,  Naam " & .Range("A" & i8) & " niet gevonden op Kolom B !")
                      .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                      .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                      .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                      .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                      .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                      .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                      .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                      .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                      .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                      GoTo Door
                     End If
                     If .Range("B" & i9) = .Range("A" & i8) Then                        ' komt voor
                      MsgBox ("[19]  i = i9,  Naam " & .Range("A" & i8) & " gevonden op rij " & i9)
                      For i10 = i9 To ERegel Step -1
                       If .Range("B" & i10) <> .Range("A" & i9) And i10 = ERegel Then     ' komt niet voor
                        MsgBox ("[20]  i = i10,  Naam " & .Range("A" & i9) & " niet gevonden op Kolom B !")
                        .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                        .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                        .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                        .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                        .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                        .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                        .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                        .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                        .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                        .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                        GoTo Door
                       End If
                       If .Range("B" & i10) = .Range("A" & i9) Then                        ' komt voor
                        MsgBox ("[21]  i = i10,  Naam " & .Range("A" & i9) & " gevonden op rij " & i10)
                        For i11 = i10 To ERegel Step -1
                         If .Range("B" & i11) <> .Range("A" & i10) And i11 = ERegel Then     ' komt niet voor
                          MsgBox ("[22]  i = i11,  Naam " & .Range("A" & i10) & " niet gevonden op Kolom B !")
                          .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                          .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                          .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                          .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                          .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                          .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                          .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                          .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                          .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                          .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                          .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                          GoTo Door
                         End If
                         If .Range("B" & i11) = .Range("A" & i10) Then                        ' komt voor
                          MsgBox ("[23]  i = i11,  Naam " & .Range("A" & i10) & " gevonden op rij " & i11)
                          For i12 = i11 To ERegel Step -1
                           If .Range("B" & i12) <> .Range("A" & i11) And i12 = ERegel Then     ' komt niet voor
                            MsgBox ("[24]  i = i12,  Naam " & .Range("A" & i11) & " niet gevonden op Kolom B !")
                            .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                            .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                            .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                            .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                            .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                            .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                            .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                            .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                            .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                            .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                            .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                            .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                            GoTo Door
                           End If
                           If .Range("B" & i12) = .Range("A" & i11) Then                        ' komt voor
                            MsgBox ("[25]  i = i12,  Naam " & .Range("A" & i11) & " gevonden op rij " & i12)
                            For i13 = i12 To ERegel Step -1
                             If .Range("B" & i13) <> .Range("A" & i12) And i13 = ERegel Then     ' komt niet voor
                              MsgBox ("[26]  i = i13,  Naam " & .Range("A" & i12) & " niet gevonden op Kolom B !")
                              .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                              .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                              .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                              .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                              .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                              .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                              .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                              .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                              .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                              .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                              .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                              .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                              .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                              GoTo Door
                             End If
                             If .Range("B" & i13) = .Range("A" & i12) Then                        ' komt voor
                              MsgBox ("[27]  i = i13,  Naam " & .Range("A" & i12) & " gevonden op rij " & i13)
                              For i14 = i13 To ERegel Step -1
                               If .Range("B" & i14) <> .Range("A" & i13) And i14 = ERegel Then     ' komt niet voor
                                MsgBox ("[28]  i = i14,  Naam " & .Range("A" & i13) & " niet gevonden op Kolom B !")
                                .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                GoTo Door
                               End If
                               If .Range("B" & i14) = .Range("A" & i13) Then                        ' komt voor
                                MsgBox ("[29]  i = i14,  Naam " & .Range("A" & i13) & " gevonden op rij " & i14)
                                For i15 = i14 To ERegel Step -1
                                 If .Range("B" & i15) <> .Range("A" & i14) And i15 = ERegel Then     ' komt niet voor
                                  MsgBox ("[30]  i = i15,  Naam " & .Range("A" & i14) & " niet gevonden op Kolom B !")
                                  .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                  .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                  .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                  .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                  .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                  .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                  .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                  .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                  .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                  .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                  .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                  .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                  .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                  .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                  .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                  GoTo Door
                                 End If
                                 If .Range("B" & i15) = .Range("A" & i14) Then                        ' komt voor
                                  MsgBox ("[31]  i = i15,  Naam " & .Range("A" & i14) & " gevonden op rij " & i15)
                                  For i16 = i15 To ERegel Step -1
                                   If .Range("B" & i16) <> .Range("A" & i15) And i16 = ERegel Then     ' komt niet voor
                                    MsgBox ("[32]  i = i16,  Naam " & .Range("A" & i15) & " niet gevonden op Kolom B !")
                                    .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                    .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                    .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                    .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                    .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                    .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                    .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                    .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                    .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                    .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                    .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                    .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                    .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                    .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                    .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                    .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                    GoTo Door
                                   End If
                                   If .Range("B" & i16) = .Range("A" & i15) Then                        ' komt voor
                                    MsgBox ("[33]  i = i16,  Naam " & .Range("A" & i15) & " gevonden op rij " & i16)
                                    For i17 = i16 To ERegel Step -1
                                     If .Range("B" & i17) <> .Range("A" & i16) And i17 = ERegel Then     ' komt niet voor
                                      MsgBox ("[34]  i = i17,  Naam " & .Range("A" & i16) & " niet gevonden op Kolom B !")
                                      .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                      .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                      .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                      .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                      .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                      .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                      .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                      .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                      .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                      .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                      .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                      .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                      .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                      .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                      .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                      .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                      .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                      GoTo Door
                                     End If
                                     If .Range("B" & i17) = .Range("A" & i16) Then                        ' komt voor
                                      MsgBox ("[35]  i = i17,  Naam " & .Range("A" & i16) & " gevonden op rij " & i17)
                                      For i18 = i17 To ERegel Step -1
                                       If .Range("B" & i18) <> .Range("A" & i17) And i18 = ERegel Then     ' komt niet voor
                                        MsgBox ("[36]  i = i18,  Naam " & .Range("A" & i17) & " niet gevonden op Kolom B !")
                                        .Range("A" & i17) = .Range("B" & i17): .Range("D" & i16).Resize(1, 7).Copy: .Range("D" & i17).PasteSpecial xlValues:
                                        .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                        .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                        .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                        .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                        .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                        .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                        .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                        .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                        .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                        .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                        .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                        .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                        .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                        .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                        .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                        .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                        .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                        GoTo Door
                                       End If
                                       If .Range("B" & i18) = .Range("A" & i17) Then                        ' komt voor
                                        MsgBox ("[37]  i = i18,  Naam " & .Range("A" & i17) & " gevonden op rij " & i18)
                                        For i19 = i18 To ERegel Step -1
                                         If .Range("B" & i19) <> .Range("A" & i18) And i19 = ERegel Then     ' komt niet voor
                                          MsgBox ("[38]  i = i19,  Naam " & .Range("A" & i18) & " niet gevonden op Kolom B !")
                                          .Range("A" & i18) = .Range("B" & i18): .Range("D" & i17).Resize(1, 7).Copy: .Range("D" & i18).PasteSpecial xlValues:
                                          .Range("A" & i17) = .Range("B" & i17): .Range("D" & i16).Resize(1, 7).Copy: .Range("D" & i17).PasteSpecial xlValues:
                                          .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                          .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                          .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                          .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                          .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                          .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                          .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                          .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                          .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                          .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                          .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                          .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                          .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                          .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                          .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                          .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                          .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                          GoTo Door
                                         End If
                                         If .Range("B" & i19) = .Range("A" & i18) Then                        ' komt voor
                                          MsgBox ("[39]  i = i19,  Naam " & .Range("A" & i18) & " gevonden op rij " & i19)
                                          For i20 = i19 To ERegel Step -1
                                           If .Range("B" & i20) <> .Range("A" & i19) And i20 = ERegel Then     ' komt niet voor
                                            MsgBox ("[40]  i = i20,  Naam " & .Range("A" & i19) & " niet gevonden op Kolom B !")
                                            .Range("A" & i19) = .Range("B" & i19): .Range("D" & i18).Resize(1, 7).Copy: .Range("D" & i19).PasteSpecial xlValues:
                                            .Range("A" & i18) = .Range("B" & i18): .Range("D" & i17).Resize(1, 7).Copy: .Range("D" & i18).PasteSpecial xlValues:
                                            .Range("A" & i17) = .Range("B" & i17): .Range("D" & i16).Resize(1, 7).Copy: .Range("D" & i17).PasteSpecial xlValues:
                                            .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                            .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                            .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                            .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                            .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                            .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                            .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                            .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                            .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                            .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                            .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                            .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                            .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                            .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                            .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                            .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                            .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                            GoTo Door
                                           End If
                                           If .Range("B" & i20) = .Range("A" & i19) Then                        ' komt voor
                                            MsgBox ("[41]  i = i20,  Naam " & .Range("A" & i19) & " gevonden op rij " & i20)
                                            For i21 = i20 To ERegel Step -1
                                             If .Range("B" & i21) <> .Range("A" & i20) And i21 = ERegel Then     ' komt niet voor
                                              MsgBox ("[42]  i = i21,  Naam " & .Range("A" & i20) & " niet gevonden op Kolom B !")
                                              .Range("A" & i20) = .Range("B" & i20): .Range("D" & i19).Resize(1, 7).Copy: .Range("D" & i20).PasteSpecial xlValues:
                                              .Range("A" & i19) = .Range("B" & i19): .Range("D" & i18).Resize(1, 7).Copy: .Range("D" & i19).PasteSpecial xlValues:
                                              .Range("A" & i18) = .Range("B" & i18): .Range("D" & i17).Resize(1, 7).Copy: .Range("D" & i18).PasteSpecial xlValues:
                                              .Range("A" & i17) = .Range("B" & i17): .Range("D" & i16).Resize(1, 7).Copy: .Range("D" & i17).PasteSpecial xlValues:
                                              .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                              .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                              .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                              .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                              .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                              .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                              .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                              .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                              .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                              .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                              .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                              .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                              .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                              .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                              .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                              .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                              .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                              GoTo Door
                                             End If
                                             If .Range("B" & i21) = .Range("A" & i20) Then                        ' komt voor
                                              MsgBox ("[43]  i = i21,  Naam " & .Range("A" & i20) & " gevonden op rij " & i21)
                                              For i22 = i21 To ERegel Step -1
                                               If .Range("B" & i22) <> .Range("A" & i21) And i22 = ERegel Then     ' komt niet voor
                                                MsgBox ("[44]  i = i22,  Naam " & .Range("A" & i21) & " niet gevonden op Kolom B !")
                                                .Range("A" & i21) = .Range("B" & i21): .Range("D" & i20).Resize(1, 7).Copy: .Range("D" & i21).PasteSpecial xlValues:
                                                .Range("A" & i20) = .Range("B" & i20): .Range("D" & i19).Resize(1, 7).Copy: .Range("D" & i20).PasteSpecial xlValues:
                                                .Range("A" & i19) = .Range("B" & i19): .Range("D" & i18).Resize(1, 7).Copy: .Range("D" & i19).PasteSpecial xlValues:
                                                .Range("A" & i18) = .Range("B" & i18): .Range("D" & i17).Resize(1, 7).Copy: .Range("D" & i18).PasteSpecial xlValues:
                                                .Range("A" & i17) = .Range("B" & i17): .Range("D" & i16).Resize(1, 7).Copy: .Range("D" & i17).PasteSpecial xlValues:
                                                .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                                .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                                .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                                .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                                .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                                .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                                .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                                .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                                .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                                .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                                .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                                .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                                .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                                .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                                .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                                .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                                .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                                GoTo Door
                                               End If
                                               If .Range("B" & i22) = .Range("A" & i21) Then                        ' komt voor
                                                MsgBox ("[45]  i = i22,  Naam " & .Range("A" & i21) & " gevonden op rij " & i22)
                                                For i23 = i22 To ERegel Step -1
                                                 If .Range("B" & i23) <> .Range("A" & i22) And i23 = ERegel Then     ' komt niet voor
                                                  MsgBox ("[46]  i = i23,  Naam " & .Range("A" & i22) & " niet gevonden op Kolom B !")
                                                  .Range("A" & i22) = .Range("B" & i22): .Range("D" & i21).Resize(1, 7).Copy: .Range("D" & i22).PasteSpecial xlValues:
                                                  .Range("A" & i21) = .Range("B" & i21): .Range("D" & i20).Resize(1, 7).Copy: .Range("D" & i21).PasteSpecial xlValues:
                                                  .Range("A" & i20) = .Range("B" & i20): .Range("D" & i19).Resize(1, 7).Copy: .Range("D" & i20).PasteSpecial xlValues:
                                                  .Range("A" & i19) = .Range("B" & i19): .Range("D" & i18).Resize(1, 7).Copy: .Range("D" & i19).PasteSpecial xlValues:
                                                  .Range("A" & i18) = .Range("B" & i18): .Range("D" & i17).Resize(1, 7).Copy: .Range("D" & i18).PasteSpecial xlValues:
                                                  .Range("A" & i17) = .Range("B" & i17): .Range("D" & i16).Resize(1, 7).Copy: .Range("D" & i17).PasteSpecial xlValues:
                                                  .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                                  .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                                  .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                                  .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                                  .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                                  .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                                  .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                                  .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                                  .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                                  .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                                  .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                                  .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                                  .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                                  .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                                  .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                                  .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                                  .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                                  GoTo Door
                                                 End If
                                      '           If .Range("B" & i23) = .Range("A" & i22) Then                        ' komt voor
                                      '            MsgBox ("[47]  i = i23,  Naam " & .Range("A" & i22) & " gevonden op rij " & i23)
                                      '            For i24 = i23 To ERegel Step -1
                                      '             If .Range("B" & i24) <> .Range("A" & i23) And i24 = ERegel Then     ' komt niet voor
                                      '              MsgBox ("[48]  i = i24,  Naam " & .Range("A" & i23) & " niet gevonden op Kolom B !")
                                      '              .Range("A" & i23) = .Range("B" & i23): .Range("D" & i22).Resize(1, 7).Copy: .Range("D" & i23).PasteSpecial xlValues:
                                      '              .Range("A" & i22) = .Range("B" & i22): .Range("D" & i21).Resize(1, 7).Copy: .Range("D" & i22).PasteSpecial xlValues:
                                      '              .Range("A" & i21) = .Range("B" & i21): .Range("D" & i20).Resize(1, 7).Copy: .Range("D" & i21).PasteSpecial xlValues:
                                      '              .Range("A" & i20) = .Range("B" & i20): .Range("D" & i19).Resize(1, 7).Copy: .Range("D" & i20).PasteSpecial xlValues:
                                      '              .Range("A" & i19) = .Range("B" & i19): .Range("D" & i18).Resize(1, 7).Copy: .Range("D" & i19).PasteSpecial xlValues:
                                      '              .Range("A" & i18) = .Range("B" & i18): .Range("D" & i17).Resize(1, 7).Copy: .Range("D" & i18).PasteSpecial xlValues:
                                      '              .Range("A" & i17) = .Range("B" & i17): .Range("D" & i16).Resize(1, 7).Copy: .Range("D" & i17).PasteSpecial xlValues:
                                      '              .Range("A" & i16) = .Range("B" & i16): .Range("D" & i15).Resize(1, 7).Copy: .Range("D" & i16).PasteSpecial xlValues:
                                      '              .Range("A" & i15) = .Range("B" & i15): .Range("D" & i14).Resize(1, 7).Copy: .Range("D" & i15).PasteSpecial xlValues:
                                      '              .Range("A" & i14) = .Range("B" & i14): .Range("D" & i13).Resize(1, 7).Copy: .Range("D" & i14).PasteSpecial xlValues:
                                      '              .Range("A" & i13) = .Range("B" & i13): .Range("D" & i12).Resize(1, 7).Copy: .Range("D" & i13).PasteSpecial xlValues:
                                      '              .Range("A" & i12) = .Range("B" & i12): .Range("D" & i11).Resize(1, 7).Copy: .Range("D" & i12).PasteSpecial xlValues:
                                      '              .Range("A" & i11) = .Range("B" & i11): .Range("D" & i10).Resize(1, 7).Copy: .Range("D" & i11).PasteSpecial xlValues:
                                      '              .Range("A" & i10) = .Range("B" & i10): .Range("D" & i9).Resize(1, 7).Copy: .Range("D" & i10).PasteSpecial xlValues:
                                      '              .Range("A" & i9) = .Range("B" & i9): .Range("D" & i8).Resize(1, 7).Copy: .Range("D" & i9).PasteSpecial xlValues:
                                      '              .Range("A" & i8) = .Range("B" & i8): .Range("D" & i7).Resize(1, 7).Copy: .Range("D" & i8).PasteSpecial xlValues:
                                      '              .Range("A" & i7) = .Range("B" & i7): .Range("D" & i6).Resize(1, 7).Copy: .Range("D" & i7).PasteSpecial xlValues:
                                      '              .Range("A" & i6) = .Range("B" & i6): .Range("D" & i5).Resize(1, 7).Copy: .Range("D" & i6).PasteSpecial xlValues:
                                      '              .Range("A" & i5) = .Range("B" & i5): .Range("D" & i4).Resize(1, 7).Copy: .Range("D" & i5).PasteSpecial xlValues:
                                      '              .Range("A" & i4) = .Range("B" & i4): .Range("D" & i3).Resize(1, 7).Copy: .Range("D" & i4).PasteSpecial xlValues:
                                      '              .Range("A" & i3) = .Range("B" & i3): .Range("D" & i2).Resize(1, 7).Copy: .Range("D" & i3).PasteSpecial xlValues:
                                      '              .Range("A" & i2) = .Range("B" & i2): .Range("D" & i1).Resize(1, 7).Copy: .Range("D" & i2).PasteSpecial xlValues:
                                      '              .Range("A" & i1) = .Range("B" & i1): .Range("D" & a).Resize(1, 7).Copy: .Range("D" & i1).PasteSpecial xlValues:
                                      '              .Range("A" & a) = "": .Range("D" & a).Resize(1, 7).ClearContents
                                      '              GoTo Door
                                      '             End If
                                                   
                                                   
                                                   
                                      '            Next i24
                                      '           End If
                                                Next i23
                                               End If
                                              Next i22
                                             End If
                                            Next i21
                                           End If
                                          Next i20
                                         End If
                                        Next i19
                                       End If
                                      Next i18
                                     End If
                                    Next i17
                                   End If
                                  Next i16
                                 End If
                                Next i15
                               End If
                              Next i14
                             End If
                            Next i13
                           End If
                          Next i12
                         End If
                        Next i11
                       End If
                      Next i10
                     End If
                    Next i9
                   End If
                  Next i8
                 End If
                Next i7
               End If
              Next i6
             End If
            Next i5
           End If
          Next i4
         End If
        Next i3
       End If
      Next i2
     End If
    Next i1
   End If
Door:
  Next a
 End With


Zoals je ziet behoorlijk wat en zou dit eenvoudiger kunnen?



Gaat om het onderste gedeelte in het voorbeeldje, rij 18 - 42 Kolom A & B.


Iemand een idee om het op een andere manier te doen?

Bij Voorbaat Thanks.

Vr. Gr.

Dutch
 

Bijlagen

Laatst bewerkt:
Dutch,

Wat is de bedoeling? wat moet er gedaan worden als je een naam mist?
Moet de originele verwijderd worden of leeg gemaakt of mag er niets veranderen maar wil je een melding hebben?
Hoe moet er gereageerd worden op een invoer die nog niet in de originele lijst voorkomt?
Moet deze worden toegevoegd?
Op zich lijkt het me niet zo'n probleem om dit te automatiseren.
- Loop door de lijst in kolom B
- Zoek de naam op in kolom A
Als je hem niet tegen komt
- Voeg hem toe
Anders
- Vervang de waarde.

- Doorloop kolom A zoek deze in kolom B
Als niet gevonden
- Meld dat aandeel A niet voorkomt in kolom B.

Veel Succes.
 
Hoi ElsenDoorn,

Moet je voorstellen:

Kolom A zijn de aandelennamen die er al in staan
Kolom B zijn de namen die hij iedere dag download met data uiteraard

Wat kan er gebeuren:

Je hebt 26 namen per (AEX, AMX, AScX) in Kolom A en als hij de nieuwe aandelen gedownload heeft:
- zou er zomaar 25 kunnen zijn, gaan dus aandelen uit en er komen weer nieuwe bij.
- of andere namen tussen zitten
- of uit kolom A namen tussen uit.

Ga er eerst vanuit (dat is deze test) dat er 1 minder is
Kolom A namen moet uiteindelijk kolom B waarde worden, maar aangezien er data vasthangt aan kolom A moet je dus eerst uitzoeken welke eruit kan.
Heb het maximale ff genomen en dat zou inhouden dat de 1e naam van Kolom A niet voorkomt in Kolom B
Dus alles schuift op. Maar loopt dus vast op Procedure wordt te groot en de For Next lus wordt teveel.

Als je de lokale aandelen neemt zijn dat er 52. Dus uiteindelijk zou die lussen zo groot worden.
Maar dat lukt dus niet.

Op zich werkte deze test wel, maar tot 22 lussen. En dit was nog alleen maar als er 1 naam minder is in kolom B.

Gr.
dutch

ps. ff een nieuw vb-tje AandeelNamenIndex #2
Hier krijg je een procedure fout, dus zou deze procedure moeten verkleinen..

bij vorig vb-tje AandeelNamenIndex #1 loopt de lus (for next) vast in For 23..
 

Bijlagen

Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan