• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kan geen regels meer toevoegen

Status
Niet open voor verdere reacties.

johandezeeuw

Gebruiker
Lid geworden
2 dec 2002
Berichten
358
Hallo,

Ik krijg steeds ingevoegde foutmelding. Kan iemand mij helpen hoe ik weer regels kan toevoegen?

Alvast dank!

Johan
 

Bijlagen

en hoe kan ik dit oplossen? Ik heb rijen en kolommen verwijderd maar de medling blijft komen :-(
 
Je zal voor de gehele rijen en kolommen de opmaak toegepast hebben.
Dus zal je vanaf het einde van je gebruikte ruimte de opmaken moeten verwijderen.
Je kan ook de gebruikte ruimte copiëren naar een nieuw blad.

Succes, Cobbe
 
Draai deze macro. Open het bestand daarna opnieuw

Code:
Sub tst()
  With sheets(1)
    For Each cl In .Cells.SpecialCells(2)
      If cl.Column > c Then c = cl.Column
      If cl.Row > r Then r = cl.Row
    Next
    For Each cl In .Cells.SpecialCells(xlCellTypeFormulas)
      If cl.Column > c Then c = cl.Column
      If cl.Row > r Then r = cl.Row
    Next
    .Rows(r + 1).Resize(.Rows.Count - r).Delete
    .Columns(c + 1).Resize(, .Columns.Count - c).Delete
  End With
  Activeworkbook.Close True
End Sub
 
Draai deze macro. Open het bestand daarna opnieuw

Code:
Sub tst()
  With sheets(1)
    For Each cl In .Cells.SpecialCells(2)
      If cl.Column > c Then c = cl.Column
      If cl.Row > r Then r = cl.Row
    Next
    For Each cl In .Cells.SpecialCells(xlCellTypeFormulas)
      If cl.Column > c Then c = cl.Column
      If cl.Row > r Then r = cl.Row
    Next
    .Rows(r + 1).Resize(.Rows.Count - r).Delete
    .Columns(c + 1).Resize(, .Columns.Count - c).Delete
  End With
  Activeworkbook.Close True
End Sub

Of deze simpelere versie die in vele gevallen ook werkt:

Code:
Sub tst()
    With sheets(1)
        .UsedRange
        .Parent.Close True
    End With
End Sub
 
Code:
Sub tst()
    With sheets(1)
        .UsedRange
        .Parent.Close True
    End With
End Sub

@Wigi

Kun jij mij vertellen wat de 2e regel doet ? Bij mijn weten is usedrange geen methode (of ben je copy vergeten ?) ;)
 
@Wigi

Bedankt, bekeken.
Vraag blijft: het probleem ontstaat toch omdat Excel de eigenschappen Lastcell en usedrange niet goed registreert ? Is dan het gebruik van .usedrange een oplossing ?
Dat was in ieder geval mijn overweging bij het maken van de macro. Daarom heb ik daar beide vermeden.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan