Listeye kesintileri girme...

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar ekli dosyamda bir adet personel listem var bu liste satır sayısı çeşitlilik gösterebiliyor yani bugün 110 olan personel daha sonra 120 olabiliyor, buna userform1 hazırladım, buna birim veya sicil seçerek 6 çeşit kesintiyi girmek istiyorum. Bu forma uygun kod yazarsanız sevinirim. Teşekkürler.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[Hacı Bayram ÖZKAN]

Sayın abim dosyamda uyguladım eline sağlık çok güzel olmuş, TextBox3 girdiğim rakamları listeme metin olarak kayıt ediyor, buda son kolonda toplama işlemini yapmıyor, bunu sayı olarak kaydetmesi için düzeltir misin. Teşekkür ederim.

 

[muygun]

Merhaba;
Private Sub CommandButton3_Click() 'kaydet butonu
altındaki kodlarda 2 adet;
s1.Cells(i, süt) = TextBox3
Satırları var. Bu satırları;

s1.Cells(i, süt) = TextBox3 *1

Şeklinde düzenleyin.

İyi çalışmalar.

 

[Hacı Bayram ÖZKAN]

Teşekkürler sayın abim; ben yanlış yere yapmışım. Kırmızı yeri yazmıştım.

If OptionButton8.Value = True And ComboBox1 <> "" And süt >= 24 And TextBox3 * 1 <> "" Then 'sicile göre
For i = 2 To s1.Range("B65536").End(xlUp).Row
If ComboBox1 * 1 = s1.Cells(i, "b") * 1 Then

 

[Hacı Bayram ÖZKAN]

Allah razı olsun dua ile kalın