Çözüldü kullanıcı tanımlı kod hatası çözümü

malatyalı' Alıntı:

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(36 satır)

If yıl >= 2015 And ay >= 6 Then kısmında bir hatam var.
Yıl 2015 çalışıyor ancak 6 kısmı her yıl için 6 ve üstü ayları görüyor.

Yıl 2015 ve ay 2015 yılı için 6 ve üstü ise kod çalışacak 2015 yılı değil ise ay çalışmayacak. Rica etsem yardımcı olabilir misiniz

Genişletmek için tıklayın ...

İlk mesaj eksik olduğu için ikincisini yazmak zorunda kaldım.


If yıl >= 2015 And ay >= 6 Then kısmında bir hatam var.
Yıl 2015 çalışıyor ancak 6 kısmı her yıl için 6 ve üstü ayları görüyor.

Yıl 2015 yılı ve üstü ise ay da 6 ve üstü ise
If ek_gosterge > 0 And ek_gosterge < 2200 Then
Emeklikesoranı = 55
ElseIf ek_gosterge >= 2200 And ek_gosterge < 3600 Then
Emeklikesoranı = 85
ElseIf ek_gosterge >= 3600 And ek_gosterge < 4800 Then
Emeklikesoranı = 145
ElseIf ek_gosterge >= 4800 And ek_gosterge < 6400 Then
Emeklikesoranı = 165
ElseIf ek_gosterge >= 6400 And ek_gosterge < 7600 Then
Emeklikesoranı = 195
ElseIf ek_gosterge >= 7600 And ek_gosterge < 8400 Then
Emeklikesoranı = 215
ElseIf ek_gosterge >= 8400 Then
Emeklikesoranı = 255
End If

Yıl 2015 yılından küçük ise
If ek_gosterge > 0 And ek_gosterge < 2200 Then
Emeklikesoranı = 40
ElseIf ek_gosterge >= 2200 And ek_gosterge < 3600 Then
Emeklikesoranı = 70
ElseIf ek_gosterge >= 3600 And ek_gosterge < 4800 Then
Emeklikesoranı = 130
ElseIf ek_gosterge >= 4800 And ek_gosterge < 6400 Then
Emeklikesoranı = 150
ElseIf ek_gosterge >= 6400 And ek_gosterge < 7600 Then
Emeklikesoranı = 180
ElseIf ek_gosterge >= 7600 And ek_gosterge < 8400 Then
Emeklikesoranı = 200
ElseIf ek_gosterge >= 8400 Then
Emeklikesoranı = 245
End If
şeklinde olması gerekirken bir tuhaf çalışıyor. Acaba hata nerede bakabilir misiniz

Bu konuya çözüm bulabildin mi Hocam ?

Feyzullah abi buldum. Allah razı olsun

malatyalı' Alıntı:

Feyzullah abi buldum. Allah razı olsun

Genişletmek için tıklayın ...

Sonucu yazsaydın bari hocam. İyi çalışmalar.

makro ile hata verdi malumunuz. oranları tabloya yazdım ve yukarıdaki formül ile aldırdım.