Hallo helpers,
Ik heb een bestand met een werkblad 'codes' waarop gegevens worden weggeschreven.
Dat kan per kwartaal gaan tot ruim 6000 regels en dan wordt dit blad gekopieerd naar een nieuw bestand en als backup opgeslagen.
Dat lukt allemaal wel.
Maar vervolgens moeten de gegevens van dit blad gewist worden.
Daarvoor moeten regel 5 tot en met de laatste regel verwijderd worden (of leeggemaakt)
Met mijn code krijg nu wel een vast aantal regels geselecteerd en verwijderd, maar het lukt me niet om van regel 5 tot en met de laatste gevulde regel te selecteren.
Daarbij vind ik het ook raar dat mijn variabele 'totalrows' de waarde 57 krijgt en niet 56 of eigenlijk nog minder in verband met die paar lege regels bovenaan).
In ieder geval is 57 als uitkomst prima, want daarmee worden de gegevens gewist.
Het is waarschijnlijk iets simpels maar ik krijg het niet voor elkaar.
Zou iemand het laatste zetje willen geven?
Alvast bedankt voor jullie hulp
Ger
Bekijk bijlage Testbestand.xls
Ik heb een bestand met een werkblad 'codes' waarop gegevens worden weggeschreven.
Dat kan per kwartaal gaan tot ruim 6000 regels en dan wordt dit blad gekopieerd naar een nieuw bestand en als backup opgeslagen.
Dat lukt allemaal wel.
Maar vervolgens moeten de gegevens van dit blad gewist worden.
Daarvoor moeten regel 5 tot en met de laatste regel verwijderd worden (of leeggemaakt)
Met mijn code krijg nu wel een vast aantal regels geselecteerd en verwijderd, maar het lukt me niet om van regel 5 tot en met de laatste gevulde regel te selecteren.
Daarbij vind ik het ook raar dat mijn variabele 'totalrows' de waarde 57 krijgt en niet 56 of eigenlijk nog minder in verband met die paar lege regels bovenaan).
Code:
Sub NietLegeRegelsVerwijderen()
Dim totalrows As Integer
Sheets("codes").Select
totalrows = ActiveSheet.UsedRange.Rows.Count
Rows("5:8").Select
'Selection.Delete
End Sub
In ieder geval is 57 als uitkomst prima, want daarmee worden de gegevens gewist.
Het is waarschijnlijk iets simpels maar ik krijg het niet voor elkaar.
Zou iemand het laatste zetje willen geven?
Alvast bedankt voor jullie hulp
Ger
Bekijk bijlage Testbestand.xls