Wegschrijven duurt te lang

[wieter]

Ik heb voor de aardigheid, een bestand wat hier gepubliceerd werd, verder uitgebreid.
De meeste tab-bladen zijn verwijderd (volume!!)

Probleem:
Blad: "A101" - Knop "Boeken" toont UForm - Na invullen Uform knop "Boeken"
Dan duurt het abnormaal lang voor de MsgBox verschijnt.

Wie weet waarom deze actie zolang duurt?


Bekijk bijlage 194317

 

[VenA]

Kan je het bestandje niet plaatsen als een .xls(x)?

Anders wordt het voor mij een beetje gokken:
- je hebt een trage PC;
- De code hangt in een lus;
- De sheet staat vol met formules of voorwaardelijke opmaak.

Ook de link naar

een bestand wat hier gepubliceerd werd

is welkom.

 

[edmoor]

Vervang de code achter de Boeken knop in het formulier Boeken door deze:

Private Sub CommandButton1_Click()
    Dim varCalculation As Long

    Application.ScreenUpdating = False
    varCalculation = Application.Calculation
    Application.Calculation = xlCalculationManual
    
    With Sheets("Boekingen")
    Rij = .Range("A" & Rows.Count).End(xlUp).Row + 1 'naar eerste lege regel
    .Cells(Rij, "A") = TextBox1.Value
    .Cells(Rij, "B") = DateValue(Format(TextBox2.Value, "dd-mm-yyyy"))
    .Cells(Rij, "C") = DateValue(Format(TextBox3.Value, "dd-mm-yyyy"))
    .Cells(Rij, "D") = TextBox4.Value
    .Cells(Rij, "E") = TextBox5.Value
    .Cells(Rij, "F") = TextBox6.Value
    .Cells(Rij, "G") = TextBox7.Value
    .Cells(Rij, "H") = TextBox8.Value
    .Cells(Rij, "I") = TextBox9.Value
    .Cells(Rij, "J") = TextBox10.Value
    End With
    
    Application.ScreenUpdating = True
    Application.Calculation = varCalculation

    MsgBox "DE BOEKING IS VERWERKT"
    Unload Boeking
End Sub

De wijziging die ik heb aangebracht is het uitschakelen van automatisch berekenen en het bijwerken van het scherm tijdens de verwerking. Na de verwerking wordt dit weer gecorrigeerd.
Je zult zien dat dit een stuk in snelheid scheelt.

 

[wieter]

@VenA
Ja de sheet staat vol met formules EN voorw. opmaak.
Dit bleek dan ook de oorzaak te zijn.

@Edmoor
Jou oplossing voor het probleem, dat VenA al aanhaalde, werkt perfect.

Beiden hartelijk bedankt!!

 

[edmoor]

Ok dan
Ik hoop dat de oorzaak en de oplossing ervoor ook duidelijk is en hoe je dat in de code opneemt.

 

[wieter]

Ja, de autom. berekening wordt tijdelijk op manueel gezet.
Dit scheelt heel wat in tijd.
Nogmaals bedankt voor de oplossing

 

[wieter]

@VenA
Je gok op een blad vol formules en VWO was juist.
Als ik het bestand opsla als .xls , gaat het van 160kb naar 433kb.
Ook ge-rard kan ik het dan niet uploaden.
De aanpassing van de code door Edmoor werkt perfect.
Dus het probleem is opgelost.
Bedankt voor je inbreng