The operation you are about to perform affects a large number

[hmwul]

Iedere keer als ik een regel wil toevoegen of kolom wil verwijderen krijg ik onderstaande melding.

Een paar keer op Esc en opnieuw opstarten, maar het blijft terugkomen.

Large Operation
The operation you are about to perform affects a large number of cells and may take
a significant amount of time to complete. Are you sure you want to continue?
Note: This operation will be performed automatically in 60 seconds if no response is received.

Daarnaast zijn de schuifbalkjes horizontaal en verticaal heel klein, terwijl de sheet 4700 rijen en kolommen t/m de W .

Het betreft 2 sheets
sheet A, kolom A = samevoegen van datum+tijd (TEXT(D2;"dd-mm-jjjj")&TEXT(E2;"uu:mm:ss"))
sheet B, kolom A = hetzelfde
Vanuit A in B zoeken en een paar gegevens ophalen.

Weet niet of het daarmee te maken heeft.

Aan de andere kant, gisteren kon ik ook regels verwijderen, zonder deze waarschuwing.

Heeft iemand een suggestie?

Op basis van die schuifbalkjes lijkt het een giga-bestand te zijn, maar dat is het niet. (5MB, of eigenlijk maar de helft, want sheet A en sheet B zijn dubbel, veiligheidskopietje gemaakt)

thanks!

 

[Haije]

Zoek in beide sheets de laatste cel eens op dmv ctrl + end

 

[edmoor]

Voor beide werkbladen.
Ga naar de laatst gevulde regel en klik dan in kolom A van de volgende regel.
Doe nu Ctrl+Shift+End.
Klik dan met rechts op het geselecteerde gedeelte en kies Verwijderen.
Klik dan op Cellen naar links verplaatsten en klik op Ok.

Sla nu je document op en herstart Excel.

 

[hmwul]

@edmoor @Haije

Bijgaand screenshot spreek misschien voor zich.

@edmoor
Kolom A, de lege regel onder de laatst gevulde regel, dan ctrl-shift-end - lege regel en de regel erboven wordt geselecteerd (?) maar wat dan?


@Haije
ctrl-end : correcte aantal regels (4734), maar dan kolom XFD (ipv Y)

Ik heb de gok genomen: selecteer kolom y, dan ctrl-shift-pijltje naar rechts, del, dan [OK] bij de waarschuwing + opslaan herstarten.
Het ziet er nu weer enigszins 'normaal uit.

Dank voor de reacties!

Ik zet het bericht als opgelost.

 

[snb]

Gebruik deze macro.
Open daarna het bestand opnieuw.

NB. check of de codenaam van het werkblad 'Sheet1' is. wijzig dit zonodig.

Sub M_snb()
  On Error Resume Next
  
  With Sheet1
    For Each it In .Cells.SpecialCells(2)
      If it.Row > r Then r = it.Row
      If it.Column > c Then c = it.Column
    Next
        
    For Each it In .Cells.SpecialCells(-4123)
      If it.Row > r Then r = it.Row
      If it.Column > c Then c = it.Column
    Next
        
    .Rows(r).Offset(1).Resize(Rows.Count - r - 1).Delete
    .Columns(c).Offset(, 1).Resize(, Columns.Count - c - 1).Delete
  End With
   
  ActiveWorkbook.Close -1
End Sub

 

[hmwul]

Super!
Hartelijk dank voor de genomen moeite.
Werkte prima.

Nogmaals dank.