eğer li formülün vba da yazılışı

[sgultegin]

Benim sorum şu userform üzerinde iki tane textbox var

textbox1
textbox2
textbox3

texttbox2 in içinde olacak değer
textbox1 in içinde değer yoksa yani boşsa boş,textbox1 in içinde rakam var ise textboxin değeri ile çarpsın

yani textbox2=eğer(textbox1="";"";eğer(textbox1<>"";textbox1*textbox3))
bu formülü vba da karşılığı nedir

 

[İhsan Tank]

Benim sorum şu userform üzerinde iki tane textbox var

textbox1
textbox2
textbox3

texttbox2 in içinde olacak değer
textbox1 in içinde değer yoksa yani boşsa boş,textbox1 in içinde rakam var ise textboxin değeri ile çarpsın

yani textbox2=eğer(textbox1="";"";eğer(textbox1<>"";textbox1*textbox3))
bu formülü vba da karşılığı nedir

merhaba
userform'un kod bölümüne uygulayın

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts, kaplan
ts = TextBox1.Text
kaplan = TextBox3.Text
If ts <> "" Then
TextBox2 = ts * kaplan
End If
End Sub