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

Select probleem

Status
Niet open voor verdere reacties.

smapat19

Gebruiker
Lid geworden
3 aug 2006
Berichten
69
Allen,

Ik stuit op het volgend probleem.
Ik heb een teller ingebouwd die bijhoudt hoeveel cellen (in gesorteerde methode) aan elkaar gelijk zijn. Nadat twee opeenvolgende cellen niet gelijk zijn, moeten de bovenste cellen verwijderd worden. Met een makro heb ik dit laatste opgenomen en er staat het volgende:
Range("A1:A5").Select
Range("A5").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

Dit snap ik wel, maar hoe geef ik aan dat er moet geselecteerd worden van A1 tot en met A5, en niet bijv. A1 t/m A7. Hoe geef ik dus aan dat A1 t/m A(Teller) moet geselecteerd worden en dan worden verwijderd?

Alvast bedankt.

Gr,

Amit
 
Code:
Dim l As Long
l = 5
Range("A1:A" & l).Delete Shift:=xlUp

Wigi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan