Nestle prim hesaplama tablosu

[firefox_37]

Halit Bey ilgili bölümlerin yüzdelik bölümleri yatay gidiyor. Harflere göre verince Maggi'de tıkandım. Yukarıdan aşağı değil de sağdan sola bakıyor olması lazım yüzdelere.

 

[halit3]

Excel seviyenizi bilmiyorum

şimdi

PRİM HAKEDİŞ TABLOSU sayfasında

yüzdelik dilimler bu hücrelerde değilmi

Kahve için I5 Hücresi ,
Çikolata için L5 Hücresi ,
RTD + TOZ için O5 Hücresi ,
Maggi için R5 Hücresi ,
Gevrek için F5 Hücresi ,

 

[firefox_37]

Halit Bey çok teşekkürler , ben prim kriterleri sayfasına bakıyor sanıyordum.
Şimdi formülleri tüm Satış temsilcilerim için uygulayayım takılırsam eğer utanarak da olsa yardımınızı rica edeceğim.

Gerçekten çok teşekkürler.

 

[halit3]

Formüller (sonuc fonksiyonu) PRİM HAKEDİŞ TABLOSU sayfasına bakıyor.
kod ise
GK Prim Kriteri sayfasına bakıyor.

 

[firefox_37]

Halit Bey tekrar merhaba,

yardımlarınız sayesinde bu ay ki prim hesaplamalarının %90 nını hızlı bir şekilde yaptık.
Fakat ufak tekef düzenlemeler gerekiyor.

%131 ve üstü hakedişi olanları 0.00 TL olarak atıyor. %126 ve üzerinde bir kısıtlama olmasın ve primi son dilimden versin istiyorum.

Bunun için kod düzenle diyerek aşağıda ki gibi değişiklik yaptım fakat düzelmedi. Başka nerede düzeltme yapmam gerekiyor.


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

 

[halit3]

ElseIf oran >= 126 And oran <= 130 Then

yukarıdaki bölümü bulun tam 5 tane olması gerekiyor
aşağıdaki gibi 5 tanesinide yapın

ElseIf oran >= 126 And oran <= [COLOR="Red"]199[/COLOR] Then

 

[firefox_37]

Halit Bey merhaba ,

5 grup içinde yaptım. Fakat yine otomatik getirmedi .

Excelin içinde bi güncelleme yapmama gerek var mı ?

 

[firefox_37]

Pardon Halit Bey ,

Kod görüntüle dediğimde direk o sayfanın içinde açıyor yine. Module1 üzerini çift tıklatıp açılan sayfadaki kodlar üzerinde değişiklik yapınca düzeldi.

 

[halit3]

Excelde Biraz ilerleme sağlamışsınız şimdi Modüle1 deki kodlar kalsın sayfadaki kodları silin

 

[firefox_37]

Aynen Halit bey yazdığınız kodların ne anlama geldiğini kavradım. Sayfadaki kodları sildim.
Halit Bey şöyle bir sorunum var.

%99,5 üstünü %100 gibi görüyor hücrede noktadan sonra haneler kapalı olduğu için fakat prim hakedişinde %99 u veriyor.
Kodlarda yüzdeler düz rakam olarak gidiyor. Bunları 99.5 gibi rakamlara çevirsek çalışır mı ?

 

[halit3]

If aranan = bulunan1 Then
sat = 5
If [COLOR="Red"]oran = 100[/COLOR] 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 [COLOR="red"]<= 99[/COLOR] 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

If oran = 100 Then

bu bölümü aşağıdakiyle değiştir.

If oran >99 And oran <= 100 Then

 

[firefox_37]

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]

Merhaba Halit Bey ,

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

 

[firefox_37]

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Ş_TEMSİLCİLERİ_PİRİM_TABLOSU_2018_MAKRO.xlsm.html

 

[halit3]

Siz bunu formül ile de yapabilirsiniz.

J35 hücresi için

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

 

[firefox_37]

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]

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ışı

=sonuc2(Y5)

 

[firefox_37]

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]

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

kod

Function sonuc2(oran)

sayfa = "GK Prim Kriteri" 'ActiveSheet.Name

If oran = "" Then
Exit Function
End If
oran = Val(oran * [COLOR="Red"]100[/COLOR])
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]

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_SATIŞ_TEMSİLCİLERİ_PİRİM_TABLOSU_2018_MAKRO.xlsm.html