Çözüldü Personel Mesailerini Puantaja Aktarma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
S

sedat2161

Normal Üye
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sayın hocalarım hayırlı akşamlar.
Ekli dosyamda Mesai penceresindeki personele fazla mesai bilgilerini girdikten sonra aktarmayı ayarlamaya çalıştım ama aktarma yaparken hata alıyorum. Yardımlarınız bekliyorum
 

Ekli dosyalar

Çözüm
Ö
Verdiğim koddaki IF.......END IF arasını şöyle değiştirerek deneyin bakalım.
Forum yazılımımızdan kaynaklı olarak countif yazılamıyor.
Koddaki COUNT kısmını COUNTIF olarak değiştirerek işlem yapın.

VBA: 
You must log in to view content
(10 satır)
Tarihe göre sırala Oylamaya göre sırala
SAAT-PAZAR-BAYRAM verilerinin, AT-AU-AV sütunlarına aktarılacağı başlıklarından anlaşılıyor da,
CUMARTESİ için yazılan değerin hangi sütuna yazılacağı anlaşılmıyor.
 
Oyla 0 Olumsuz oyla
Hocam hayırlı geceler.
Pazar-AU
Bayram -AV
Saat ve Cumartesideki sorunum şu ?
Cumartesi ile saat toplanarak
Saat -AT 11 e yazılacak
Cumartesiyi örnek olarak Yada sizin önereceğiniz bir şekilde (BF hücresine aktardığımızda) aşağıdaki formüle göre yemek gün sayısıda artıyor.
=EĞER(B11="";"";EĞERSAY(I11:AM11;"X")+KAÇINCI(BİLGİ!G3;{0;5;16;24;32;40};1)-1+AV11)
Asıl dosyayı da ekliyorum
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
@Ömer BARAN
Hocam hayırlı akşamlar.
Pazar-AU
Bayram -AV
Saat ve Cumartesideki sorunum şu ?
Cumartesi ile saat toplanarak
Saat -AT 11 e yazılacak
Cumartesiyi örnek olarak Yada sizin önereceğiniz bir şekilde (BF hücresine aktardığımızda) aşağıdaki formüle göre yemek gün sayısıda artıyor.
=EĞER(B11="";"";EĞERSAY(I11:AM11;"X")+KAÇINCI(BİLGİ!G3;{0;5;16;24;32;40};1)-1+AV11)
Asıl dosyayı da ekliyorum
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Formülü filan bırakın.
USERFORMda Cumartesi'nin karşısına ve diğer TEXTBOX lara ne yazıyorsunuz?
X gibi bir karakter mi, 5 gibi bir tamsayı mı, 1,5 gibi ondalık sayı mı yoksa 00:35 gibi saat mi yazıyorsunuz?

Olayı, durum seçeneklerini bilmek lazım, yoksa bilgileri şu sütuna yazdır işleminde bir mesele yok.

Önce yukarıdaki hususu netleştirelim ardından, belirttiğiniz formülden beklentiniz nedir onu açıklarsınız ve o da halledilir.
 
Oyla 0 Olumsuz oyla
@Ömer BARAN
Hocam tüm TEXTBOX lara 5 gibi bir tamsayı yazıyoruz.
Puantaj sayfasına
Pazar-AU
Bayram -AV
Cumartesi ve saat toplamını AT sütunlarına aktarıyoruz.
Formülü daha sonra anlatın dediğiniz için şu an formül ile ilgili bi bilgilendirme yapmıyorum.
 
Oyla 0 Olumsuz oyla
Useformdaki MESAİ kısmındaki CommandButton kodunu şöyle değiştirin.

Şayet hücrede önceden bulunan sayının üstüne ekleme şeklinde işlem yapılacaksa;
mesela AT sütunu için ilgili kod satırını
.Cells(sat + 10, "AT") = Val(TextBox7) + Val(TextBox8)
yerine
.Cells(sat + 10, "AT") = .Cells(sat + 10, "AT") + Val(TextBox7) + Val(TextBox8)
olarak değiştirirsiniz.

VBA: 
You must log in to view content
(20 satır)
 
Oyla 0 Olumsuz oyla
@Ömer BARAN
Hocam şimdilik kayıt yaptı emeğinize sağlık Allah razı olsun.
Hocam formülü buraya tanıtabiliriz.
=EĞER(C11="";"";EĞERSAY(H11:AL11;"X")+KAÇINCI(BF11;{0;5;16;24;32;40};1)-1+AU11)
Kod ile bunu yapabilseydik çok iyi olurdu hocam
 
Oyla 0 Olumsuz oyla
Verdiğim koddaki IF.......END IF arasını şöyle değiştirerek deneyin bakalım.
Forum yazılımımızdan kaynaklı olarak countif yazılamıyor.
Koddaki COUNT kısmını COUNTIF olarak değiştirerek işlem yapın.

VBA: 
You must log in to view content
(12 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Söylediğinizden hiç bir şey anlamadım, "yeni dosya hazırlamak" nedir, ne işe yarar, ne yapınca/olunca hazırlanır vs hiçbir fikrim yok.
Userformda her işlem yaptığınızda sıfırdan hesaplama değil, ÜSTÜNE ekleme şeklinde bir şey istiyorsanız,
so kod düzeltmesindeki
.Cells(sat + 10, "AO") = xsay + kac - 1 + Val(TextBox9)
kısmını
.Cells(sat + 10, "AO") = .Cells(sat + 10, "AO") + xsay + kac - 1 + Val(TextBox9)
olarak değiştirin.

İstediğiniz bu da değilse ve mevcut formül işinizi görüyorsa bırakın formül kalsın ve kodun bir önceki halini kullanın. Başka ne diyebilirim bilemiyorum.
 
Oyla 0 Olumsuz oyla
@Ömer BARAN
Hocam yeni dosya hazırlamakta demek isteğim şu.
- Örneğin Temmuz- Ağustos maaşı yapıldı. yeni bi aya geçeceğim
Personel bilgi sayfasından userformu açtıktan sonra yeni dönem seçiyorum Ağustos-Eylül ve çalışma günü yemekli gün vs. bilgiler geliyor.
Bu yeni yaptığımız formül ile mevcut yemek günleri artıyor tam istediğimiz gibi. Ama yeni dönem hazırladığımızda yemekli gün toplamı gelmiyor.
 
Oyla 0 Olumsuz oyla
Sanırım istediğiniz işlemlerin gerçekleşmesini sağlayacak kodlamaların,
Puantaj sayfasının kod bölümğndeki kod ile devreye giren tumu isimli prosedür içinde olmalıdır.
Benim verdiğim aktarma kodlaması ile ilgili bir şey görmüyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AV5]) Is Nothing Then Exit Sub
Call tumu
End Sub
 
Oyla 0 Olumsuz oyla
@Ömer BARAN
Hocam hayırlı sabahlar mesai kayıt ve diğer sorunlar çözüldü.
Bu işlemleri yaparken kod ile AO sütununa kayıt yapılırken. Daha önceki formül devreden çıktı ve yemekli gün hesaplanmıyor.
Bu nedenle Aktar butonu ile aktarma yaparken puantaj sayfasındaki X ler (yemekli gün) AO da toplanması gerekiyor. Yardımlarınızı bekliyorum.
 
Oyla 0 Olumsuz oyla
Daha evvel de yazmıştım.

Ömer BARAN' Alıntı:
İstediğiniz bu da değilse ve mevcut formül işinizi görüyorsa bırakın formül kalsın ve kodun bir önceki halini kullanın. Başka ne diyebilirim bilemiyorum.
Genişletmek için tıklayın ...

Bence aktarma işleminde sorun/hata kalmadıysa, bu konuyu ÇÖZÜLDÜ olarak işaretleyin ve konu kapansın.

Bu çözümün uygulandığı yeni bir örnek belge üzerinden, yeni ihtiyaç/sorun için
yeterli ve belgeye ilk kez bakanın anlayabileceği şekilde açıklamalarla yeni bir konu açın.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler Daha Fazlası

Konuyu başlatan
S
sedat2161
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
19
Çözüldü
Çözümü Görüntüle
Üst