• 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.

Excel tabel; vanaf laatste cel inhoud verwijderen

Status
Niet open voor verdere reacties.
M

mvanbe

Gebruiker
Lid geworden
7 mrt 2018
Berichten
87
Goedemorgen,

Ik heb een probleem waar ik zelf niet uitkom. Hiervoor heb ik een voorbeeld bestand gemaakt

- In kolom E staat op regel 28 de laatste cel met inhoud (tekst)
- In mijn origineel staan in kolom G vanaf 29 tot einde tabel ongewenste formules

Ik zou graag hulp willen met een macro die:

- De laatste gebruikte cel met tekst in kolom E zoekt
- 2 cellen naar rechts verplaatst en 1 naar onder en vanaf dit punt
- Alle inhoud/formules verwijderd tot aan einde tabel

Hopelijk is het duidelijk,
 

Bijlagen

  • Voorbeeld.xlsx
    10,3 KB · Weergaven: 26
Bvb

Code: 
Sub j()
  With Sheets(1).ListObjects(1)
    a = .DataBodyRange(.ListRows.Count, 5).End(xlUp).Row - .HeaderRowRange.Row
    .DataBodyRange(a + 1, 7).Resize(.ListRows.Count - a).ClearContents
  End With
End Sub

of

Code: 
Sub j2()
Range(Cells(Rows.Count, 5).End(xlUp).End(xlUp), Cells(Rows.Count, 5).End(xlUp)).Offset(1, 2).ClearContents
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan