Hallo mensen
Ik heb je hulp nodig, alsjeblieft!! Ik ga het probleem en mijn deel van de code uitleggen en als iemand me kan helpen, zou dat geweldig zijn.
Ik heb een Excel-sheet met 4 kolommen:
kolom A = gebruiker (gebruiker1,gebruiker2,gebruiker3......)
kolom B = functionaliteiten ( fonc1, fonc2, fonc3.....)
kolom C = gebruiker (gebruiker1,gebruiker2,gebruiker3......)
kolom D = functionaliteiten ( fonc1, fonc2, fonc3.....)
Ik wil in hetzelfde blad de kolommen A, B en C, D vergelijken en tegelijkertijd weten dat de kolommen C en D de nieuwe versie zijn van de gegevens van A en B en dat de gebruikers van kolom C de volgorde en functionaliteit kunnen wijzigen
het resultaat zoals je zult zien in mijn Excel-bestand waar de kolom gebruikers (kolom F) en de fonctionnalitées_supprimées (kolom G) en de nouvelles_fonctionnalitées (kolom H) staan
Wanneer ik mijn code uitvoer, zie ik de gebruikers niet, alleen de nieuwe en verwijderde functies en niet allemaal.
Het tweede probleem is dat wanneer de gebruikersrijen (kolommen A) verschillen van de gebruiker (kolom C), de code niet wordt uitgevoerd
Hier is het Excel-bestand op de auel waar ik werk
En hier is mijn code
Privé Sub CommandButton2_Click()
Dim rngCell als bereik
Voor elke rngCell binnen bereik ("B2: B2000")
Als WorksheetFunction.CountIf(Bereik("D2:D2000"), rngCell) = 0 Dan
Bereik ("G" & Rows.Count). Einde(xlUp). Offset(1) = rngCell
Einde als
Volgend
Voor elke rngCell in bereik ("D2:D2000")
Als WorksheetFunction.CountIf(Bereik("B2:B2000"), rngCell) = 0 Dan
Bereik ("H" & Rijen.Aantal). Einde(xlUp). Offset(1) = rngCell
Einde als
Volgend
Einde Sub
vergelijken.xlsm