Soru Boş kalırsa İçeriği boş yap

[sirkülasyon]

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox13.Value) And TextBox17.Value <> vbNullString Then
        TextBox21.Value = Format(TextBox13.Value * TextBox17.Value, "#,##0.00")
End If
End Sub

Yukarıda ki kod ile textBox17 ye rakam girilince hesaplıyor.
Eğer TextBox17 de ki rakam silinirse TextBox21 de silinmesini nasıl sağlayabilirim?

 

[YUSUF44]

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox13.Value) And TextBox17.Value <> vbNullString Then
    TextBox21.Value = Format(TextBox13.Value * TextBox17.Value, "#,##0.00")
Else
    TextBox21.Clear
End If
End Sub

Şeklinde olabilir.

 

[sirkülasyon]

Yusuf Abi
TextBox21.Clear Kısmında ki .Clear hata veriyor.

 

[YUSUF44]

Textbox21 = ""

ya da

Textbox21.Value = ""

şeklinde olur muhtemelen.