Uitsluiten van waarden bij een loop

[PeddyB]

Daar ben ik weer

Ik heb een macro waarbij de waarde van r.Cells(l,n) niet "B.V. , BV, de, het , een" mag zijn
Nu kan ik het deel And Not r.Cells(l, n) = ("B.V.") heel veel gebruiken maar ik wil het wat dynamischer doen zodat ik later nog meer uit te sluiten waarden kan toevoegen.. .. de uit te sluiten waarden staan in een sheet ..

If Len(r.Cells(l, n)) > 2 [U][COLOR="Red"]And Not r.Cells(l, n) = ("B.V.") [/COLOR][/U]Then
   t = r.Cells(l, n)
   If Len(t) > 10 Then
      t = Left(t, 5)
    Else
    t = t
End If

Alvast weer bedankt voor de hulp,

Patrick

 

[Roncancio]

Ik zou de code laten verwijzen naar een bepaald gedeelte van een werkblad waar de uitzonderingen opstaan.

Set Zw = Range("A:A").Find(Cells(l, n), LookIn:=xlValues, lookat:=xlWhole)
If Len(r.Cells(l, n)) > 2 And Zw Is Nothing Then
   t = r.Cells(l, n)
   If Len(t) > 10 Then
      t = Left(t, 5)
    Else
    t = t
End If

De code kijkt of de waarde van r.Cells(l,n) in de A-kolom staat.
Zo niet dan gaat de macro verder in de lus.
Je kunt dus zo de lijst aanvullen op het werkblad zonder dat je in de code hoeft te werken.

Met vriendelijke groet,


Roncancio

 

[PeddyB]

Helemaal Top Roncancio dank je wel