Textbox skal gange og dividere to texbox i userform
Hej,Jeg har 25 rækker, hvor i hver række er der 2 textbox' der skal ganges/divideres med hinanden, afhængigt af om der står noget i den ene af textbox.
Jeg har prøvet at lave følgende kode, men kan ikke få det til at fungere.
Håber at der er en der kan hjælpe med at finde løsningen, og også gerne en der er smartere, så jeg ikke skal kopiere koden 25 gange :)
NB: Mine 2x 25 textbox hedder det samme, eneste forskel er talværdien til sidst som skifter.
Koden:
Private Sub txtKursR1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtKursR1.Value = "" Then
txtBeløbR1.Value = CDbl(txtBeløbValutaR1.Value)
ElseIf txtKursR1.Value <> "" Then
txtBeløbR1.Value = CDbl(txtBeløbValutaR1.Value) * CDbl(txtKursR1.Value) / CDbl(txtKursR1.Value)
End If
End Sub
Private Sub txtBeløbValutaR1_AfterUpdate()
If txtKursR1.Value = "" Then
txtBeløbR1.Value = CDbl(txtBeløbValutaR1.Value)
ElseIf txtKursR1.Value <> "" Then
txtBeløbR1.Value = CDbl(txtBeløbValutaR1.Value) * CDbl(txtKursR1.Value) / CDbl(txtKursR1.Value)
End If
End Sub