maaş programında kalan miktarın gösterilmesi

[yakupaltun]

arkadaşlar maaş programını ile bir soru sorarken bir arkadaş maaş işlemlerine maaş ve kalan miktarıda göstersen iyi olur dedi fakat maaşı gösteriyorum ama kalan miktarı nasıl göstericem onu bilemiyorum örnek atıyorum ilgilenirseniz sevinirim

 

[ynmcan]

Syn. yakupaltun;
ekteki dosyayı inceleyin.

 

[ynmcan]

Syn. yakupaltun;
macrolu birçözüm.
ekteki dosyayı inceleyin.

 

[yakupaltun]

eline saglık yanlız benim istedigim excellde şifrelenmiş bilgileri form da akşam mesaisi pazar gibi bilgileri girdikçe kalan miktarı gösteren textbox göstersin istiyorum yapmış olduğunuz çalışmayı kaydedince formülü siliyor o bölümden

 

[ynmcan]

eline saglık yanlız benim istedigim excellde şifrelenmiş bilgileri form da akşam mesaisi pazar gibi bilgileri girdikçe kalan miktarı gösteren textbox göstersin istiyorum yapmış olduğunuz çalışmayı kaydedince formülü siliyor o bölümden

Syn. Yakupaltun;
3 nolu mesaj daki örnek dosya makro ile yapılmış bir örnek. Sizin Dediğiniz gibi çalışıyor.

 

[yakupaltun]

ben örnek çalışmayı inceledim ama makro götemedim teşekkür ederim

 

[ynmcan]

Syn. yakupaltun;
ekteki dosyayı inceleyin.
Userforma avans girdikçe kalanı gösteriyor.

 

[yakupaltun]

evet eki inceledim eline sağlık istedigim gibi yanlız nasıl yaptığını yazarsan çünkü diğer bölümlerdede kullanıcam teşekkür ederim

 

[ynmcan]

evet eki inceledim eline sağlık istedigim gibi yanlız nasıl yaptığını yazarsan çünkü diğer bölümlerdede kullanıcam teşekkür ederim

Syn. yakupaltun;
Avans girişi yapılan Textbox' karın her birinin Change olayına
aşağıdali kod satırlarını yazdım.

TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))

Private Sub TextBox6_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub TextBox7_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub TextBox8_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub TextBox9_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub TextBox10_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub TextBox11_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub TextBox12_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub TextBox13_Change()
TextBox15.Value = Val(TextBox14.Value) - (Val(TextBox6.Value) + Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) _
+ Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) + Val(TextBox13.Value))
End Sub
Private Sub UserForm_Initialize()
If ComboBox1.Tag = "Yeni" Then ComboBox1.TopIndex = ComboBox1.ListCount + 1
ComboBox1.RowSource = "Sayfa1!B2:C" & Sheets("Sayfa1").Range("C65536").End(xlUp).Row
End Sub

 

[yakupaltun]

teşekkür ederim şimdi problem hemen üzerlerindeki bölümler exceldeki şifrelenmiş bölümler mesela işe gelmediği gün form'a yazılınca excelde şifrelenmiş bölümden bilgi alıp kalandan düşmesi