Valiedatie werkt niet met getallen, wel met tekst

[jos0707]

In blad Gegevens kolom H worden gegevens bijgevoegd die gekoppeld zijn
met kolomA
In kolom H zou ik eveneens getallen moeten kunnen invullen die dan ook
meegenomen worden in de Validatie op blad Validatie zodat ik die op
blad Selecteren kan selecteren in kolomA
Waarom werkt dit alleen met tekst en niet met getallen????
Alvast bedankt voor je hulp.
Jos
Bekijk bijlage Test21082015werkt niet juist.xlsm

 

[JeanPaul28]

Andere macro gebruikt

 

[jos0707]

Bedankt Jean-Paul.
Maar wanneer ik op het blad gegevens in kolomA iets wijzig zie ik dat niet ik de validatiekeuzelijst verschijnen in het blad Selectie kolomA.
Staat er ergens iets op de verkeerde plaats?
Grts,
Jos

 

[JeanPaul28]

Dat kan ook niet,je zal dan eerst opnieuw in die cel door middel van validatie moeten kiezen.

 

[jos0707]

Dat snap ik maar het gewijzigde getal komt niet voor in de lijst.
Als ik bijvoorbeeld op het blad Gegevens cel A40 wijzig van 200 in 240 en ga dan kijken op het blad selecteren in kolomA staat die 240 niet in de keuzelijst.

 

[snb]

Een rare mix van Excel en VBA.

als de cellen met validatieregels in werkblad 'invoer' in kolom A staan en de lijst met validatiegegevens in werkblad 'gegevens' in kolom A:

In de codemodule van werkblad 'gegevens'

Private Sub Worksheet_Change(ByVal Target As Range)
  if target.column=1 then sheets("invoer").columns(1).specialcells(-4174).modify ,,,"="&columns(1).specialcells(2).address
End Sub

 

[jos0707]

Rare mix van Excel en VBA omdat ik er niet veel van ken...
Ik heb geprobeerd de code toe te voegen maar krijg een foutmelding. Ik heb getracht de code aan te passen maar blijf een fout krijgen.
Ter verduidelijking in kolom A op blad Gegevens staan de gegevens voor de eerste validatie in kolomA op blad Selecteren.
In kolom B op blad Gegevens staan de gegevens van de validatie in kolom B op het blad Selecteren. Deze tweede validatie hangt af van de keuze in kolomA op blad Selecteren
KolomC op blad Selecteren is een vert.zoeken (dat lukt me wel) functie

 

[JeanPaul28]

Test deze eens ,als dit je probleem oplost dan weet ik wat er aan de hand was.

 

[jos0707]

Jean-Paul, bedankt. Dat werkt nu prima.
Ik versta niet waarom hier:

ActiveCell.FormulaR1C1 = "=ISTEXT(RC[-4])&a"
Range("F12").Select
ActiveCell.FormulaR1C1 = "=ISNUMBER(RC[-5])&a"
Range("F13").Select

F12 en F 13 staan
Grts,
Jos

 

[JeanPaul28]

dat mag je verwijderen

 

[JeanPaul28]

zo zelf verwijderd

 

[jos0707]

Dag Jean-Paul,
Dat werkt prima maar om een of ander duistere reden wordt het getal 1 niet meegenomen als ik dat in de lijst zet.
Ik gebruik je codes wel in een ander bestand en dat werkt prima alleen het getal 1 wil niet overgenomen worden in de validatie en dus ook niet in de validatielijst.
Groeten,
Jos

 

[JeanPaul28]

Dat komt omdat je getallen niet gesorteerd zijn, ik heb dat nu voor jou opgelost in de macro,dit bestand in bijlage aangepast zodat het werkt volgens je bijkomende eisen,indien er nog schoonheid foutjes inzitten dan hoor ik het, misschien zijn er andere forum leden die een andere oplossing aanbieden