ad hatası

[Ulker memo]

https://dosyam.org/11S7/örnek_tablo.xlsm bu linkteki tabloda bordro sayfasındaki w yani gelir vergisi hücresindeki hatayı düzeltmeye yardımcı olabilirmisiniz.

 

[Mdemir63]

Selamlar

Burada
=YUVARLA(EĞER(Veriler!$C$7="KES";Gelir(S8;T8);0);2)
Gelir derken ne demek istediğiniz anlaşılmıyor

 

[Ulker memo]

Selamlar

Burada
=YUVARLA(EĞER(Veriler!$C$7="KES";Gelir(S8;T8);0);2)
Gelir derken ne demek istediğiniz anlaşılmıyor

Onu bende bilmiyom ama korumalıyken sorun yoktu korumayi acinca ad hatasini veriyor yani korumaliykende getir vardir muhtemelen ozaman sorun olmadan calisiyor makroyla alakali bisey olabilirmi acaba olmazsa diger korumalibolanida ekleyeyim

 

[Ulker memo]

Onu bende bilmiyom ama korumalıyken sorun yoktu korumayi acinca ad hatasini veriyor yani korumaliykende getir vardir muhtemelen ozaman sorun olmadan calisiyor makroyla alakali bisey olabilirmi acaba olmazsa diger korumalibolanida ekleyeyim

Yada gelir yazan kismi kaldirarak ayni sonuc olacak sekilde formul yapsaniz

 

[Ulker memo]

Selamlar

Burada
=YUVARLA(EĞER(Veriler!$C$7="KES";Gelir(S8;T8);0);2)
Gelir derken ne demek istediğiniz anlaşılmıyor

https://dosyam.org/1RU7/asıl.xlsm asıl olanı bu parolayı kaldırınca ad hatasını veriyor

 

[Mdemir63]

Selamlar

Burada Gelir yazan yer Kullanıcı tanımlı fonksiyon oluşturularak yapılmış ve orada hesaplama yapıyor.

Kullanıcı tanımlı fonksiyon

Function Gelir(Sgelen, Matrah As Double)
a = Sheets("Vergi").[D4]
B = Sheets("Vergi").[F4]
c = Sheets("Vergi").[H4]
d = Sheets("Vergi").[J4]
If (Sgelen + Matrah) <= a Then Gelir = Matrah * 0.15
If (Sgelen + Matrah) >= a And Sgelen < a Then Gelir = (Sgelen + Matrah - a) * 0.2 + (a - Sgelen) * 0.15
If Sgelen >= a Then Gelir = Matrah * 0.2
If (Sgelen + Matrah) >= B And Sgelen < B Then Gelir = (Sgelen + Matrah - B) * 0.27 + (B - Sgelen) * 0.2
If Sgelen >= B Then Gelir = Matrah * 0.27
If (Sgelen + Matrah) >= c And Sgelen < c Then Gelir = (Sgelen + Matrah - c) * 0.35 + (c - Sgelen) * 0.27
If Sgelen >= c Then Gelir = Matrah * 0.35
If Sgelen >= d Then Gelir = Matrah * 0.35
End Function

 

[Mdemir63]

Selamlar
Dosyanız içerisinde Vergi Modülü olmadığı için Ad hatası almışsınız.
İlk gönderdiğiniz Dosya
indir

 

[Ulker memo]

Selamlar

Burada Gelir yazan yer Kullanıcı tanımlı fonksiyon oluşturularak yapılmış ve orada hesaplama yapıyor.

Kullanıcı tanımlı fonksiyon

Function Gelir(Sgelen, Matrah As Double)
a = Sheets("Vergi").[D4]
B = Sheets("Vergi").[F4]
c = Sheets("Vergi").[H4]
d = Sheets("Vergi").[J4]
If (Sgelen + Matrah) <= a Then Gelir = Matrah * 0.15
If (Sgelen + Matrah) >= a And Sgelen < a Then Gelir = (Sgelen + Matrah - a) * 0.2 + (a - Sgelen) * 0.15
If Sgelen >= a Then Gelir = Matrah * 0.2
If (Sgelen + Matrah) >= B And Sgelen < B Then Gelir = (Sgelen + Matrah - B) * 0.27 + (B - Sgelen) * 0.2
If Sgelen >= B Then Gelir = Matrah * 0.27
If (Sgelen + Matrah) >= c And Sgelen < c Then Gelir = (Sgelen + Matrah - c) * 0.35 + (c - Sgelen) * 0.27
If Sgelen >= c Then Gelir = Matrah * 0.35
If Sgelen >= d Then Gelir = Matrah * 0.35
End Function

ÇOK TEŞEKÜRLER SAĞOLUN ABİM İKİ GÜNDÜR UĞRAŞIYORDUM.

 

[Mdemir63]

Rica ederim.
İyi çalışmalar