Waar haalt de cobobox de gegevens weg

[Niels28]

Die moet je wel op 2 plaatsen veranderen in rudi zijn voorbeeld in A3 en in A16

Niels

 

[Atwist]

Je hebt gelijk Niels.

Ik had alleen naar A16 gekeken omdat ik dacht dat A3 enz. niet meer mee speelde.

 

[Atwist]

# Rudi

Het werkt helemaal perfect:thumb::thumb:

Mijn dank is groot.

#Niels

Jij natuurlijk ook bedankt voor de moeite:thumb:

 

[Warme bakkertje]

Voor wat betreft je omzettingstabel, waarom uitrekenen op je werkblad als je het ook via code rechtstreeks kan doen op je userform ? Hieronder een kleine aanzet.

Private Sub ComboBox1_Change()
If TextBox38 <> "" Then
    Select Case ComboBox1.ListIndex
        Case Is = 1
            TextBox84.Value = TextBox38 / 10
        Case Is = 2
            TextBox84.Value = TextBox38 * 10
        Case Is = 3
            TextBox84.Value = TextBox38 * 1000
    End Select
End If
End Sub

Typ in je textbox de waarde, selecteer in je combobox de omzetting en je krijgt onmiddelijk het resultaat in je onderste textbox.

 

[Atwist]

Rudi

Dank voor je tip heb er even mij gespeeld en dat werkt mooi, dit kende ik nog niet.
Hb weer wat geleerd.

 

[Warme bakkertje]

Moest je ermee verdergaan, de formules met afronden worden in VBA

TextBox84.Value = Round(TextBox38 / 1.36, 2)

 

[Warme bakkertje]

En zo is hij compleet

Private Sub ComboBox1_Change()
If TextBox38 <> "" Then
    Select Case ComboBox1.ListIndex
        Case Is = 1
            TextBox84.Value = TextBox38 / 10
        Case Is = 2
            TextBox84.Value = TextBox38 * 10
        Case Is = 3
            TextBox84.Value = TextBox38 * 1000
        Case Is = 4
            TextBox84.Value = TextBox38 / 1000
        Case Is = 5
            TextBox84.Value = TextBox38 * 0.101971621
        Case Is = 6
            TextBox84.Value = TextBox38 * 9.81
        Case Is = 7
            TextBox84.Value = TextBox38
        Case Is = 8
            TextBox84.Value = TextBox38 * 1000
        Case Is = 9
            TextBox84.Value = TextBox38 * 1.01971621
        Case Is = 10
            TextBox84.Value = TextBox38 * 9.81
        Case Is = 11
            TextBox84.Value = TextBox38 * 0.101971621
        Case Is = 12
            TextBox84.Value = TextBox38 * 9.81
        Case Is = 13
            TextBox84.Value = TextBox38 * 10
        Case Is = 14
            TextBox84.Value = TextBox38 / 10
        Case Is = 15
            TextBox84.Value = Round(TextBox38 / 5.829, 2)
        Case Is = 16
            TextBox84.Value = TextBox38 * 5.829
        Case Is = 17
            TextBox84.Value = Round(TextBox38 / 1.36, 2)
        Case Is = 18
            TextBox84.Value = Round(TextBox38 * 1.36, 2)
    End Select
End If
End Sub

 

[Atwist]

Zo wordt het maken van userforms nog leuker.

Ik ga dit gelijk toepassen op mijn userforms.

Dank je wel Rudi voor deze wijsheid.