Aylık Kişi Bazlı Mesai Raporu Hesaplama

  • Konuyu başlatan Konuyu başlatan gicimi
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

gicimi

Kullanıcı
Katılım
26 Haz 2018
Mesajlar
173
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar;

Desktop üzerinde Fazla Mesai / ilgili ayları belirten klasörler yer almaktadır. Ocak,Şubat,Mart... şeklindedir.

Klasör içerisindeki excel sayfaları aynı formattadır. İlgili ayın dosyasının içerisindeki "Rapor" çalışma kitabına o aya ait bilgileri yer alan personellerin "Sicil No ve Adı Soyadı" bilgilerini sayfalarda karşılaştırarak aylık yaptıkları fazla mesai bilgileri hesaplamak istiyorum. Konu hakkında siz değerli üstatların yardımlarını bekliyorum.

Ekteki dosyada fazla mesai formu ve tamamlanmış Rapor dosyası bulunmaktadır.

Klasör içerisindeki dosya sayısı ilgili aya göre 28*30*31 adettir.
Bir dosyada mesai yapan personel sayısı en az 1 kişi en fazla 12 adettir.
 
Veri Aralığını Sürekli ve Otomatik Sıralama
Satıra Belirtilen Kelimeyi Ekleme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhaba,
Örnek dosyanız için aşağıdaki kodu deneyiniz.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(27 satır)
 
Oyla 1 Olumsuz oyla
@ÖmerBey hocam merhaba;
L sütunundaki yazılı Saatlerin yanında 2 “(Saat)”, 5 “(Saat)”yazılı olur ise kodda nasıl bir değişiklik yapmak gerekir.
 
Oyla 0 Olumsuz oyla
gicimi' Alıntı:
L sütunundaki yazılı Saatlerin yanında 2 “(Saat)”, 5 “(Saat)”yazılı olur ise kodda nasıl bir değişiklik yapmak gerekir.
Genişletmek için tıklayın ...
Şunu bir deneyin dz(a, 3) = dz(a, 3) + Replace(say, "“(Saat)”", "")

Metin ifadeleri, hesaplamalarda her daim sorun olacaktır. O sebeple hesaplama yapacağınız durumlarda metin kullanmayınız. Bunun yerine hücre biçimlendirme ile metin gözükmesini sağlayabilirsiniz.
 
Oyla 0 Olumsuz oyla
Hocam L sütundaki (Saat) standart yazı olduğundan dolayı şöyle bir şey yapılabilir mi

(Saat) yazısını L sütunundaki tüm satırlardan silip daha sonra hesaplama yaptırılabilir mi -? Yoksa ben tek tek dosyaları açıp (Saat) silmem gerekecek.
 
Oyla 0 Olumsuz oyla
Şu şekilde yapınca şimdilik halloldu gibi...
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
Eğer saatlerin küsüratlı olma ihtimali varsa kırmızı kısmı şu şekilde düzenleyin. dz(a, 3) = dz(a, 3) + CDbl((Replace(say, "(Saat)", "")))
 
Oyla 0 Olumsuz oyla
@ÖmerBey Hocam eline sağlık. Yarın bir gün toplama işleminde hata vermeye başlar ise, #7 mesajda belirttiğim şekilde de alternatif olması için yardımcı olabilir misiniz.
 
Oyla 0 Olumsuz oyla
Buyurunuz...
İlk koddan tek farkı kırmızı satır.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(28 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt