autofill met dynamische range

Status
Niet open voor verdere reacties.
L

Licorne

Gebruiker
Lid geworden
22 jun 2017
Berichten
11
Hallo,

Ik ben al een tijdje aan het zoeken naar een oplossing voor volgend probleem.

Mijn spreadsheet bevat ongeveer 100000 records waarvan er voor één kolom de gegevens over de blanco cellen dienen doorgetrokken te worden tot voor de cel met andere gegevens. Dit zodat er uiteindelijk een draaitabel op kan gedraaid worden.

Ik heb zelf wel een werkende oplossing mbv if then maar de macro loopt hiervoor veel te lang omdat deze elke cel in de spreadsheet moet gaan onderzoeken.

Een klein voorbeeldbestandje zal veel duidelijker maken.

Alvast bedankt voor de hulp!
L

Code: 
soort	maand	kleur	naam
kat	jan	rood	Jan
hond 	jan	geel	
cavia	feb	geel	
hond 	mrt	rood	
cavia	jun	blauw	
giraf	feb	geel	Piet
aap	feb	groen	
rat	feb	groen	Geert
koe	mrt	rood	
eend	mrt	blauw	
giraf	apr	blauw	
olifant	apr	rood	
cavia	apr	geel	
hond 	mei	geel	Els
vogel	mei	groen	
kat	jun	geel	
olifant	jun	blauw	
koe	jun	oranje	
rat	jul	geel	
aap	aug	magenta	
hond 	aug	rood	
giraf	sep	geel	
giraf	mei	blauw	Joris
paard	mei	rood
 
Dag Edmoor

hierbij het bestandje.
 

Bijlagen

  • testje.xlsm
    19,1 KB · Weergaven: 22
Bedoel je zo?

Code: 
Sub VenA()
  On Error Resume Next 'geen lege cellen
  Columns(4).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
  Columns(4) = Columns(4).Value
End Sub
 
Dit werkt idd perfect VenA en het is wat ik zoek.
Alleen is het zo dat als ik het op mijn basisbestand loslaat al de cellen ongeldig worden (#N/B)

Misschien is de reden dat er in mijn bestand ook af en toe lege cellen staan in andere kolommen?
 
Dan zal het voorbeeldbestand niet representatief zijn en zal je het zelf moeten oplossen.
 
Hierbij een representatief extract. Het gaat over kolom E
 

Bijlagen

  • Extract.xlsx
    30,9 KB · Weergaven: 21
Wat gaat er mis dan behalve dat je het kolomnummer moet aanpassen?
 
Hoi VenA,
Ik begrijp het ook niet goed.
In bijlage het extractje waarop ik getest heb.
blad 1 = test met resultaat; blad 2 originele bestandje met de gegevens die ik in blad 1 heb getest.

thx,
L
 

Bijlagen

  • Extract.xlsm
    57,6 KB · Weergaven: 23
Zet deze code in een gewone module dus niet in een bladmodule en probeer het nog eens
Code: 
Sub VenA()
  On Error Resume Next 'geen lege cellen
  Columns(5).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
  Columns(5) = Columns(5).Value
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan