langzame code?

Pander · 1 mei 2018

Op een of andere manier heeft mijn excel nogal moeite met het uitvoeren van onderstaande macro.
Ligt dat aan de code? De data die ik voor het uitvoeren van de macro gebruik beslaat de kolommen A T/m P
en kent doorgaans 400 regels. Toch duurt het plus minus 20 sec. met meerdere keren de melding : excel reageert niet.

Code:

Sub Laatstekeer()
'
' Laatstekeer Macro
'

'
    Cells.Select
    Application.CutCopyMode = False
    With Selection
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp

End Sub

ExcelAmateur · 1 mei 2018

Kun je niet beter een bereik invullen,
nu neemt hij het hele blad.
Het scheelt natuurlijk wel of je 10 cellen moet doen of 100 cellen.

Haije · 1 mei 2018

wat heet, als je alle cellen selecteert, zijn dat er ruim 17 miljard, 17.179.869.184 om precies te zijn

SjonR · 1 mei 2018

zo dan?

Code:

Sub Laatstekeer()
    With Cells(1).CurrentRegion
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        .SpecialCells(xlCellTypeBlanks).Delete xlToLeft
        .SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
    End With
End Sub

Haije · 1 mei 2018

Of in plaats van

Code:

Cells(1).CurrentRegion

Code:

ActiveSheet.UsedRange

Pander · 1 mei 2018

aah, dank met de toevoeging van Haije in de code van SjonR gaat het sneller dan ik met de ogen kan knipperen..waarvoor dank.

langzame code?

Pander

Gebruiker

ExcelAmateur

Terugkerende gebruiker

Haije

Terugkerende gebruiker

SjonR

Verenigingslid

Haije

Terugkerende gebruiker

Pander

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy