#VERW! Melding

[flipmoo]

Hallo,

IK heb een excel bestand met 4 tabbladen.
Die wisselen allemaal informatie uit.
Nu heb in in mijn eerste tab (Plakken Supply (M) ) 2 knoppen gemaakt met daaraan een script.
Knop 1 verwijder de hele rij waar in kolom H de waarde 11111 staat en knop 2 doet dit bij de waarde 22222.

Dit gaat goed tot de laatste tab (Acces Data Supply (AM) ) Die worden de gelinkte rijen niet verwijderd maar hier geeft hij #VERW! aan.

Kunnen jullie mij helpen dit op te lossen. Zonder dat ik achteraf wel die rijen zelf moet veranderen.

Hier is mijn file: https://dl.dropboxusercontent.com/u/1983527/Test file.xls

Helaas moest ik het zo doen omdat het excel bestand groter dan 1 MB is

Alvast bedankt

 

[Cobbe]

De code werkt wel degelijk maar ze staat op de verkeerde plaats.
Zet de code in een module en doe de toewijzing kloppen.

Dan loopt het als een t..t!!

 

[flipmoo]

Goed nieuws... Helaas moet ik je de uitwerking verschuldigd blijven omdat ik simpelweg niet begrijp wat je zegt.
Zou je dit kunnen toelichten aub?

 

[Cobbe]

http://www.mijnbestand.nl/Bestand-TYWX8ZMDHEEK.xls

Heb het in uw bestand aangepast.

 

[flipmoo]

Beste Cobbe,

Ik kan niet zo snel ondekken wat er anderes is. En belangrijkste is dat ik nog met het zelfde probleem zit.
Zodra ik de rijen met 11111 & 22222 verwijden doormiddel van de knoppen. heb ik nog altijd het zelfde probleem namelijk:

 

[Cobbe]

Je moet de foutafvang zelf organiseren via een

=ALS(ISFOUT(formule;"";formule)

want als je rijen verwijderd kloppen de formules natuurlijk niet meer.

 

[flipmoo]

Zou je hier ook een voorbeeld van kunnen geven aub?

 

[Cobbe]

Ik heb voor alle formules in je bestand een foutafvang gemaakt.
Geldig voor xl2000-xl2003-versie.

http://www.mijnbestand.nl/Bestand-7WCVFLNQMAF3.xlsm

 

[flipmoo]

Super bedankt!

Maar helaas is dit nog niet mijn gewenste resultaat.
Ipv lege cellen. wil ik graag dat die rijen oom uit me laatste tab volledig verdwijnen.
De gegevens moeten dus onderbroken doorlopen.

 

[Cobbe]

Hoop dat het goed gaat:


http://www.mijnbestand.nl/Bestand-6HEXGS7I8HQV.xlsm

 

[flipmoo]

Dit lijkt erop dat het werkt. Ga eens even uitvogelen wat voor moois je gedaan hebt. En kijken of ik het mijn master file kan toepassen! En hopelijk kan ik het dan straks op opgelost zetten!


Super bedankt in ieder geval tot zover!

 

[flipmoo]

Beste Cobbe,

Ik heb alles voorzover ik weet overgebouwd naar mijn bestand. en alles zou zo moeten werken.
Maar toch krijg ik een foutmelding op jou aanvullen script.
En dan wel op deze regel: If .Cells(regel, 1) = "" Then

Waar zou dit aan kunnen liggen?

 

[Cobbe]

Laat eens weten welke waarde 'regel' heeft bij de blokkering.

 

[flipmoo]

Het spijt me maar ik begrijp je vraag niet.. Ben helaas geen excel pro. Als doende leer ik een beetje en dit (scripts) zijn volledig nieuw voor me.

 

[Cobbe]

Je zegt dat de code vastloopt op de regel
'If .Cells(regel, 1) = "" Then'
die wordt dus geel aangegeven.

Als je nu met je cursor op het woordje 'regel' gaat staan komt er een waarde naar voor.
Het is die waarde die ik graag zou hebben.

 

[flipmoo]

1239

 

[Cobbe]

Dit zou nochtans moeten goedgaan.
1239 is de laatste regel van blad 'Acces Data Supply (AM)'
Welke foutmelding krijg je bij de blokkering?

 

[flipmoo]

Fout 13 tijdens runtime:
Typen komen niet overeen

 

[Cobbe]

Wil je nog eens de hele code posten die in je VBE staat.

 

[flipmoo]

OPGELOST! Er zat nog vervuilde code onderin me laatste tab.
Dat heb ik nu opgelost en werkt als een TIET!!

Super bedankt!