Lege cellen vullen bij een draaitabel

Question

Ik heb een draaitabel gemaakt en nu zou ik graag de lege cellen gevuld willen hebben, is het niet in de draaitabel dan wel in een kopie van die draaitabel (kopie-waarde)

als het kan dmv een vb-script zou kunnen vullen, zou dat handig zijn, aangezien de grote van de draaitabel wekelijks kan varieren...

Ik hoor het graag...

Bijvoorbaat dank.

groetjes Joyce

---

Mvg Joyce

Answer 1

Joyce,

Dit zal vermoedelijk alleen lukken op een kopie van de gegeevns uit de draaitabel.

Onderstaande code doet denk ik wat je wilt.

Hierbij is verondersteld dat de kopie is geplaatst in cel A5 van een werkblad en dat de vierde kolom (D) bepalend is voor de lengte van de te vullen cellen.

Option Explicit

Sub LegeCellenVullen()

    Dim rng As Range

    Dim lngR As Long

    Dim i As Long

    On Error GoTo Err_LegeCellenVullen

    lngR = Range("D65536").End(xlUp).Row

    Set rng = Range("A5:A" & lngR)

    Set rng = rng.SpecialCells(xlCellTypeBlanks)

    rng.Range("A1").FormulaR1C1 = "=R[-1]C"

    rng.FillDown

    Set rng = Range("B5:A" & lngR)

    Set rng = rng.SpecialCells(xlCellTypeBlanks)

    rng.Range("A1").FormulaR1C1 = "=R[-1]C"

    rng.FillDown

    Set rng = Range("A5:B" & lngR)

    Set rng = rng.SpecialCells(xlCellTypeFormulas)

    lngR = rng.Areas.Count

    For i = 1 To lngR

        rng.Areas(i) = rng.Areas(i).Value

    Next

Exit_LegeCellenVullen:

    Exit Sub

Err_LegeCellenVullen:

    MsgBox Err.Description

    Resume Exit_LegeCellenVullen

End Sub

Jan

Answer 2

Dit hoeft niet persé met VBA. Je kan dit ook bereiken (ook op een kopie van de draaitabel weliswaar) met "Selecteren Speciaal".

Kijk hier maar eens bij puntje 2:

http://www.exhelp.be/bewerkingen/218

Aan jou de keuze!

Mvg,

Exhelp

---

EXHELP - Dé Vlaamse Excel-blog - http://www.exhelp.be

Answer 3

Als ik het al niet had gezegd, dan zeg ik het nu...

Je bent helemaal geweldig!!

Ik moet ook maar eens een cursus vb gaan volgen..

Bedankt weer.

gr joyce

---

Mvg Joyce

Answer 4

Ik doe er ff een voorbeeltje bij. Ik heb dus een kopie van een draaitabel gemaakt (dmv kopieren en plakken waarde) nu wil ik graag kolom A en Kolom B gevuld hebben

821111KAP	2010	1	4302001D
830915DOM	2010	13	3045001D
	14	3045001D
	15	3045001D
	16	3045001D
	17	3045001D
840309KAP	2010	5	4302001D
	6	4302001D
	7	4302001D
	8	4302001D
870911SCH	2009	53	4302001D
	2010	1	4302001D
	2	4302001D
	3	4302001D
	4	4302001D
	5	4302001D
	6	4302001D
	7	4302001D
	8	4302001D
880203HUI	2009	53	4302001D
	2010	1	4302001D
	3	4302001D

---

Mvg Joyce