DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhaba ekteki formulde 5 yıldan fazla kıdemı olanların ızın gununu 20 yerıne 14 alarak topluyor. Bunu nasıl duzeltebılırım . Yardımcı olursanız sevınırım.
Bir yıldan beş yıla kadar (beş yıl dâhil) olanlara 14 günden,
- Beş yıldan fazla on beş yıldan az olanlara 20 günden,
- On beş yıl (dâhil) ve daha fazla olanlara 26 gün
-on sekiz ve daha küçük yaştaki işçilerle elli ve daha yukarı yaştaki işçilere verilecek yıllık ücretli izin süresi 20 gün
=EĞER(VE(J4>=1;J4<5);14;EĞER(VE(J4>=5;J4<15);20;EĞER(J4>=15;26;0)))
mesajlarınızı yenı goruorum cok tesk ederım ama bundan oncekı yıllarıda toplaması lazım orn. 2006 yılında ıse gırıen bırı ıcın 2012 yılına kadar hıc ızın kullanmamıssa 14+14+14+14+14+20=90 gun yzması lazım. bıde yaşı şimdilik bölümü olab sutuna yanı e sutuna yazmıs gıbı dusunerek formulleyebılırmıyız.
sız sanırım bunları elınızle yazdınız ben bunları formul olarak ıstıroum yanı orda 14+14+14+14 gıbı gozukmıycek otomatık topluycak ılk yukledıgım exceldekı gıbı ordakı tek sorun 5 yıldan fazla olanların kıdemını 20 degıl 14 gun olarak topluo ve 50 yasından buyuklerınde yıllık ıznını yıne 14 gun alıyor ben bunun formulunu ıstıorum sızden yardımlarınız ve hızlı donusunuz ıcınde cok tesk edıorum.
Dim i As Integer
For i = 4 To Range("j65536").End(3).Row
If Range("j" & i).Text = 1 Then Range("m" & i).Value = "=14"
If Range("j" & i).Text = 2 Then Range("m" & i).Value = "=14+14"
If Range("j" & i).Text = 3 Then Range("m" & i).Value = "=14+14+14"
If Range("j" & i).Text = 4 Then Range("m" & i).Value = "=14+14+14+14"
If Range("j" & i).Text = 5 Then Range("m" & i).Value = "=14+14+14+14+14"
If Range("j" & i).Text = 6 Then Range("m" & i).Value = "=14+14+14+14+14+20"
If Range("j" & i).Text = 7 Then Range("m" & i).Value = "=14+14+14+14+14+20+20"
If Range("j" & i).Text = 8 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20"
If Range("j" & i).Text = 9 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20"
If Range("j" & i).Text = 10 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20"
If Range("j" & i).Text = 11 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20"
If Range("j" & i).Text = 12 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20"
If Range("j" & i).Text = 13 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20"
If Range("j" & i).Text = 14 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20+20"
If Range("j" & i).Text = 15 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20+20+26"
If Range("j" & i).Text = 16 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20+20+26+26"
If Range("j" & i).Text = 17 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20+20+26+26+26"
If Range("j" & i).Text = 18 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20+20+26+26+26+26"
If Range("j" & i).Text = 19 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20+20+26+26+26+26+26"
If Range("j" & i).Text = 20 Then Range("m" & i).Value = "=14+14+14+14+14+20+20+20+20+20+20+20+20+20+26+26+26+26+26+26"
Next i: i = Empty
end Sub
cevap için teşekkürler...