invoer beperken en kolommen verbergen

[SUVERMO]

kan men de invoer beperken tot Blad2!C10:C39 verminderd met wat er reeds is gebruikt.
is het mogelijk om als de waarde in een gele cel = 0, dan die kolom verbergen

 

[JEC.]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 11 And Target.Column > 1 Then
    If Target.Value = 0 Then
       Target.EntireColumn.Hidden = True
    End If
End If
End Sub

Dit om de kolommen te verbergen

 

[JEC.]

He! inderdaad niet gezien Xd

 

[sylvester-ponte]

deze zou ik ook toevoegen voor als je blad 2 wijzigt en weer terug gaat naar blad 1 (in de code van bald1)

Private Sub Worksheet_Activate()
   For Each c In Range("H11:Y11").Cells
      c.EntireColumn.Hidden = (c.Value = 0)
   Next
End Sub

 

[SUVERMO]

bij mij wilt er niets van werken, waarschijnlijk plak ik de code's op de verkeerde plaatsen.
waar moeten ze geplakt worden, kan iemand dat doen?

 

[sylvester-ponte]

probeer deze eens:

 

[SUVERMO]

prima, voor het verbergen van de kolommen

het beperken van de invoer werkt niet juist.
in C16 kan men
4 ingeven, zou niet mogen omdat 4 reeds gebruikt is in C12
120 ingeven , zou niet mogen omdat 120 niet tot mogelijkheden behoort in Blad2!C10:C39

 

[sylvester-ponte]

deze ? als het getalletje niet kan zet hij de oude waarde terug.

 

[SUVERMO]

prima opgelost door U, waarvoor hartelijk bedankt.

 

[SUVERMO]

het werkt prima, toch nog een vraag voor kolom Y

 

[SUVERMO]

inderdaad, sorry hiervoor
=SOMPRODUCT(E$7:V$7;E13:V13)

 

[SUVERMO]

een foutje
ongeldige invoer kleiner dan 10 geeft problemen
is dit op te lossen?

 

[sylvester-ponte]

er zat een fout in : er moest naar het geheel gezocht worden dus in de zoek functie deze toegevoegd: lookat:=xlWhole

bvb in 106 staat ook een 6 (als je naar 6 zoekt) dat is nu opgelost .

 

[SUVERMO]

Hartelijk bedankt,
uitvoerig getest in verschillende toepassingen en geen problemen.

er zat nog een fout in het vertikaal zoeken in de formule van de kolommen E t.e.m. V
dat is nu opgelost