Aantallen skills

[emields]

zoiets?
licht aangepast

 

[BOUKES]

Helemaal top, bedankt!!

 

[BOUKES]

Vba fout

Als ik een EIGENSCHAP verander in een willekeurig andere ( bijvoorbeeld i.p.v. Medewerker BCO wordt Omloper, komt hier een fout ( ROOD)
WAT KAN IK HIER AAN DOEN?



Sub macro1()
[g2,g4,h3:k500].ClearContents
a = [a1000].End(xlUp).Row
[g2] = a - 1
Application.ScreenUpdating = False

For Each cell In Range("a2:a" & a)
With Range("h3:h" & [h1000].End(xlUp).Row)
Set x = .Find(cell.Value, lookat:=xlWhole)
If Not x Is Nothing Then
With Range("i1:k1")
Set y = .Find(Mid(cell.Offset(, 1), 12, 3))
If Not y Is Nothing Then
If Cells(x.Row, y.Column) = "" Then Cells(x.Row, y.Column) = 1
End If
End With
Else
r = [h500].End(xlUp).Offset(1).Row
[h500].End(xlUp).Offset(1) = cell
With Range("i1:k1")
Set y = .Find(Mid(cell.Offset(, 1), 12, 3))
Cells(r, y.Column) = 1
End With
End If
End With
[g4] = cell.Row - 1

Next
Application.ScreenUpdating = True

End Sub

 

[emields]

er staat nergens in uw lijst oploper dus kan hij het ook niet vinden.

 

[BOUKES]

Fout

Als ik de knop indruk komt de fout
Ik heb alle BCO vervangen door Oploper

 

[emields]

Als je natuurlijk steeds veranderd van tekst moet je ook de zoekfunctie veranderen.
Daarom ook dat er steeds om een representatief voorbeeld gevraagd word.