Cześć ludzie
Potrzebuję twojej pomocy, proszę!! Zamierzam wyjaśnić problem i moją część kodu i jeśli ktoś może mi pomóc to byłoby świetnie.
Mam arkusz Excela z 4 kolumnami:
kolumna A = użytkownik (użytkownik1,użytkownik2,użytkownik3......)
kolumna B = funkcjonalności (fonc1, fonc2, fonc3.....)
kolumna C = użytkownik (użytkownik1,użytkownik2,użytkownik3......)
kolumna D = funkcjonalności (fonc1, fonc2, fonc3.....)
Chcę porównać w tym samym arkuszu kolumny A, B i C, D jednocześnie, wiedząc, że kolumny C i D to nowa wersja danych A i B oraz że użytkownicy kolumny C mogą zmieniać kolejność i funkcjonalność
wynik, jak zobaczysz w moim pliku Excel, gdzie znajduje się kolumna użytkowników (kolumna F) i fonctionnalitées_supprimées (kolumna G) oraz nouvelles_fonctionnalitées (kolumna H)
Kiedy uruchamiam kod, nie pokazuje mi użytkowników, tylko nowe i usunięte funkcje, a nie wszystkie.
Drugi problem polega na tym, że gdy wiersze użytkownika (kolumny A) różnią się od użytkownika (kolumna C), kod nie jest wykonywany
Oto plik Excela na auel, w którym pracuję
a oto mój kod
Prywatny Sub CommandButton2_Click()
Przyciemnij rngCell jako zakres
Dla każdej komórki rngCell w zakresie("B2:B2000")
Jeśli WorksheetFunction.CountIf(Range("D2:D2000"), rngCell) = 0 Then
Range("G" & Rows.Count). Koniec(xlUp). Przesunięcie(1) = rngCell
Zakończ jeżeli:
Następny
Dla każdej komórki rngCell w zakresie("D2:D2000")
Jeśli Funkcja arkusza.CountIf(Zakres("B2:B2000"), rngCell) = 0 Następnie
Range("H" & Rows.Count). Koniec(xlUp). Przesunięcie(1) = rngCell
Zakończ jeżeli:
Następny
Koniec subwoofera
porównać.xlsm