• 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.

Spin butten met active cel laten werken

Status
Niet open voor verdere reacties.
S

schuurar

Gebruiker
Lid geworden
15 aug 2009
Berichten
392
Beste,

Ik wil een lijst maken met verschillende artikelen en getallen invullen met een spinbutten.
Nu gebruik ik
Code: 
Private Sub SpinButton1_Change()
Selection.Value = SpinButton1.Value
End Sub

Nu wil in in B2 bv het getal 7 hebben. Dan klik in 7 keer op de butten.
Als ik nu in B4 het getal 3 wil hebben dan gaat hij verder waar hij bij B2 gebleven is

Hoe kan ik dit oplossen?
Ik wil in elke cel starten met 0
 
Zo? Anders een voorbeeld documentje,
Code: 
Private Sub SpinButton1_Change()
    If SpinButton1.Value <> Selection.Value Then SpinButton1.Value = Selection.Value
    Selection.Value = SpinButton1.Value
End Sub
 
Laatst bewerkt:
Zo werkt het niet nog.

zie bijlage
 

Bijlagen

  • Spinbutten helpmij.xlsm
    20 KB · Weergaven: 35
Laatst bewerkt door een moderator:
Doe het eens zo:
Code: 
Private Sub SpinButton1_Change()
    Selection.Value = SpinButton1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case "E5", "E7", "E9": SpinButton1.Value = Target.Value
    End Select
End Sub
 
Zo werkt hij wel! Alleen wordt de lijst wel wat langer dan deze.
Moet ik dan voor elke cel die ik wil gebruiken bij de "Case" erbij zetten zo?

Bedankt voor zover!
 
Laatst bewerkt door een moderator:
Inderdaad.
 
Laatst bewerkt:
Iets listiger:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 3 Then SpinButton1.LinkedCell = Target.Offset(, 2).Address
End Sub
 
Dan heb je het niet getest. Al je overige code moet je verwijderen.
 
Wat kan ik fout doen dan?
Heb alles weggehaald en jouw code ingevoerd maar er gebeurt niets dan!
 
Laatst bewerkt door een moderator:
Svp niet quoten.
Je hebt de code waarschijnlijk niet op de goede plaats gezet.

selecteer cel C5, klik op de spinbutton

selecteer cel C7, klik op de spinbutton

selecteer cel C9, klik op de spinbutton
 

Bijlagen

  • __Spinbutton snb.xlsb
    18 KB · Weergaven: 34
Laatst bewerkt:
Omdat mijn voorkeur in dit geval een spinbutton van de formulieren-set zou zijn, hierbij ook nog die/een andere mogelijkheid, klik op een oneven rij in kolom E en dan op de spinbutton
 

Bijlagen

  • Spinbutten helpmij.xlsm
    23,5 KB · Weergaven: 37
Laatst bewerkt:
Oke ik zie wat ik verkeerd deed.
Ik selecteerde niet C5 maar E5 (de cel waar het getal in komt)

Top nu kan ik weer verder!!
Heel erg bedankt.:thumb:
 
Bij een formulieren spinner:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 3 Then SpinButton1.LinkedCell = Target.Offset(, 2).Address
   
   If Target.Column = 3 Then
        x0 = Target.Offset(, 3)
        Spinners(1).LinkedCell = Target.Offset(, 3).Address
        Spinners(1).Value = x0
    End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan