Nestle prim hesaplama tablosu

Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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 ,
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Formüller (sonuc fonksiyonu) PRİM HAKEDİŞ TABLOSU sayfasına bakıyor.
kod ise
GK Prim Kriteri sayfasına bakıyor.
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Kod:
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

Kod:
ElseIf oran >= 126 And oran <= [COLOR="Red"]199[/COLOR] Then
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Halit Bey merhaba ,

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

Excelin içinde bi güncelleme yapmama gerek var mı ?
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Excelde Biraz ilerleme sağlamışsınız şimdi Modüle1 deki kodlar kalsın sayfadaki kodları silin
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Kod:
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

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

Kod:
If oran >99 And oran <= 100 Then
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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.
 
Son düzenleme:
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Siz bunu formül ile de yapabilirsiniz.

J35 hücresi için

Kod:
=EĞER((V5*10000)<34;0;-100)
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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)
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,798
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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 * [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
 
Üst