JKlerks
Gebruiker
- Lid geworden
- 15 aug 2017
- Berichten
- 56
Goedemiddag,
volgens mij staat dit al ergens in het forum, maar ik kan het niet vinden...
3 vragen:
1. Hoe bevestig ik de waarde in een cel met een macro? Zie voorbeeld. In cel b4 staat na het uitvoeren niet de waarde die ik wil zien (en in een andere tool moet inlezen). Na F2 + Enter kan ik door, ook met inlezen. Bij 10 regels is dat zo gedaan, maar bij 1000 krijg ik al wat last van mijn vingers
2. Ik gebruik een macro om waarden van tab A naar B te verplaatsen. De hoeveelheid rijen is variërend en ook bevatten de cellen niet altijd inhoud. Betreft masterdata waar ook wel eens data ontbreekt. Ik gebruik hiervoor deze code:
a. Kan dit sneller en slimmer? Liefst in combinatie met vraag 1, want dan hoef ik misschien niet alles te bevestigen.
b. 19 van deze regels lopen goed, maar er zit er 1 in die soms wel en soms niet een foutmelding geeft. Die kolommen bevatten vaak veel lege cellen. Kan dat een oorzaak zijn?
3. Uiteindelijk ga ik een selectie maken obv een audit. Ik verwijder dan de regels met code
Jullie begrijpen dat dit met 100.000 regels per bestand te lang duurt. Is er een oplossing zonder dit met autofilter te doen? Die niet lang duurt
Merci d'avance
- Joshua
volgens mij staat dit al ergens in het forum, maar ik kan het niet vinden...
3 vragen:
1. Hoe bevestig ik de waarde in een cel met een macro? Zie voorbeeld. In cel b4 staat na het uitvoeren niet de waarde die ik wil zien (en in een andere tool moet inlezen). Na F2 + Enter kan ik door, ook met inlezen. Bij 10 regels is dat zo gedaan, maar bij 1000 krijg ik al wat last van mijn vingers

2. Ik gebruik een macro om waarden van tab A naar B te verplaatsen. De hoeveelheid rijen is variërend en ook bevatten de cellen niet altijd inhoud. Betreft masterdata waar ook wel eens data ontbreekt. Ik gebruik hiervoor deze code:
Code:
Sheets("AUDIT").Range("A2:A500001") = Sheets("IMPORTER").Range("BP2:BP500001").Value
a. Kan dit sneller en slimmer? Liefst in combinatie met vraag 1, want dan hoef ik misschien niet alles te bevestigen.
b. 19 van deze regels lopen goed, maar er zit er 1 in die soms wel en soms niet een foutmelding geeft. Die kolommen bevatten vaak veel lege cellen. Kan dat een oorzaak zijn?
3. Uiteindelijk ga ik een selectie maken obv een audit. Ik verwijder dan de regels met code
Code:
Sheets("AUDIT").Range("AM2:AM" & Cells(Rows.Count, "AA").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Jullie begrijpen dat dit met 100.000 regels per bestand te lang duurt. Is er een oplossing zonder dit met autofilter te doen? Die niet lang duurt
Merci d'avance
- Joshua
Bijlagen
Laatst bewerkt: