Code werkt niet!

[BasMan]

Hallo,

In een bezoekerslijst heb ik, in vba, de volgende code staan:

Case "Firma A"
Application.Run "Toegang"

In range (e1:E191)

Dus als een bepaalde firma (Firma A) zich bij mij meldt en deze heeft geen toegang tot het terrein dan wordt de module "Toegang" opgestart.
Dit alleen als ik de firma naam intoest.... maar als deze firma d.m.v. een code verschijnt in de registratie dan werkt hij niet. Hoe dit op te lossen?

Mvg

BasMan

 

[Jan van Asseldonk]

Snap niet helemaal wat je bedoeld.
Ik vermoed dat je de celinhoud leest en die is "Firma A" als je het zelf intikt. Als "Firma A" het gevolg is van een code dan is de celinhoud dus de code.
Je moet de waarde van de code hebben. Deze bijvoorbeeld in een variabele Waarde inlezen.

Zoiets:

Waarde=range("A1").value
Case Waarde
Application.Run etc.......