Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Automatische nummering

  1. #1
    Senior Member
    Geregistreerd
    24 december 2015
    Vraag is opgelost

    Automatische nummering

    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
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door NajKwin : 16 januari 2020 om 14:03

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  3. #3
    Senior Member
    Geregistreerd
    24 december 2015
    Thanks HSV

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren