• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

formule

Status
Niet open voor verdere reacties.
lcodee zei:
Je moet wel de originele te lange formules verwijderen.

Als je de code kopieert en dubbelklikt op het blad waar je code wilt hebben moet dit lukken. dus ook op Blad 1

By the way Ik werk met Excel v 11.6 uit office 2003.
Klik om te vergroten...

de originele formules zijn verwijderd.
en als ik dubbelklik op blad 1 krijg ik juist mijn reeds bestaande code te zien.En jouw formule blijft op ThisWorkbook staan.
 
lcodee zei:
Ok.

Welke code heb je op blad1 staan.
Klik om te vergroten...

deze :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("d2"), Target) Is Nothing Then
Range("m2").Select
End If
If Not Intersect(Range("m2"), Target) Is Nothing Then
Range("w2").Select
End If
If Not Intersect(Range("w2"), Target) Is Nothing Then
Range("i3").Select
End If
If Not Intersect(Range("i3"), Target) Is Nothing Then
Range("u3").Select
End If
If Not Intersect(Range("u3"), Target) Is Nothing Then
Range("u4").Select
End If
If Not Intersect(Range("u4"), Target) Is Nothing Then
Range("i4").Select
End If
If Not Intersect(Range("i4"), Target) Is Nothing Then
Range("g6").Select
End If
If Not Intersect(Range("g6"), Target) Is Nothing Then
Range("s6").Select
End If
If Not Intersect(Range("s6"), Target) Is Nothing Then
Range("c10").Select
End If
If Not Intersect(Range("c10"), Target) Is Nothing Then
Range("d14").Select
End If
If Not Intersect(Range("d14"), Target) Is Nothing Then
Range("g14").Select
End If
If Not Intersect(Range("g14"), Target) Is Nothing Then
Range("a16").Select
End If
If Not Intersect(Range("a16"), Target) Is Nothing Then
Range("e16").Select
End If
If Not Intersect(Range("e16"), Target) Is Nothing Then
Range("c26").Select
End If
If Not Intersect(Range("c26"), Target) Is Nothing Then
Range("d30").Select
End If
If Not Intersect(Range("d30"), Target) Is Nothing Then
Range("g30").Select
End If
If Not Intersect(Range("g30"), Target) Is Nothing Then
Range("a32").Select
End If
If Not Intersect(Range("a32"), Target) Is Nothing Then
Range("e32").Select
End If
If Not Intersect(Range("e32"), Target) Is Nothing Then
Range("c42").Select
End If
If Not Intersect(Range("c42"), Target) Is Nothing Then
Range("d46").Select
End If
If Not Intersect(Range("d46"), Target) Is Nothing Then
Range("g46").Select
End If
If Not Intersect(Range("g46"), Target) Is Nothing Then
Range("a48").Select
End If
If Not Intersect(Range("a48"), Target) Is Nothing Then
Range("e48").Select
End If
If Not Intersect(Range("e48"), Target) Is Nothing Then
Range("o9").Select
End If
If Not Intersect(Range("o9"), Target) Is Nothing Then
Range("o10").Select
End If
If Not Intersect(Range("o10"), Target) Is Nothing Then
Range("o11").Select
End If
If Not Intersect(Range("o11"), Target) Is Nothing Then
Range("o13").Select
End If
If Not Intersect(Range("o13"), Target) Is Nothing Then
Range("o14").Select
End If
If Not Intersect(Range("o14"), Target) Is Nothing Then
Range("o15").Select
End If
If Not Intersect(Range("o15"), Target) Is Nothing Then
Range("o17").Select
End If
If Not Intersect(Range("o17"), Target) Is Nothing Then
Range("o19").Select
End If
If Not Intersect(Range("o19"), Target) Is Nothing Then
Range("o20").Select
End If
If Not Intersect(Range("o20"), Target) Is Nothing Then
Range("o21").Select
End If
If Not Intersect(Range("o21"), Target) Is Nothing Then
Range("o25").Select
End If
If Not Intersect(Range("o25"), Target) Is Nothing Then
Range("o26").Select
End If
If Not Intersect(Range("o26"), Target) Is Nothing Then
Range("o27").Select
End If
If Not Intersect(Range("o27"), Target) Is Nothing Then
Range("o29").Select
End If
If Not Intersect(Range("o29"), Target) Is Nothing Then
Range("o30").Select
End If
If Not Intersect(Range("o30"), Target) Is Nothing Then
Range("o31").Select
End If
If Not Intersect(Range("o31"), Target) Is Nothing Then
Range("o33").Select
End If
If Not Intersect(Range("o33"), Target) Is Nothing Then
Range("o35").Select
End If
If Not Intersect(Range("o35"), Target) Is Nothing Then
Range("o36").Select
End If
If Not Intersect(Range("o36"), Target) Is Nothing Then
Range("o37").Select
End If
If Not Intersect(Range("o37"), Target) Is Nothing Then
Range("o41").Select
End If
If Not Intersect(Range("o41"), Target) Is Nothing Then
Range("o42").Select
End If
If Not Intersect(Range("o42"), Target) Is Nothing Then
Range("o43").Select
End If
If Not Intersect(Range("o43"), Target) Is Nothing Then
Range("o45").Select
End If
If Not Intersect(Range("o45"), Target) Is Nothing Then
Range("o46").Select
End If
If Not Intersect(Range("o46"), Target) Is Nothing Then
Range("o47").Select
End If
If Not Intersect(Range("o47"), Target) Is Nothing Then
Range("o49").Select
End If
If Not Intersect(Range("o49"), Target) Is Nothing Then
Range("o51").Select
End If
If Not Intersect(Range("o51"), Target) Is Nothing Then
Range("o52").Select
End If
If Not Intersect(Range("o52"), Target) Is Nothing Then
Range("o53").Select
End If
End Sub
 
Code kopieren.

Goede morgen,

Ok als je die code werkelijk nodig hebt kun je het volgende doen.

Kopieer mijn code tussen private sub en end sub Ga vervolgens naar de code op Blad 1 en zet de cursor voor End sub. Plak daar de code. Compileer de code en probeer het uit.

Bij mij werkt het ( zie het bestand Blad 3)
 

Bijlagen

lcodee zei:
Goede morgen,

Ok als je die code werkelijk nodig hebt kun je het volgende doen.

Kopieer mijn code tussen private sub en end sub Ga vervolgens naar de code op Blad 1 en zet de cursor voor End sub. Plak daar de code. Compileer de code en probeer het uit.

Bij mij werkt het ( zie het bestand Blad 3)
Klik om te vergroten...

jammer genoeg heb ik die code wel nodig omdat ik niet de enige ben die het formulier gebruik en is zodanig opgesteld dat er geen fouten gebeuren met het ingeven van de gegevens.

Heb ik gedaan maar werkt hier niet. Heb vanalles geprobeerd en ik krijg het niet in orde :(
En op een leeg blad werkt het wel , begrijpe wie kan...
 
Aangepaste versie

Hij bleef inderdaad zo nu en dan de boel bedonderen.

Heb de code hier en daar aangepast.

Probeer deze eens.
 

Bijlagen

lcodee zei:
Hij bleef inderdaad zo nu en dan de boel bedonderen.

Heb de code hier en daar aangepast.

Probeer deze eens.
Klik om te vergroten...

Lukt nog steeds niet.
Ik wil je danken voor de tijd en energie die je voor mij opbrengt. Ik zet het bestandje dat bijna zijn definitiefe vorm heeft erbij , misschien ligt het in conflict met het een of ander.
 

Bijlagen

Hoi Thewendigo,

Het kan denk ik ook gewoon als formule, maar dan slimmer:
=ALS(C10=1;1,75)+....
kun je ook schrijven als:
=(C10=1)*1,75+....

Het scheelt niet veel maar net genoeg.

Jeroen
 
jzeedijk zei:
Hoi Thewendigo,

Het kan denk ik ook gewoon als formule, maar dan slimmer:
=ALS(C10=1;1,75)+....
kun je ook schrijven als:
=(C10=1)*1,75+....

Het scheelt niet veel maar net genoeg.

Jeroen
Klik om te vergroten...

En hoe past de rest daar in? En die + hoe gaat dat verder ? Mijn oorsprokelijke vertrok met =ALS daar door kreeg de melding dat ze te lang was. Of mis ergens iets...:confused:
 
Er was inderdaad een conflict.
Als je C3, C19 en C33 uit mijn code vervangt door C10, C26 en C42 heb je een probleem omdat ze reeds in jouw code staan.

Bijgaand vindt je twee versies. De eerste lost bovenstaand probleem en nog wat andere kleine dingen op.

De tweede is een aanpassing aan de Layout met alle aanpassingen uit versie 1

Ik hoop dat het je bevalt
 

Bijlagen

Laatst bewerkt:
lcodee zei:
Er was inderdaad een conflict.
Als je C3, C19 en C33 uit mijn code vervangt door C10, C26 en C42 heb je een probleem omdat ze reeds in jouw code staan.

Bijgaand vindt je twee versies. De eerste lost bovenstaand probleem en nog wat andere kleine dingen op.

De tweede is een aanpassing aan de Layout met alle aanpassingen uit versie 1

Ik hoop dat het je bevalt
Klik om te vergroten...

Thx zl het eens proberen.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan