cel leeg maken als waarde is 0

[johnny1963]

hoe kan ik een cel leeg maken als de waarde in een andere cel >0
zie attechment(bijlage) voor voorbeeld.
het gaat om de waarden als de cel in het groen gedeelte >0 dan moeten de waarden in het roze gedeelte leeg worden (dus de cel moet leeggemaakt worden)waar nu de waarde 0 wordt.
en tevens de cellen naar boven geschuift waar nog een waarde staat

zodat ik het volgende krijg

auto inkoop verkoop voorr.ult. auto voor.pr auto voorr.pr

aa3---300-------0------0-------bb4----400----bb4-----400
bb4---400-------0------400-----dd6----600----dd6-----600
cc5---500-------1------0-------ee7----700----ee7-----700
dd6---600-------0------600
ee7---700-------0------700

alvast bedankt

 

[Demeter]

Kijk eens naar de "Als" functie.

 

[johnny1963]

Mijn vraag heb ik gedeeltelijk opgelost maar ik wil alleen nog de cellen waar nog een waarde staat naar boven schuiven zodat ze onder elkaar staan en de waarden die leeg zijn eronder staan.
hoe dat moet heb ik toch een beetje hulp bij nodig
Heb er een nieuwe bijlage bijgedaan

 

[Cobbe]

Toch iets gemaakt maar dan in VBA.

Cobbe

 

[johnny1963]

Jammer maar ik zie geen verschil ik moet erbij zeggen ik gebuik exel 2000

 

[Cobbe]

Ja ik kan het niet komen voordoen hé.

Het is toch echt zo dat als je de 0 in kolom D wijzigt in 1 of meer de bijhorende code en prijs, rechts verdwijnt.
En de lege regel wordt toch verwijdert.

Ik gebruik ook E2000

Cobbe

 

[johnny1963]

dat klopt zoals je schrijft maar ik zou de regel die verdwijnt dan graag onderaan willen hebben zadat alles onder elkaar staat.
zodat als ik d3 een 1 invul (nu wordt g3 en h3 leeg en moeten nu weer opgevuld worden met g4 en h4.
g4 en h4 moet dan ingevuld worden met g5en h5 enz.. zoat de onderste regel dan leeg is

dus alles moet naar boven schuiven
en dit ook voor als er meerdere regels door elkaar leeg zijn.
dus alles wat beneden een lege cel staat moet omhoog geschuifd worden.
en dat gebeurt bij mij niet.

want kolom G en H zijn eigenlijk maand 1 voor maand 2
moet ik Kolom J en K gebruiken dus daar moet ik hetzelfde doen maar die staan er nog niet in.
Heb er een foto bij gedaan als voorbeeld.
de meerdere regels die je ziet is als ik meerdere auto's inkoop.

 

[Cobbe]

Volgens mij gebruik jij niet mijn toegestuurd bestand.
Want dit doet toch echt wat jij vraagt.
Ik zal het bestand nog eens meesturen onder een andere naam.

Cobbe

 

[johnny1963]

hij doet echt niet wat ik vraag....
sorry voor foto staat een klein foutje op bij H7 en H8 moeten nog de bedragen 700 staan

de code als het goed is in vba die erbij is van jou

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D47")) Is Nothing Then Exit Sub
Range("B3:H7").Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("D3").Select
End Sub

 

[Cobbe]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:D7")) Is Nothing Then Exit Sub
    Range("B3:H7").Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("D3").Select
End Sub

Er stond een foutje in Range("D47") moest zijn Range("D37") maar had enkel invloed op het eerste item.
De volgorde van de codes en prijzen wisselt wel steeds door het sorteren.
Als dat niet is wat je wil, dan jammer, moet ik passen.

Cobbe

 

[johnny1963]

sorry dat ik het zeg maar werkt echt niet. De volorde doet er niet toe
Waarom het bij mij dan niet werkt weet ik niet.

 

[johnny1963]

heb het al moest macro's inschakelen.
:thumb:

 

[Cobbe]

Nu weet ik het echt niet meer .
Het zijn toch enkel de gegevens rechts (kolom G en H) die moeten leeggemaakt worden als in kolom D 1 ingevuld wordt?

Ik voeg nog eens het bestand bij maar nu met screenshots.

Cobbe

 

[johnny1963]

zoals ik al zei ik moest de macro inschakelen nu werkt het perfect.
bedankt voor de medewerking.
groeten John

 

[Wigi]

Zet de vraag maar op opgelost aub.