Textbox da çarpma işlemi

[Mesafe]

Textbox2 ile textbox 3 ü çarparak sonucu textbox4 e para birimi ile birlikte yazmasını sağlayabilirmiyiz.

 

[Murat OSMA]

Deneyiniz...

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(VBA.Left(TextBox2.Value, 1)) Then
        Emre = Right(TextBox2.Value, 5)
        TextBox4.Value = VBA.Left(TextBox2.Value, 1) & TextBox3.Value * Emre
            Else
        TextBox4.Value = TextBox3.Value * TextBox2.Value
        TextBox4.Value = Format(TextBox4.Value, "0,##.#0") & " " & Right(TextBox2.Value, 2)
    End If
End Sub

 

[Mesafe]

Teşekkürler Murat Bey