Probleem met een draaitabel

[gerardq]

Graag wil ik in een macro een verwijzing hebben naar het volgende veld van een draaitabel.

Wanneer ik een macro opneem dan komen er absolute velden.
Deze velden kunnen echter variabel zijn, dus de volgende keer kunnen het andere lidnummers zijn.
Een marco maken wordt te lang (meer dan 4.000 regels!!)


Mogelijk is er een scripte die de cursor naar het onderste veld verwijst en doorgaat tot het einde.
Ik denk aan een lus maar hoe dat moet, heb geen idee.
Wie kan mij erop weg helpen ????

Als het lukt dan kan ik e.e.a. automatisch laten uitprinten voor ieder lid.

Alvast bedankt voor je medewerking en hulp.

 

[gerardq]

Macro in een draaitabel

Kennelijk is het niet eenvoudig.
Met diverse experimenten lukt mij het niet om met een macro naar de volgende lid te gaan en daarvan een overzicht te krijgen.

Weet misschien iemand welk script ik moet gebruiken om in een keuzelijst naar het volgende veld te gaan?
De Lidnummers kunnen veranderen in de keuzelijst dus het is geen vaste lijst

Als ik dit weet dan ben ik in iedergeval al een hele stap verder.

 

[namliam]

Je zult de absolute waarden moeten ophalen uit de bron van de draaitabel.

Dan kan je ze een voor een selecteren en printen...

SucZeven

 

[gerardq]

Probleem met draaitabel (Macro)

Jammer dat dit niet de gewenst oplossing is.
Daarom had ik de vraag gesteld hoe kan ik dit met een macro oplossen?

Dit moet toch mogelijk zijn alleen lukt het mij niet naar het volgende lid te gaan.
de rest is geen probleem, printen in een lus of loop lukt ook.

Blijf hopen op een goede tip

 

[namliam]

Kan je niet in een loop je (bron) lijst aflopen op zoek naar de volgende waarde?

Moet kunnen volgens mij....

 

[gerardq]

Draaitabel

Het lukt mij niet zonder de lidnummer te benoemen naar de volgende waarde te gaan te printen en vervolgens weer naar de volgende waarde te gaan etc etc tot hij bij de laatste stop.

Als dat zou kunnen wat kan een draaitabel toch mooi zijn.

 

[namliam]

Prima, maar dat lidnummer benoemen is niet zo een probleem toch? Als je die dan maar geautomatiseerd ophaalt?!

 

[gerardq]

Draaitabel

Wat als er een nieuw lid komt of er een komt te vervallen.
De doorstroming is groot dus we spreken niet van incidenten.


Benoemen is niet moeilijk d.m.v. macro opnemen en vervolgens copie-en er onder plakken.
Lid nummers aanpassen etc. Macro wordt volgens mij te groot en te onoverzichtelijk.

Lidnummers automatisch ophalen zou een mogelijkheid kunnen zijn maar daar ben ik totaal niet in thuis. Misschien dat een hint mij verder kan helpen.

Een nieuwe les in VBA ?????

 

[namliam]

Geen les voor nodig... of ben je alleen van de code opnemen en een beetje aanpassen? Dan wordt het wat moeilijker....

OK Meer in detail. Ik neem aan dat de bron van de draaitabel op een ander sheet staat?
Dan kan je dus door dat sheet heenlopen (door de kolom die in de titel is gekomen van je draaitabel) op zoek naar waarden.
Eerst even alphabetisch sorteren en gaan met die banaan...

SucZeven

 

[gerardq]

Ik ben inderdaad een beetje van het knutselwerk.
Als het eenmaal staat ben ik aan het afwerken.
En dat kan soms heel mooi zijn.
Kleurtje hier en streepje daar.
Gewoon lekker knutselen maar als er een probleem is dan "HELPMIJ" even bellen

Op blad 1 staan de basisgegevens
Blad 2 de draaitabel
Op veld B1 de keuzetabel met lidnummers (+/- 480) - die kun je inderdaad doorlopen.

Zie bijgaande voorbeeld

 

[namliam]

Zoiets denk ik .... uit het losse polsje zonder excel dus er kunnen wat schoonheids foutjes inzitten

