Excel waarden aanpassen

[nielsbl11]

Nieuw probleem

er kan in kolom B2 een waarde "-" voorkomen. Hier kan het programma niets mee omdat hij alleen een "1" of "0" kan lezen. Dus eigenlijk moet een "-" automatisch een 0 worden, maar nu komt het probleem als er een waarde 15 staat moet deze automatisch op 1 worden gezet. en eigenlijk in een andere cel worden geplaatst. want deze 15 geeft de lengte aan en de 1 dat hij het onderdeel wel moet tekenen.

volgens mij is de beste oplossing om :
als er een streepje staat een 0 te plaatsen in bijvoorbeeld cel E6
als er bijvoorbeeld 30 staat een 1 te plaatsen in cel E6

For Each cl In Range("B9:A200").SpecialCells(2)
if cl.Value = - then replace(cl.Value, "-") else (cl.value, "1")

kom ik in de buurt?

 

[huijb]

@nielsb11 wat wil je met die opmerking zeggen?

 

[nielsbl11]

Macro excel

ik heb nu een programma die van een - automatisch een 0 maakt
maar nu moet er als er een getal bijvoorbeeld 15 komt te staan dit automatisch een 1 wordt

 

[huijb]

@nielsb Daar hoef je geen nieuwe vraag voor te stellen dat past heel goed in deze vraag.

 

[nielsbl11]

klopt dacht dat ik deze weg had gegooid maar had alleen me eige abbo om het te volgen opgezegd

 

[nielsbl11]

deze code moet dus eigenlijk aan worden gepast

For Each cl In Range("A9:B200").SpecialCells(2)
cl.Value = Replace(cl.Value, "-", "0")

dus als er een streepje ziet moet hij hier 0 van maken maar als hier een getal staat bijv "15" dan moet hij hier een 1 neerzetten

replace(cl.value, "getal","1")

 

[Roncancio]

For Each cl In Range("A9:B200").SpecialCells(2)
    cl.Value = IIf(IsNumeric(cl.Value), 1, 0)
Next

Met vriendelijke groet,


Roncancio

 

[nielsbl11]

op de een of andere manier doet hij het niet maar volgens mij zit er al een foutje bij mij,


B9:B200 in plaats van A9:B200

maar als ik dit aanpas doet hij het nog niet

 

[nielsbl11]

Volgens mij denk ik veel te moeilijk

het enigste wat er moet gebeuren is, als in B6 een 15 staat moet er in B19 een 1 komen te staan en als B6 een 0 zou zijn er in B19 een 0 komt

nu zou ik de waarden eerst naar een andere cel kopieren daar een 0 of 1 van maken en dan weer kopieren naar de gewenste cel

 

[Roncancio]

Kan je anders een voorbeeldbestand bijsluiten?

Met vriendelijke groet,


Roncancio

 

[huijb]

@nielsbl11 Onnodige quotes verwijderd. Wanneer je direct reageert op een reactie is het niet nodig om dat bericht te quoten. Onnodig quoten heet dat, hetgeen niet gewenst is.

 

[nielsbl11]

If B6= >0 Then B19 =1 else B19=0

 

[Roncancio]

IF(B6>0;1;0)

Met vriendelijke groet,


Ron

 

[nielsbl11]

werkt nog niet kan dit met excel 2003 temaken hebben?

 

[nielsbl11]

oeps if --> als ( nederlands)