Jag har en tabell (Grunddata) som månatligen fylls på med 200-400 rader. 

De första kolumnerna ser ut som följer: 

Redov nr	SSTE	Klartext SSTE	Mätdatum	Redov datum
11655632	8500	Bark Barr	20190528	20190701
11657682	8500	Bark Barr	20190626	20190701
11657692	8500	Bark Barr	20190626	20190701
11657701	8500	Bark Barr	20190626	20190701
11657728	8500	Bark Barr	20190627	20190701
11657750	8500	Bark Barr	20190627	20190701
11657774	8500	Bark Barr	20190627	20190701
11657826	8500	Bark Barr	20190628	20190701
11657839	8500	Bark Barr	20190628	20190703

 

Nu försöker jag skapa en funktion för att leta upp dubletter baserade på redovisningsnummer (kolumn A), ta bort dessa och sedan uppdatera mina pivot-tabeller. Hur går jag tillväga? Jag har hittat funktionen med att gå via Data - Ta bort dubletter men det vore bra om funktionen kunde implementeras i redan existerande makro. 

 

Sub Uppdatera_pivottabeller()

 

'Uppdatera alla pivot-tabeller

 

Dim pt As PivotTable

    Dim ws As Worksheet

 

    For Each ws In ActiveWorkbook.Worksheets

    For Each pt In ws.PivotTables

    pt.RefreshTable

    Next pt

    Next ws

    

    MsgBox "Uppdatering klar, glöm inte att välja rätt månad/period"

 

 

End Sub

 

Hej hej

Dim sWS as worksheet: set sws = thisworkbook.sheets("namnPåDinGrunddataflik")
Dim rng as range: set rng = sws.range("namnpådintabell")

rng.RemoveDuplicates Columns:=2, Header:= _
xlYes

Värdet två ska ersättas med indexet för kolumnen där du har dina dubletter.

Dessa rader ska ligga utanför din loop.
Vidare så behöver du inte loopa dina sheets för att uppdatera dina pivottabeller: det räcker med raden:
ThisWorkbook.RefreshAll för att uppdatera dem :).

Edit: Såg att Ano klämde in ett svar, minuten före mig :=). Båda fungerar lika bra..

Mvh
Christian