Çıkarma İşlemi Hk.

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Aşağıdaki kırmızı renkli kod ile eğer textbox3 ün değeri textbox5 in değerinden büyük ise Textbox3, textbox5 in değerini alsın istiyorum. Yanlış sonuç veriyor. Örnek dosyayı da ekledim.

Form üzerinden combobax1 den borçlu kişi adı seçilip, sırasıyla Combobox2 den borçlu olduğu icra dairesi, Combobox3 den karar yılı, Combobox4 den de karar sayısı seçiliyor. Kaydet butonuna basınca Textbox3 deki tutarı toplam borçtan düşüyor. Toplam tutar eksiliyor. Son taksit (Aylık ödenen tutar) Textbox5 in tutarından (Kalan borç) az ise Textbox5 deki tutarı Textbox3 e aktarması gerekiyor. Nerede yanlışlık var bakabilir misiniz. Yardımcı olursanız sevinirim.

Her ay için kesinti kaydeldiğinde formun kapatılıp yeniden açılması gerekiyor.

If TextBox3.Value > TextBox5.Value Then
TextBox3.Value = TextBox5.Value
ElseIf TextBox3.Value < TextBox5.Value Then
TextBox3.Value = TextBox3.Value
End If
ActiveCell.Offset(0, 7).Value = ActiveCell.Offset(0, 7).Value + TextBox3.Value
ActiveCell.Offset(0, 8).Value = ActiveCell.Offset(0, 8).Value - TextBox3.Value

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop

ActiveCell.Offset(0, 0).Value = TextBox3.Value
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value

 

[dEdE]

Merhaba,
Textbox, adı üzerinde metin kutusudur. Metinler rakamlardan oluşsa bile, metinler üzerinde matematiksel işlem yapamayız.
Bunun için ; If TextBox3.Value > TextBox5.Value Then satırını If Val(TextBox3.Value) > Val(TextBox5.Value) Then şeklinde denemelisiniz. Diğer satırlarda da aynısı yapılmalıdır.

MS Excel: How to use the VAL Function (VBA)

This Excel tutorial explains how to use the Excel VAL function with syntax and examples. The Microsoft Excel VAL function accepts a string as input and returns the numbers found in that string.

www-techonthenet-com.translate.goog

 

[ahmed_ummu]

Merhaba,
Textbox, adı üzerinde metin kutusudur. Metinler rakamlardan oluşsa bile, metinler üzerinde matematiksel işlem yapamayız.
Bunun için ; If TextBox3.Value > TextBox5.Value Then satırını If Val(TextBox3.Value) > Val(TextBox5.Value) Then şeklinde denemelisiniz. Diğer satırlarda da aynısı yapılmalıdır.

MS Excel: How to use the VAL Function (VBA)

This Excel tutorial explains how to use the Excel VAL function with syntax and examples. The Microsoft Excel VAL function accepts a string as input and returns the numbers found in that string.

www-techonthenet-com.translate.goog

Çok teşekkürler sayın dEdE. Tutarları sayfadan alıyordu, Düzeldi.