Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Diğer Excel Soruları (http://www.excel.web.tr/forumdisplay.php?f=50)
-   -   Nestle prim hesaplama tablosu (http://www.excel.web.tr/showthread.php?t=169516)

halit3 09-02-2018 14:49

Kod:

If aranan = bulunan1 Then
sat = 5
If oran = 100 Then
sonuc = Sheets(sayfa).Cells(sat, 6).Value
ElseIf oran >= 90 And oran <= 94 Then
sonuc = Sheets(sayfa).Cells(sat, 7).Value
ElseIf oran >= 95 And oran <= 99 Then
sonuc = Sheets(sayfa).Cells(sat, 8).Value
ElseIf oran >= 101 And oran <= 105 Then
sonuc = Sheets(sayfa).Cells(sat, 10).Value
ElseIf oran >= 106 And oran <= 110 Then
sonuc = Sheets(sayfa).Cells(sat, 11).Value
ElseIf oran >= 111 And oran <= 115 Then
sonuc = Sheets(sayfa).Cells(sat, 12).Value
ElseIf oran >= 116 And oran <= 120 Then
sonuc = Sheets(sayfa).Cells(sat, 13).Value
ElseIf oran >= 121 And oran <= 125 Then
sonuc = Sheets(sayfa).Cells(sat, 14).Value
ElseIf oran >= 126 And oran <= 199 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If

kodda 99,5 gibi değerler tanımlı değil ya 100 olacak yada 99 olacak

Kod:

If oran = 100 Then
bu bölümü aşağıdakiyle değiştir.

Kod:

If oran >99 And oran <= 100 Then

firefox_37 15-02-2018 12:12

Halit Bey ,

Adil ÖZER yani C18 satırında ki temsilcimin prim kriterlerini GK Prim Kriterdi değil de GT BIS Prim Kriterine bakarak almasını istiyorum.
Kodda nasıl bir değişiklik yapabiliriz.

Aynı şekilde C20 - C21 satırında ki temsilcileri de MT Prim Kriteri sayfasından , C28 satırında ki temsilci de MT Prim Kriteri A'dan alması lazım.
Bu kişilerin prim hesaplamaları için ayrı sheet mi açmam lazım.

Teşekkürler şimdiden.

firefox_37 26-02-2018 06:50

Merhaba Halit Bey ,

Böyle bir işlem yapmam mümkün müdür acaba ?

firefox_37 13-03-2018 12:39

Halit Bey merhaba ,

Dosyanın son hali linktedir. Yüzdük yüzdük kuyruğuna geldik. Son bir ricam olacak bozuk iade ve tahsilat rakamının otomatik gelmesi için nasıl bir kod yazmalıyız.

Yani "Prim Hakediş Tablosu"nda "V" sütünunda ki 0,34 hedefine bakıp "Y" sütününa bakıp
0,34 altında kalanlar için J35 sütününa 0 TL. 0,34 üstünde kalanlar için -100 TL yazmasını istiyorum.
Bu işlemi yaptıktan sonra tahsilat kısmı için yardımınızı rica edeceğim.
Şimdiden çok teşekkür ederim.
Saygılar.
http://dosya.co/sv5wdma6u57p/1SATIŞ_...AKRO.xlsm.html

halit3 13-03-2018 16:24

Siz bunu formül ile de yapabilirsiniz.

J35 hücresi için

Kod:

=EĞER((V5*10000)<34;0;-100)

firefox_37 14-03-2018 08:26

Halit Bey çok teşekkür ederim. Excel bilgim çok iyi olmadığı için bu gibi konularda eksik kalıyorum.

Son olarak tahsilat yani J35 sütünuna gelecek rakamlar için nasıl bir yol izlemeliyiz.
GT prim kriteri sayfasında Tahsilat performansı var. Buna göre %99-95 te kalanlara -200 , %94-90 altında kalanlara -300 , %89-0 altına -400 yazmasını istiyorum. %100 ve üzerine 0 TL yazacak. Şimdiden çok teşekkür ederim yardımlarınız için.

halit3 15-03-2018 13:01

kod:

Kod:

Function sonuc2(oran)

sayfa = "GK Prim Kriteri" 'ActiveSheet.Name

If oran = "" Then
Exit Function
End If
oran = Val(oran * 10000)

sat = 17

If oran >= 100 Then
sonuc2 = Sheets(sayfa).Cells(sat, 6)
ElseIf oran >= 95 And oran <= 99 Then
sonuc2 = Sheets(sayfa).Cells(sat + 1, 6)
ElseIf oran >= 90 And oran <= 94 Then
sonuc2 = Sheets(sayfa).Cells(sat + 2, 6)
ElseIf oran >= 1 And oran <= 89 Then
sonuc2 = Sheets(sayfa).Cells(sat + 3, 6)
End If

End Function

kodun kullanılışı

Kod:

=sonuc2(Y5)

firefox_37 16-03-2018 10:24

Halit Bey merhaba,
Sanırım yanlış anlattım. Y5 iade sütünu oluyor onu yaptık ve çalışıyor sıkıntı yok.
AH5 hücresine bakacak eğer %100 den büyükse 0 TL yazacak.
AH5 hücresine bakacak eğer %99-95 arası ise -200 TL yazacak. Eğer %94-90 arası ise -300 TL yazacak. Eğer %89 - 1 arası ise -400 yazacak.

GK prim kriteri sayfasında sat = 17 demişsiniz. sat = 18 olması lazım.

Satır 18i diğer kriterler gibi sağa doğru sıralamak daha mı doğru olur.

Teşekkürler tekrar.

halit3 16-03-2018 11:59

Veriler 17 satırdan başlıyor. E17 , F17 Dolu

kod
Kod:

Function sonuc2(oran)

sayfa = "GK Prim Kriteri" 'ActiveSheet.Name

If oran = "" Then
Exit Function
End If
oran = Val(oran * 100)
MsgBox oran
sat = 17

If oran >= 100 Then
sonuc2 = Sheets(sayfa).Cells(sat, 6)
ElseIf oran >= 95 And oran <= 99 Then
sonuc2 = Sheets(sayfa).Cells(sat + 1, 6)
ElseIf oran >= 90 And oran <= 94 Then
sonuc2 = Sheets(sayfa).Cells(sat + 2, 6)
ElseIf oran >= 1 And oran <= 89 Then
sonuc2 = Sheets(sayfa).Cells(sat + 3, 6)
End If

End Function


firefox_37 16-03-2018 12:17

Halit Bey merhaba ,

Linkte ki dosya da GK prim kriteri sayfasında bir değişiklik yaptım. Satır 18 e bakıp sağa doğru olan kriterlere göre kod yazarsak sanırım daha iyi olacak.

http://dosya.co/v3n03g6cu1l7/SON_SAT...AKRO.xlsm.html


Saat 16:03

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.