Userformda Textboxda hesap sorunu

[Sa.NaL]

Merhaba benim excel uzmanı arkadaşlardan ricam: ekte bulunan dosyamda aşağıdaki kod çalışmıyor bakabilirseniz sevinirim.İyi çalışmalar
If UserForm1.TextBox1.Value > 75 And UserForm1.TextBox1.Value < 100 Then
UserForm1.TextBox2.Value = UserForm1.TextBox1.Value - 0.04
End If

 

[dEdE]

Merhaba,
Örnek dosyanızda denedim. Çalışıyor.
Çalışmıyor derken neyi kasdediyorsunuz, açıklarsanız yardımcı olmaya çalışalım.
iyi akşamlar.

 

[Sa.NaL]

textbox2 ye sonucu yazmıyor? command 1 basınca teztbox1den 0.04 çıkarıp sonucu yazması lazım textbox2 ye ama olmuyor

 

[leumruk]

Merhaba,
Aşağıdaki yöntemi kullanabilirsiniz.

Private Sub CommandButton1_Click()
x = Sheets(1).Range("A1").Value
UserForm1.TextBox1.Value = x
If x > 75 And x < 100 Then UserForm1.TextBox2.Value = x - 0.04
End Sub

 

[Sa.NaL]

çok sağolun.iyi çalışmalar

 

[leumruk]

çok sağolun.iyi çalışmalar

Rica ederim.