stergere randuri duplicate din sheeturi multiple

[ionas811022]

Buna ziua,

Am si eu un excel cu mai multe sheet-uri
Fiecare din ele contine cate un tabel
In primul sheet am toate datele plus altele continute in celelalte sheet-uri dar am nevoie sa le stearga sau cel putin sa le evidentieze pe cele continute in celelalte sheet-uri
Sper ca am fost cat de cat explicit
Se poate rezolva?
Multumesc

[IPP]

Buna ziua

Mie nu mi se pare ca enuntul e suficient de explicit.
-acele duplicate se refera la elemente dintr-o singura coloana (de ex. denumire produs) sau randuri intregi cu informatie?

-daca e vorba despre sters randuri automat in functie de niste criterii e nevoie de macro, obligatoriu
-daca e vorba despre evidentiere prin fond colorat, teoretic se poate face cu ajutorul formatarii conditionate daca nu sunt multe tabele (pentru ca va fi nevoie de definire in Name Manager) sau cu ajutor macro.
-daca aveti table (=instrumentul table) sau un tabel (=range, domeniu de celule) si pe unde sunt plasate in foi. Respectati sau nu structurarea corecta a informatiei in excel.
etc.

IP

[ionas811022]

Buna seara,

Am atasat un excel ca sa fie mai explicit.
In el e facut formatare conditionata pentru a evidentia duplicatele.
As prefera, daca se poate, sa fie sters intreg randul duplicat.

[IPP]

Buna ziua

Asa cum ati aplicat regula de formatare conditionata in foi, se coloreaza duplicatele valori din fiecare foaie in parte (de exemplu daca acelasi nume apare de cel putin doua ori sau aceasi valoare apare de cel putin doua ori, indiferent de coloana). Eu nu am reusit sa fac legatura intre acest tip de duplicat si cerintele problemei.

Propunerea din fisierul atasat, folosind macro, se bazeaza pe ce am inteles eu:
exista o foaie, numita "centralizator" in care exista o informatie (nume participant) care se mai regaseste si in celelalte foi; nu mai exista alte foi cu alte structuri/informatie.
Pe baza nume participant, macro sa elimine in intregime randul din foaia "centralizator" daca acesta se regaseste in oricare din tabelele-lista din celelalte foi.

Am folosit urmatorul cod:

Cod: Selectaţi tot

Sub DelRowsByParticipant()

'IPP - 12.09.2018

Dim rngSursa As Range

Dim i As Integer
 i = 2
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
Sheets("centralizator").Select

For i = 2 To Sheets.Count
 Range("C65363").End(xlUp).Offset(-1, 0).Select
 
 Do Until ActiveCell.Offset(-1, -1).Row = 3
  Set rngSursa = Sheets(i).Range("C4:C" & Sheets(i).Range("C65536").End(xlUp).Offset(-1, 0).Row)
  If Application.WorksheetFunction.CountIf(rngSursa, ActiveCell) > 0 Then
   ActiveCell.EntireRow.Delete
  End If
 ActiveCell.Offset(-1, 0).Select
 Loop

Next i

Set rngSursa = Nothing

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Alte precizari:
-Se va respecta structura din fisierul exemplu. Prin structura inteleg atat ordinea foilor in fisier cat si pozitionarea listelor-tabele din foi.
-in niciuna dintre foile implicate nu va mai exista informatie suplimentara pe coloana C, in caz contrar macro nu va identifica in mod corect range-ul de cautare respectiv poate sa nu stearga sau sa stearga in mod corect
-randurile sunt sterse in intregime deci nu la nivel de celule din lista.

Pentru testare: deschideti fisierul atasat, activati macro/continutul si rulati macro

IP

[ionas811022]

Buna seara,

E exact ce doream.
Imi pare rau ca nu am fost explicit in cerinte.
Multumesc mult.