• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

makro kod hatası** lütfen yardım rica ediyorum.

Katılım
24 Aralık 2015
Mesajlar
19
Excel Vers. ve Dili
ofis 2010 türkçe
Arkadaşlar ekteki bordro proğramını çalıştırdığım zaman aşağıdaki gibi hataları veriyor. ve kilitlniyor Lütfen yardım etmenizi rica ediyorum.

"this command will stop the debugger"
"compile error: can't find project or library"

Birkaç altarnetif linki aşağıda yardım ederseniz çok sevinirim.bir kaç gündür cevap bekliyorum yok mu cevap verecek bir arkadaş.

http://s3.dosya.tc/server7/qkv0p5/Ex...i-2.0.xls.html

http://www.dosyaupload.com/bwv


hatanın aşağıdaki kodlardan olduğunu tahmin ediyorum

Function FazlaMesai75(BrutMaas As Currency, CalisilanSaat)
If BrutMaas <= 0 Then BrutMaas = 0
Saat = Val(CalisilanSaat) * 60
Satir = InStr(1, CalisilanSaat, ",")
Dakika = 0
If Satir > 0 Then Dakika = Mid(CalisilanSaat, Satir + 1, 2)
Dakika = Dakika + Saat
If Dakika <= 0 Then Exit Function
If Dakika > 0 Then
BrutMaas = (BrutMaas / 30 / 7.5 / 60) 'Dakika ücreti
FazlaMesai75 = (BrutMaas * Dakika)
FazlaMesai75 = FazlaMesai75 * 1.75 '%75 Mesai
Else
FazlaMesai75 = 0
End If
End Function
Function FazlaMesai100(BrutMaas As Currency, CalisilanSaat)
If BrutMaas <= 0 Then BrutMaas = 0
Saat = Val(CalisilanSaat) * 60
Satir = InStr(1, CalisilanSaat, ",")
Dakika = 0
If Satir > 0 Then Dakika = Mid(CalisilanSaat, Satir + 1, 2)
Dakika = Dakika + Saat
If Dakika <= 0 Then Exit Function
If Dakika > 0 Then
BrutMaas = (BrutMaas / 30 / 7.5 / 60) 'Dakika Ücreti
FazlaMesai100 = (BrutMaas * Dakika)
FazlaMesai100 = FazlaMesai100 * 2 '%100 Mesai
Else
FazlaMesai100 = 0
End If
End Function
 

Ekli dosyalar

Mokrolar bölümünde referanslarla ilgili missing ile başlayanları silin dosyanızı kayıt edip kapatın ve yeniden açın
 
Sayın halit bey makrolar bölümü derken kod görünümünden mi bahsediyorsunuz daha detaylı bilgilendiriseniz sevinirim.
 
Merhaba.
Sayın ÖZDEMİR çevrimdışı.

Konunuza bakmış değilim, Sayın ÖZDEMİR'in bahsettiği alan; VBA ekranında
(ALT+F11 tuşlarına bastığınızda karşınıza gelen, yani kodların bulunduğu ekran)
üst tarafta TOOLS menüsündeki References sanırım.
 

Ekli dosyalar

ömer bey sizede çok teşekkürler.dediğiniz yoldan yaptım.çok sağolun.
 
Geri
Üst