hulp bij uitbreiding UserForm

[nhojnavslig]

Bekijk bijlage HelpMij_Vraag.xlsmHallo iedereen,
Ik heb een vraag over het bijgevoegde Excelbestand, ik heb dit bestand ongeveer 9 jaar geleden, met (veel) hulp van mensen die destijds actief waren op “WORKSHEET.NL” gemaakt.
Wij gebruiken dit op mijn werk nu al jaren tot volle tevredenheid om het verbruik van grondstoffen te registreren.
Sinds kort is er behoefte aan een verdere opsplitsing van de te registreren gegevens, …
Ik ben hier zelf mee aan de slag gegaan, en heb dit ook (gedeeltelijk) werkend gekregen, echter het is niet precies wat ik voor ogen heb, …

Nu de vraag;
Middels het Userform worden een aantal zaken op de betreffende tabbladen weggeschreven.
Ik heb nu bij “DraadType” 2 OptionButtons toegevoegd, en de bedoeling is dat die actief worden als de keuze in ComboBox3 (Diameter) 6MM of 8MM is (deze diameters kunnen op 2 manieren worden toegepast nl. als dwarsdraad of als langsdraad) de rest van de diameters worden enkel als langsdraad gebruikt.) Dus bij andere diam. Dan 6 of 8 wil ik dat de optionbuttons niet te gebruiken zijn (enabled = False)
Ik hoop dat eea een beetje duidelijk is, tis wel een heel verhaal he, … ?! )

Hopend op een reactie, en met vriendelijke groet
John

 

[SjonR]

zo?

 

[Cobbe]

Of zo:

Private Sub ComboBox3_Change()
 OptionButton1.Visible = ComboBox3.Value = "6MM" Or ComboBox3.Value = "8MM"
 OptionButton2.Visible = ComboBox3.Value = "6MM" Or ComboBox3.Value = "8MM"
End Sub

 

[edmoor]

Of:

Private Sub ComboBox3_Change()
 OptionButton1.Visible = ComboBox3.Value = "6MM" Or ComboBox3.Value = "8MM"
 OptionButton2.Visible = OptionButton1.Visible
End Sub

 

[nhojnavslig]

Hallo SjonR, Cobbe, en edmoor,

Ik moet altijd een beetje "glimlachen" als je hier een vraag stelt, ... ik ben daar dan al een dag of wat mee bezig, (is niet erg hoor, ik vind het ook wel leuk om te doen) en hier krijg je dan na 2 minuten een passende oplossing Geweldig !!! Even kijken welke oplossing ik ga gebruiken !

Hartelijk bedankt !!

John

 

[Jack Nouws]

of

Private Sub ComboBox3_Change()
  Frame4.Visible = ComboBox3.Value = "6MM" Or ComboBox3.Value = "8MM"
End Sub

 

[nhojnavslig]

Heren, toch nog een vervolgvraag,

De Nieuwe toegevoegde OptionButtons moeten "verplicht" worden ingevuld door de gebruiker, ...
Ik had daarin voorzien door onderstaande regels toe te voegen;

 If OptionButton1 = False And OptionButton2 = False Then
            MsgBox "U moet het type draad nog kiezen!"
        Exit Sub
    End If

echter nu klopt dit niet meer omdat deze melding nu ook verschijnt wanneer een andere keuze dan 6MM of 8MM word gemaakt.
hoe pas ik dit nu aan de nieuwe situatie aan, ...?

John

 

[SjonR]

    If OptionButton1.Enabled And OptionButton1 = False And OptionButton2 = False Then
            MsgBox "U moet het type draad nog kiezen!"
        Exit Sub
    End If

of maak van Enabled Visible als je voor die optie hebt gekozen.

 

[Cobbe]

Maak er dit van:

If OptionButton1.Hidden = False Then
    If OptionButton1 = False And OptionButton2 = False Then
            MsgBox "U moet het type draad nog kiezen!"
        Exit Sub
    End If
  End If

 

[Jack Nouws]

foutje in 1e reactie van mij

Private Sub ComboBox3_Change()
  Frame4.Visible = IIf(ComboBox3.Value = "6MM" Or ComboBox3.Value = "8MM", False, True)
End Sub

  If Frame4.Visible = True Then
    If OptionButton1 = False And OptionButton2 = False Then
          MsgBox "U moet het type draad nog kiezen!"
        Exit Sub
    End If
  End If

 

[nhojnavslig]

Heren, allemaal bedankt

alles werkt nu zoals ik het voor ogen had, als wij hiermee weer 9 jaar vooruit kunnen ben ik al gepensioneerd :d:d:d

GRTZ,
John