foutmelding in VBA code

[petervdijk]

hoi,

krijg een foutmelding waarvan ik niet weet hoe ik het op moet lossen.



Ik heb 8 tabbladen die ik samenvoeg in een werkblad.

Het vreemde is dat de code doet wat ie moet doen.

 

[E v R]

wat is de foutmelding?

 

[petervdijk]

De regel in het geel van de printscreen

 

[jkpieterse]

Maar welke melding krijg je als je die regel probeert uit te voeren?

 

[petervdijk]

Dit is de melding.

 

[jkpieterse]

Staan er op het werkblad in kwestie misschien cellen met foutwaarden? Zet anders achter DataBodyRange voor de volledigheid ook .Value

 

[petervdijk]

ik heb het nogmaals gecheckt alle celwaardes staan goed, ik heb .Value achter DataBodyRange gezet ik krijg de zelfde melding

Sub Macro1()
Set sh = Sheets("Werkblad")
sh.Cells(1).CurrentRegion.Offset(1).Clear
For Each it In Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8"))
ar = it.ListObjects(1).DataBodyRange.Value
sh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(ar), UBound(ar, 2)) = ar
Next it
End Sub

 

[E v R]

gokje:

Is jouw laatste tabel leeg/heeft 1 rij?

 

[petervdijk]

Ik heb alle gevoelig info er uitgehaald, en een test bestand gemaakt. Geeft wat meer inzicht.

Bekijk bijlage test.xlsm

 

[E v R]

Jouw tabel op blad 4 is nogal groot, zo groot dat eea niet past

 

[petervdijk]

ik zag het verkeerd gekopieerd. Als ik één blad kopieer naar de rest (van de 8)dan doet ie het.

Ik heb het originele bestand gecontroleerd daar zie ik geen extra lege regels. dan krijg ik alsnog de foutmelding.

 

[VenA]

Ook blad5 t/m blad8 bekeken ook hier gebruik je alle rijen.

 

[HSV]

Zoals EvR aangeeft; je listobject is te groot in de bladen 4,5,6,7 en 8.
Selecteer een cel in kolom A; druk ctrl+pijltje naar beneden.
Selecteer de hele rij daaronder en druk Shift+Ctrl+pijltje naar beneden.
Rechtermuisknop "Verwijderen".

 

[E v R]

In jouw originele bestand:

plaats eens:

 Debug.Print UBound(ar)

net voor de regel waar het uiteindelijk fout gaat.

Wat wordt er (meerdere malen) geprint?

 

[petervdijk]

Dat heb ik ook direct gedaan. Het test bestand geeft geen foutmelding meer. Alleen blijft het originele bestand toch de zelfde foutmelding geven.

Geen extra lege regels
Alle cellen komen overeen

 

[petervdijk]

Ik krijg de zelfde melding

 

[E v R]

kijk even naar post #14,

ik verwacht dat het in het (totaal) aantal rijen zit (of maar 1)

 

[edmoor]

De tabellen voor sheets 5, 6, 7, 8 geven een veel te groot bereik aan. Wijzig dit in wat wel correct is:

 

[petervdijk]

ik had het bereik aangepast.

 

[E v R]

ja uiteraard, maar wat "print"de VB editor?