Vraag : Verwijder rijen en inhoud

Ik heb de hulp van Deskundigen nodig om een manuscript te schrijven dat rij tussen lijn 12 kan schrappen de rij „van Uren“ bedragen en al inhoud tussen Lijn 7 ontruimen de rij „van Uren“ bedragen. De Deskundigen van de hoop zullen me helpen om dit manuscript te schrijven. Vastgemaakt wordt het werkboek voor de lezing van Deskundigen.

Attachments:

van

RemoveData.xls (93 KB)  (de Details van het Type van Dossier)  

xls

Antwoord : Verwijder rijen en inhoud

Oops, droevig, in plaats van Duidelijk, zou u ClearContents moeten zetten, kon het van uw vraag gezien hebben.

Sub DeleteRows ()
Schemerige lr, I zoals lang
Schemerige ws als Aantekenvel
Vastgesteld ws = ThisWorkbook.Worksheets („TaskTracker“)
lr = ws. Waaier („A65536“). Eind (xlUp). Rij
Voor I = lr - 1 tot 12 Stap -1
    ws. Cellen (I, 1) .EntireRow.Delete
Volgende I
Voor I = 11 tot 7 Stap -1
    ws. Cellen (I, 1) .EntireRow.ClearContents
Volgende I
Sub van het eind