Dim myRij as double
Dim myText as String
myRij = 2
myText = ""
do while Sheets("Sheetnaam").cells(2,myRij) <> ""
    if myText <> Sheets("Sheetnaam").cells(2,myRij) then
           myText = Sheets("Sheetnaam").cells(2,myRij)
           'Doe hier iet met printen enzo met myText als "vaste" waarde
    endif
    myRij = myRij + 1
Loop

P.S. Als je MSN hebt, ben ik ook te bereiken via dat medium... Namliam_eht

 

[gerardq]

draaitabel

Wat knap dat je dit zo even doet uit het losse polsje.

Maar ik ga er even tussen uit.
Denk niet dat je dan geen reactie krijgt maar begin december ben ik er weer!!!

tot dan...

 

[gerardq]

Draaitabel

Goedemiddag Namliam;

Na een korte onderbreking wil ik graag de draaitabel weer oppakken;

Jouw suggestie heb ik verwerkt in mijn macro, alleen de eerste sheet wordt opgeslagen en gaat weer terug naar de draaitabel.
Echter hij zet niet door naar de volgende lid. Na enkele experimenten heb ik myRij = 2 moeten aan passen in myRij = 1
Anders doet hij helemaal niets. Zie onderstaande voorbeeld.

Hopelijk weet je waar het probleem zit.

Zelf dacht ik da het te maken zou kunnen hebben met lidnummers.
Deze zijn vaak in de draaitaqbel niet op eenvolgend genummerd.



Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: CTRL+z
Dim myRij As Double
Dim myText As String
myRij = 1
myText = ""
Do While Sheets("Resultaat").Cells(1, myRij) <> ""
If myText <> Sheets("Resultaat").Cells(1, myRij) Then
myText = Sheets("Resultaat").Cells(1 myRij)
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.EntireColumn.AutoFit
With ActiveWorkbook.Sheets("Blad1").Tab
.TintAndShade = 0
End With
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
ChDir "D:\testen"
ActiveWorkbook.SaveAs Filename:="D:\Testen\" & Range("Blad1!b1") & ".xls" ',
ActiveWorkbook.Save
ActiveWindow.Close
End If
myRij = myRij + 1

Loop

End Sub

 

[gerardq]

draaitabel

Goedemiddag,

Graag wil ik verder met de draaitabel, weet iemand waarom deze stopt met de draaitabel
zoals namliam heeft aangegeven.

Namliam ik hoop nog op een reactie van je.

Mijn dank is groot als je mij kunt helpen.

 

[namliam]

Ik heb je post van 2 dec niet meegekregen, excuus voor het niet opvolgen hiervan...

Ik zal proberen hier nog even naar te kijken voor je...

MVG

 

[namliam]

Ik begrijp uit jou code dat je sheet resultaat de draaitabel bevat?

Dan moet je op zoek naar waarden in je bron tabel die voor de draaitabel diende, het is lastig een voorbeeld te verzinnen....

Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: CTRL+z
Dim myRij As Double
Dim myText As String
' zorg ervoor dat je tabel goed gesorteerd is !
    Sheets("Orig").Select
    Range("A1").Select
    Range("A1:C33").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
myRij = 2
myText = ""
Do While Sheets("Orig").Cells(myRij, 1) <> ""
    If myText <> Sheets("Orig").Cells(myRij, 1) Then
        myText = Sheets("Orig").Cells(myRij, 1)
        Cells.Select
        ActiveSheet.PivotTables("Draaitabel2").PivotFields("Letter").CurrentPage = myText

    End If
    myRij = myRij + 1

Loop

End Sub

Bovenstaande code is getest... en werkt...
Op het sheet Orig staan zowel de tabel als de draaitabel.

Ik hoop dat je er uit komt...

SucZeven

 

[gerardq]

Draaitabel

This niet te geloven, this niet te geloven.

Namliam I have a nice day.

Bedankt voor je hulp en ben er ontzettend blij mee dat je mij hiermee geholpen hebt.

Nogmaals dank.

:thumb::thumb::thumb::thumb::thumb::thumb::thumb::thumb::thumb::thumb::thumb::thumb::love::love::love::love::love::love::love::love::love::love: