• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Puantajdan Bordroya aktarma yaparken kod sorunu.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

talip21

Gold Üye
Katılım
15 Nis 2021
Mesajlar
696
Çözümler
7
Aldığı beğeni
198
Excel V
Office 2019 TR
Gold Bitiş
12 Kasım 2025
Konu Sahibi
Hayırlı sabahlar sayın hocalarım.
Ekli dosyamda Personel bilgi dosyasında buton ile açılan userform da Bordro ve puantaja aktar butonuna bastığımda puantajda bordro sayfasına bilgiler aktarılmaktadır. Ama yıpranma kodunda bir sorun oluyor. Yaptığım denemelerde puantaj sayfasındaki formül ile bir bağlantılı hata var düşünüyorum. Ama diğer hücrelerde de formül var. Onlarda sorun çıkmıyor. Onlardan formül yıpranma hücrelerine yazıyorum. Sorun çıkmıyor. Yardımlarınızı bekliyorum.
 
Çözüm
Merhaba

Formülün boş yanıt dönmesi hesaplama hatasına neden oluyor. AR ve AS sütunlarında bulunan formüllerde gösterdiğim gibi "0" olarak düzeltirseniz program hata vermiyor.

1690813181091.png
Merhaba

Formülün boş yanıt dönmesi hesaplama hatasına neden oluyor. AR ve AS sütunlarında bulunan formüllerde gösterdiğim gibi "0" olarak düzeltirseniz program hata vermiyor.

1690813181091.png
 
Çözüm
Konu Sahibi
Merhaba

Formülün boş yanıt dönmesi hesaplama hatasına neden oluyor. AR ve AS sütunlarında bulunan formüllerde gösterdiğim gibi "0" olarak düzeltirseniz program hata vermiyor.

Ekli dosyayı görüntüle 18954
Ahmet hocam merhaba. Hocam formülü denedim kod çalıştı. Allah razı olsun emeğinize sağlık. Teşekkür ederim.
 
Konu Sahibi
Ayrıca bir hocamda aşağıdaki kodları denememi istedi oda oldu.
Userformda hatayı düzeltmek için.
"puantajdan_bordroya_aktar" isimli makroda
şu satır düzeltmesini yap ve dene
S1.Cells(sat_nO + 2, "D") = CDbl((vrT(i, 49) + vrT(i, 50))) 'izin+rapor
If vrT(i, 43) = "" Then vrT(i, 43) = 0 ' araya eklenecek
If vrT(i, 44) = "" Then vrT(i, 44) = 0 'araya eklenecek
S1.Cells(sat_nO + 3, "D") = CDbl((vrT(i, 43) + vrT(i, 44))) 'yıpranma günü
 
Konu Sahibi
Allah tüm hocalarımızdan razı olsun. Hepsi elinden geleni yapıyor. İyi ki varsınız sayın hocalarım.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst