[Excel] rijen tellen die grijs zijn

[Verwijderd]

Hallow, ik heb een excel sheet met ~6000 regels en daarvan zijn er ~1000 grijs gemaakt.
Nu wil ik onderaan een overzicht van alle grijs gemaakte regels krijgen.

welke functie moet ik hiervoor gebruiken ?

ff voor wat meer duidelijkheid:
ik ben bezig met een project voor de BAG (Basisregistratie Adressen en Gebouwen) hier op de gemeente en ik heb een groslijst waar ieder pand met huisnummer en toevoeging in staat. dus voorbeeld:
kerkstraat | 1 | | bla bla | bla bla
kerkstraat | 1 | a | bla bla | bla bla
kerkstraat | 2 | | bla bla | bla bla (deze regel grijs)
kerkstraat | 2 | a | bla bla | bla bla
kerkstraat | 2 | b | bla bla | bla bla
kerkstraat | 2 | A | bla bla | bla bla (deze regel grijs)

en dan x6000

ik heb vervolgens regels grijs gemaakt waarvan bepaald moet worden of deze een uniek huisnummer gaan krijgen ja of nee. deze moeten dan worden opgevoerd in een database (ik bespaar jullie de details)

duidelijk zo ??

[Tukk]

Ik vermoed dat je aan de slag moet met VBA, en dan je per rij kijken wat de kleur van de cell/rij is.
Dan kun je de data meteen in de DB zetten of functie op los laten die de uniekheid bepaalt.

[F_J_K]

Of je er handig aan hebt gedaan om dit met opmaak te doen laat ik even in het midden ( : P ), maar goed: ASAP utilities bevat een selectiemogelijkheid obv. opmaak: www.asap-utilities.com

Maar inderdaad best kans dat je op VBA uitkomt.

[Bolukan]

Klein macrotje dat obv de kleur in een extra kolom een getal zet (bijvoorbeeld kleurcode) en dan een filter erop of sorteren?

[Lustucru]

vba-voorbeeldjes genoeg
Maar wat F_J_K in het midden laat mag imho wel expliciet gezegd worden: je bent niet slim bezig.
Beter kun je in een hulpkolom een tag neerzetten (1,0) waarna Excel alle mogelijkheden biedt om daarop te selecteren, te filteren, tellen, whatever.
En mocht je nu ook die regels grijs willen zien dan is dat ene kwestie van voorwaardelijke opmaak instellen.

Maw met een klein stukje VBA zou je even een hulpkolom kunnen wegschrijven. Zoiets dus:

code:

dim r as range
const grijs=15
For each r in activesheet.range("Z1:Z6000")
       If r.Interior.ColorIndex = grijs then
              r=1
       end if
Next r

of bv

For each r in activesheet.range("Z1:Z6000")
      r=r.Interior.ColorIndex 
Next r

Of jouw grijs 15 is of een andere waarde heeft mag je even zelf uitzoeken

[ Voor 5% gewijzigd door Lustucru op 16-12-2006 13:59 ]

[Bolukan]

Zoiets...

code:

Option Explicit

Public Sub ColorCode()
Dim MyRow As Range
Const CodeKolom As Long = 10 ' Kolom J krijgt het nummer
Const KleurKolom As Long = 1 ' Kolom A heeft de kleur

For Each MyRow In Selection.EntireRow.Rows
   MyRow.Cells(1, CodeKolom).Value = MyRow.Cells(1, KleurKolom).Interior.ColorIndex
Next MyRow

End Sub

Edit: Arghh, net te laat

[ Voor 3% gewijzigd door Bolukan op 16-12-2006 14:03 ]