• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

ontdubbelen en aanmaken als tabbladen

Status
Niet open voor verdere reacties.
T

Tijsss

Gebruiker
Lid geworden
25 jan 2012
Berichten
46
Beste mensen,

Is het mogelijk (zie voorbeeld bestand), dat er vanuit het Bronblad (1e tabblad) de Lev Nr’s (1e kolom) automatische te ontdubbelen en aan te maken als tabbladen. Waarna de 2de en 3de kolom uit het bronblad automatische te ontdubbelen en in het juiste tabblad komt te staan. (zie voorbeeldbestand, tabblad: 11111 & 11112 & 11113)

Ja dit kan met filters, maar die is een handeling die regelmatig gedaan moet worden (door excel leken), met een hoop data.

Ik hoop dat jullie me kunnen helpen.

Alvast bedankt
 

Bijlagen

  • Voorbeeld_LevNr.xlsx
    11,3 KB · Weergaven: 30
Draaitabel geen optie?
Bij veel leveranciers krijg je ook veel tabs....
 

Bijlagen

  • Voorbeeld_LevNr.xlsx
    21,2 KB · Weergaven: 33
Beste Eric,
Bedankt voor je reactie, dat is zeker een mogelijk. Alleen, is het dan mogelijk om cel C1 te verwijzen naar A3. Ofwel: de autofilter koppelen aan een Cel waardoor de autofilter aangepast wordt.

Gr. Tijs
 
in het code gedeelte van de sheet waar de draaitabel staat:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo NoLev:
If Target.Address = "$A$3" Then
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Lev Nr")
        .ClearAllFilters
        .CurrentPage = Target.Value
    End With
End If
Exit Sub
NoLev:
MsgBox "Onbekend nummer"
End Sub
 
Eric,

Super, het werkt prima! Bedankt voor de snelle reactie en voor de oplossing.

Gr, Tijs
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan