ücret listeleme

[zerali]

arkadaşlar benim burada yapmak istediğim şey yazacağımız bir formülle yada makroyla kursa ücret ödeyenlerin ücret sayfasına listelenmesi yardımcı olabilirseniz çok memnun olurum teşekkürler
http://uppy.me/download/e660e782831364a64fd9ca16ea838007.html

 

[muygun]

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

Not: Tablo açılışta hata verecek. Bu ana sayfasında bozulan formüllerle ilgili. (bu sayfadaki formülleri yeniden düzenleyin)

 

[zerali]

çok teşekkürler muygun hocam çok güzel olmuş.

 

[zerali]

muygun hocam proğramı kullanınca bazı hatalar almaya başladım.ücret sayfasında getir dediğimde bir kursa gelen kişi 3 kere bazıları 4 kere yazılı halde geliyor ve bu da toplama etki ediyor.Nasıl düzeltebiliriz acaba

 

[Muhammet Okumuş]

Merhaba alternatif olsun.

Sub Ücret_Topla()
Application.ScreenUpdating = False
Range("A3:R1000") = ""
For i = 3 To 12
Cells(2, i + 2) = Sheets(i).Name
sat = Sheets(i).Cells(Rows.Count, 2).End(3).Row
For j = 3 To sat
Var = WorksheetFunction.Count(Sheets(i).Range("F" & j & ":Z" & j))
If Var = 0 Then GoTo 20

isim = WorksheetFunction.CountIf(Range("C:C"), Sheets(i).Cells(j, 3))

If isim = 0 Then
son = Cells(Rows.Count, 2).End(3).Row + 1
Cells(son, 2) = Sheets(i).Cells(j, 5).Value
Cells(son, 3) = Sheets(i).Cells(j, 3).Value
Cells(son, 4) = Sheets(i).Cells(j, 4).Value
toplam = WorksheetFunction.Sum(Sheets(i).Range(Sheets(i).Cells(j, 6), Sheets(i).Cells(j, 26)))
Cells(son, i + 2) = toplam
Cells(son, 1) = son - 2
GoTo 20
End If


kac = WorksheetFunction.Match(Sheets(i).Cells(j, 3), Range("C:C"), 0)
toplam = WorksheetFunction.Sum(Sheets(i).Range(Sheets(i).Cells(j, 6), Sheets(i).Cells(j, 26)))
Cells(kac, i + 2) = toplam

20
Next
Next
son = Cells(Rows.Count, 2).End(3).Row
Range("O3:O" & son) = "=SUM(E3:N3)"
Range("O3:O" & son) = Range("O3:O" & son).Value
End Sub

 

[zerali]

çok teşekkürler Muhammet Okumuş hocam.muygun hocamın yaptığı proğramda (A82.....A87) arasındaki kişiler A88 den A99 a kadar 2 kere yazılıyor.Toplam hatası ondan kaynaklanıyor.

 

[Muhammet Okumuş]

Kurs sayfalarında H:Z sütunlarına ücret mi yazılıyor?

 

[muygun]

Merhaba;
İsim verilerini kontrol edin (birebir aynı olmalı. Ayrıca verinin sonunda boş karakter falan olmasın.)
Sorun devam ediyorsa sorunlu dosyayı ekleyin tekrar bakalım.
İyi çalışmalar.

 

[zerali]

Kurs sayfalarında H:Z sütunlarına ücret mi yazılıyor?

hayır hocam ücret F sütununa yazılıyor

 

[zerali]

Merhaba;
İsim verilerini kontrol edin (birebir aynı olmalı. Ayrıca verinin sonunda boş karakter falan olmasın.)
Sorun devam ediyorsa sorunlu dosyayı ekleyin tekrar bakalım.
İyi çalışmalar.

muygun hocam kontrolleri yaptım ama hala hata devam ediyor.dosyayı ekliyorum

 

[Muhammet Okumuş]

Merhaba,

Sub Ücret_Topla()
Application.ScreenUpdating = False
Range("A3:Q1000") = ""
For i = 3 To 12
Cells(2, i + 4) = Sheets(i).Name
sat = Sheets(i).Cells(Rows.Count, 2).End(3).Row
For j = 4 To sat
If Sheets(i).Cells(j, 6) = "" Then GoTo 20


tc = WorksheetFunction.CountIf(Range("B:B"), Sheets(i).Cells(j, 2))

If tc = 0 Then
son = Cells(Rows.Count, 2).End(3).Row + 1
Cells(son, 2) = Sheets(i).Cells(j, 2).Value
Cells(son, 3) = Sheets(i).Cells(j, 3).Value
Cells(son, 4) = Sheets(i).Cells(j, 4).Value
Cells(son, 5) = Sheets(i).Cells(j, 5).Value
Cells(son, i + 4) = Sheets(i).Cells(j, 6).Value

Cells(son, 1) = son - 2
GoTo 20
End If


kac = WorksheetFunction.Match(Sheets(i).Cells(j, 3), Range("C:C"), 0)

Cells(kac, i + 4) = Sheets(i).Cells(j, 6).Value

20
Next
Next
son = Cells(Rows.Count, 2).End(3).Row
Range("F3:F" & son) = "=SUM(G3:Q3)"
Range("F3:F" & son) = Range("F3:F" & son).Value
End Sub

Belki isimler aynı olabilir ama TC numaraları aynı olamaz.
Kodu deneyiniz.

 

[zerali]

teşekkürler Muhammet okumuş hocam kod çalıştı

 

[muygun]

Merhaba;
Alternatif olsun.
İyi çalışmalar.

 

[zerali]

teşekkür ederim muygun hocam.Ders (Kurs) eklemek istersem nasıl yapmalıyım.müsait bir zamanda anlatabilirseniz çok memnun olurum.Birde para getirmeyenleri listeleme diye bir şanşımız olabilir mi

 

[Muhammet Okumuş]

Bir tane dosya hazırladım. İnceleyin isterseniz. Eğer uygun derseniz biraz daha düzenleme yapacağım.

 

[zerali]

Muhammet Okumuş Hocam çok güzel kurs ekleme de eklemişsiniz.Birde ücret getirmeyenlerin listesini çıkarabilir miyiz

 

[Muhammet Okumuş]

Merhaba,
Şablon sayfası F sütununa numaraları yazıp, "Numaraya Göre Liste Oluştur" düğmesine basarsanız, listeyi oluşturur.
Kurs adı, sayfa adını oluşturur.
Ders adı B2 hücresi için gereklidir.
Öğrenci sayfası B3 hücresine numara girişi veya B4 hücresi açılır listeden öğrenci izleyebilirsiniz.
E sütununda kurs karşısına ücret yazarak ücret öde düğmesine basarak ücretin aktarılmasını sağlarsınız.
Öğrenci sayfasında para vermeyenler listeniyor.
Dikkat edilmesi gereken Ücret son sayfa olamalıdır. Kurs ile ücret sayfaları arasına ekleme yapmayınız.
Sayfa ekeleyecekseniz, eklediğiniz sayfayı Ücret sayfasınını sol tarafına taşıyınız.

 

[zerali]

Muhammet Okumuş hocam çok teşekkürler güzel bir proğram olmuş elinize sağlık.

 

[muygun]

teşekkür ederim muygun hocam.Ders (Kurs) eklemek istersem nasıl yapmalıyım.müsait bir zamanda anlatabilirseniz çok memnun olurum.Birde para getirmeyenleri listeleme diye bir şanşımız olabilir mi

Merhaba;
Ekteki gibi olabilir.
İyi çalışmalar.

 

[zerali]

muygun hocam çok güzel bir çalışma olmuş yalnız ücret ödeyenler listesinde iki kursa gelen öğrencilerin paralarını toplarken F sütununda sadece bir kurs parasını topluyor o yüzden de F2 deki toplam yanlış çıkıyor.