[Tomz]

Hej,
Mam pytanie czy jest możliwość, aby spin button zmienial swoja wartosc min, max w zaleznosci co wybierze się z listy rozwijanej w danej komorce? Mam z tym problem ponieważ mam do wyboru 2 opcje z listy rozwijanej, która aktualizuje drugą listę rozwijaną (jedna lista jest większa od drugiej). Spin button mam tak ustawiony, że jeśli przekroczy daną wartość max to wraca to wartości 1 i na odwrót. Jak ustawić wartość min i max po wybraniu jednej z dwóch opcji?

Druga sprawa to fajnie jakby po wyborze opcji z listy rozwijanej resetowała się wartość spinbutton.value na 1, próbwałem to zrobić ale ciągle mam wartość 1 wtedy..

Pomocy :)
#vba #excel

[croppz]

@Tomz:

Private Sub ComboBox1_Change()
 If Me.ComboBox1.Value = 1 Then
 Me.SpinButton1.Min = 1
 Me.SpinButton1.Max

[brak_nicku]

Mam pytanie czy jest możliwość, aby spin button zmienial swoja wartosc min, max w zaleznosci co wybierze się z listy rozwijanej w danej komorce?

@Tomz: Jest to możliwe i wyżej masz podane rozwiązanie jeśli "lista rozwijana" i "spin button" to formanty ActiveX. Problem w tym, że "listę rozwijaną" można zrobić co najmniej na 3 sposoby (sprawdzanie poprawności, 2 rodzaje formantów), a "spin button" przynajmniej na 2, zatem pozostaje jeszcze minimum

[Tomz]

@brak_nicku: tak, moja lista rozwijana jest zrobiona przez sprawdzanie poprawności danych chyba zapomnialem o tym wspomniec, a wydaje sie to kluczowe ;)

@croppz: dzięki wielkie! spróbuje jakoś przerobić raport na comoboxa i sprawdzę

[brak_nicku]

tak, moja lista rozwijana jest zrobiona przez sprawdzanie poprawności danych chyba zapomnialem o tym wspomniec, a wydaje sie to kluczowe ;)

@Tomz: W tym wypadku trzeba obsłużyć zdarzenie Change arkusza, np. taki kod wkleić do modułu arkusza w którym są listy:

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error

[Tomz]

@brak_nicku: wkleilem powyzszy kod i resetowanie wartosci spinbuttona do 1 dziala swietnie lecz maxy sie nie zmienialy ale obsluzylem to za pomoca Twojego kodu funkcja if i dziala :) dzieki !

[brak_nicku]

lecz maxy sie nie zmienialy ale obsluzylem to za pomoca Twojego kodu funkcja if i dziala :) dzieki !

@Tomz: bo tam oczywiście zamiast Case 1 itp powinny być wartości z listy rozwijanej, czyli: Case "kapusta":