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!
Zoek in beide sheets de laatste cel eens op dmv ctrl + end
Haije
___________________________________________________
Ik gebruik Office 2016 Professional Plus
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.
"Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5
@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.
Gebruik deze macro.
Open daarna het bestand opnieuw.
NB. check of de codenaam van het werkblad 'Sheet1' is. wijzig dit zonodig.
Code: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
Laatst aangepast door snb : 19 september 2023 om 11:49
VBA voor smarties
VBA is een taal die je moet leren met een grammatica- en een woordenboek.
http://www.helpmij.nl/forum/announcement.php?f=5
Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
Super!
Hartelijk dank voor de genomen moeite.
Werkte prima.
Nogmaals dank.