Controle van inhoud in kolom A

[liesje120]

Goede middag


ik heb een bestand met in kolom A de getallen van 2500 tot 4999
hoe kan ik na gaan dat alle getallen voorkomen, dat ik geen vergeten ben en of er dubbele instaan

bedankt voor een reactie

 

[Cobbe]

Zet in kolom B vanaf getal 2 volgende formule:

=ALS(A2-A1<>1;"misser "&A2-1;"")

en trek deze naar beneden door.

Je kan ook deze formule toepassen om direct te zien of er nummers ontbreken en of er dubbels tussen zitten:

=ALS(OF(SOM(ALS(INTERVAL(A:A;A:A)>0;1))-AANTAL(A:A)<>0;RIJ(INDEX(A:A;VERGELIJKEN(MAX(A:A);A:A;0)))-RIJ(INDEX(A:A;VERGELIJKEN(MIN(A:A);A:A;0)))<>MAX(A:A)-MIN(A:A));"missers";"ok")

 

[liesje120]

re

de formule heb ik toegepast en enter gedaan
de kolom A KOMT IN GELE KLEUR VOOR ALLE GETALLEN

Wil dat zeggen dat er geen ontbreken ?

 

[WHER]

Indien je een lijst van de ontbrekende getallen wil (en je beschikt over Excel 2010), zie bijlage.
Maar zo te horen ben je bezig met voorwaardelijke opmaak?

 

[liesje120]

Re

nee heb office 2007

 

[Cobbe]

Heb een en ander in een voorbeeld gestoken.

 

[liesje120]

waar moet ik de formule plaasten en welke cellen moet ik doordtrekken, in kol A waar de getallen staan of in B die leeg is

 

[Cobbe]

Wil je nu niet meewerken of is het echt zo erg?

Als je het over mijn formule hebt moet je die in kolom B zetten.

Maar waarom post je je bestand niet dan wordt een en ander er in gezet.

 

[liesje120]

na het uit voeren van de formule komt in kolom B MISSING-24308 omdat de 24307 er wel in staat
maar 24302 24303 24304 24305 en 24306 staan ook niet in de file , dat ziet de formule niet

 

[Cobbe]

Kom je hier dan verder mee?

Sub cobbe()
 Range("E5:F100").ClearContents
 getal = 2500
 For i = 1 To 2500
 If WorksheetFunction.CountIf(Range("A1:A2500"), getal) = 0 Then
    Range("E" & Range("E" & Rows.Count).End(xlUp).Row + 1) = getal
  End If
 If WorksheetFunction.CountIf(Range("A1:A2500"), getal) > 1 Then
    Range("F" & Range("F" & Rows.Count).End(xlUp).Row + 1) = getal
 End If
 getal = getal + 1
 Next
End Sub

Als het dit is kan de code nog gefatsoeneerd(!) worden.

 

[liesje120]

Waar moet ik die code zetten en hoe uitvoeren alstubleif

 

[Cobbe]

De code staat er toch al in.
Werkt het of werkt het niet?

 

[liesje120]

Het werkt !!!
heb nu nog een factuurlijste met opvolgende nummer in A die ik ok wil na zien
kan dat met dezellde macro (getallen 10000 tot 35000) of moet ik iets aanpassen

 

[Cobbe]

Neem dan deze macro indien de waarden in kolom A staan:

Sub cobbe()
  Range("E5:F" & Range("E" & Rows.Count).End(xlUp).Row + 1).ClearContents
   begingetal = WorksheetFunction.Min(Range("A:A"))
    eindgetal = WorksheetFunction.Max(Range("A:A"))
     beginrij = Range("A:A").Find(begingetal).Row
      eindrij = Range("A:A").Find(eindgetal).Row
controlegetal = begingetal
 For Each cl In Range("A" & beginrij & ":A" & eindrij)
   If WorksheetFunction.CountIf(Range("A" & beginrij & ":A" & eindrij), controlegetal) = 0 Then
      Range("E" & Range("E" & Rows.Count).End(xlUp).Row + 1) = controlegetal
   End If
   If WorksheetFunction.CountIf(Range("A" & beginrij & ":A" & eindrij), controlegetal) > 1 Then
      Range("F" & Range("F" & Rows.Count).End(xlUp).Row + 1) = controlegetal
   End If
controlegetal = controlegetal + 1
 Next
End Sub

 

[liesje120]

ik ben zeer goed en degelijk geholpen. dank u wel.