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

Automatische nummering

Status
Niet open voor verdere reacties.
NajKwin

NajKwin

Gebruiker
Lid geworden
24 dec 2015
Berichten
258
Hallo,

Ik heb een werkblad waar als ik in kolom C wat typ in Kolom A automatisch een nummering volgt.

Dit wordt gedaan door de volgende code:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim LastRow As Long
    Dim counter As Long
    LastRow = Range("c" & Rows.Count).End(xlUp).Row
        For counter = 1 To LastRow
        Range("A" & counter).Value = counter
    Next counter
End Sub

Is het mogelijk als in Kolom een duplicaat wordt ingevoerd dat de nummering stopt maar op het moment dat er een niet voorkomend in Komlom C de nummering weer doorgaat waar hij gebleven was.

GR Naj
 

Bijlagen

  • Optellen.xlsb
    12,6 KB · Weergaven: 35
Laatst bewerkt:
Bv.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 if target.column = 3 and target.count = 1 then
  if application.countif(columns(3),target) = 1 then target.offset(,-2)= application.max(columns(1))+ 1
 end if
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan