Nestle prim hesaplama tablosu

Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Herkese merhaba,

Öncelikle bu forumda bulunmak bilgi paylaşımına ortak olmaktan çok mutluyum. İyi ki varsınız.

Aşağıda linkini paylaştığım dosyada prim kriterleri var. Burada yapmak istediğim, bir temsilcime verilen hedefleri % yüzdelere göre hangi dilimi hakediyorsa otomatik olarak prim hesaplamalarına getirmesi.

Örn;

Sheet 1 de C5 te Büşra ULUSOY hedefleri, gerçekleşenleri ve %leri var.
Sheet 2 de %lik dilimlerin hakedişini gösteren tablo var. Yani Büşra ULUSOY'un Kahve %97. Buna göre Sheet 2 ye bakacak Kahvede %97 nin hakedişini Sheet1 de E35 e yazacak.

Çalıştığım şirkette bunu manuel yapıyoruz ve inanın hem çok ciddi zaman, hemde bir çok yanlışlığa neden oluyoruz.
http://dosya.co/ki5xo2yh2az5/SATIŞ_TEMSİLCİLERİ_PİRİM_TABLOSU_2017.xlsx.html

Yardımlarınız için teşekkürler.
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Tekrar merhaba,

Konuyu tam olarak anlatamadım mı ? Yoksa böyle bir şey mümkün değil midir ?

Teşekkürler.
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Selocan46 merhaba,

%97 hemen yan sütüna 97 olarak yazmışsın evet. Daha sonra yazdığın formülün tam olarak ne yaptığını anlayamadım.

97 nin karşılığı sayfa 2 de kahve için 440,00 TL. Bu rakamı sayfa1 de E35 hücresine yazmasını istiyorum.
 
Katılım
8 Ağustos 2011
Mesajlar
11
Excel Vers. ve Dili
excel2003 türkçe
Sayın Firefox_37 merhaba
Yanlış anlamadım değilmi zaten sheet 2 de 440 ı hesaplıyorsun sadece bu 440 ı sheet 1 de e5 te göreceksin ?
O zaman sheet1 de e5 e ='GK Prim Kriteri'!H64 çözmüyormu?
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Merhaba tekrar,

Sanırım yanlış anladınız.

%97 'nin karşılığı 440 TL'yi E35 hücresine yazması lazım.
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Arkadaşlar merhaba,

Dosyaya bakan anlatmak istediğimi anlamayan arkadaşlara daha detaylı nasıl yardımcı olabilirim.
Aslında basit bir formül olduğunu düşünüyorum.

Konuyu anlatamadıysam daha detaylı tekrar anlatabilirim.
 

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
Merhaba
GK Prim Kriteri
GT BIS Prim Kriteri
MT Prim Kriteri
MT Prim Kriteri A

bu sayfalardaki verilerin satır ve sutundaki datalar aynı kalmak şartı ile
PRİM HAKEDİŞ TABLOSU bu sayfanın F34:I34 Başlıkları yukarıdaki sayfalardaki D64:D68 Arasındaki başlıklar aynı olmak kayıtı ile aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.
kodu bir modüle kopyalayın

Kod:
Function sonuc(aranan, oran)


sayfa = "GK Prim Kriteri" 'ActiveSheet.Name

If aranan = "" Then
'sonuc = ""
Exit Function
ElseIf oran = "" Then
'sonuc = ""
Exit Function
End If
oran = Val(oran * 100)


bulunan1 = "Kahve"
bulunan2 = "Çikolata"
bulunan3 = "RTD + TOZ"
bulunan4 = "Maggi"
bulunan5 = "Gevrek"


If aranan = bulunan1 Then
sat = 64
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If


If aranan = bulunan2 Then
sat = 65
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If

If aranan = bulunan3 Then
sat = 66
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If

If aranan = bulunan4 Then
sat = 67
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If

If aranan = bulunan5 Then
sat = 67
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If


End Function
kodun kullanılışı
PRİM HAKEDİŞ TABLOSU sayfası E35 Hücresi için
Kod:
=sonuc(E$34;I5)
bu fonksiyonu yazın
F35 Hücresi için

Kod:
=sonuc(F$34;L5)
bunu yazın gerisini siz yaparsınız.
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Halit Bey merhaba,

Kodu bir modüle kopyalayın işlemini nasıl yapacağım. Bu konuda fazla bilgim yok tarif edebilirseniz yapabilirim.

Ç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
klavyede Alt+F11 tuşlarına basınız.
Yukarıdaki menülerden Insert/Module
tıklayın açılan bölüme kodu yapıştırın.

Kodun çalışması için makrolarınız etkin olmalı ve dosyayı farklı kayıt et seçeneğinden Excel Makro etkin çalışma kitabı olarak kayıt yapın
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Halit Bey tekrar merhaba,

Dediğiniz gibi yaptım. E35 ve F35 hüclerine de yazmış olduğunuz formülleri yapıştırdım. Fakat hala 0 gözükmekte. Tam olarak çalıştıramadım mı acaba.

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
Halit Bey tekrar merhaba,

Dediğiniz gibi yaptım. E35 ve F35 hüclerine de yazmış olduğunuz formülleri yapıştırdım. Fakat hala 0 gözükmekte. Tam olarak çalıştıramadım mı acaba.

Teşekkürler.
8 nolu mesajımdaki

Kod:
GK Prim Kriteri
GT BIS Prim Kriteri,
MT Prim Kriteri,
MT Prim Kriteri A
sayfalardaki D64:D68 hücreleri ile PRİM HAKEDİŞ TABLOSU sayfanın F34:I34 hücreleri Başlıkları aynı olacak
bunları yaptınızmı
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Halit Bey tekrar merhaba,

Dediğini gibi de yaptım. Dosya aşağıda ki gibi. 8. mesajdakileri de yaptım. Dosyayı en yalın hale getirdim. Tekrar bir bakalbilir misiniz ?

Linkte ki dosyaya göre C5 hücresinde ki BÜŞRA ULUSOY'un yüzde rakamlarına istinaden GK Prim Kirteri sayfasına bakacak ve aşağıda ki hakedişleri yazacak.
D35e 140 TL
E35e 440 TL
F35e 280 TL
G35e 100 TL
H35e 190 TL
I35e 110 TL yazması gerekiyor. Bu rakamları getirirsek sıkıntı kalmayacak gibi. Bu yüzde oranları her ay değişilik gösterecek.

http://dosya.co/zy9hziahfcy9/SATIŞ_TEMSİLCİLERİ_PİRİM_TABLOSU_2017_MAKRO.xlsm.html

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
Kodun bu bölümü

Kod:
bulunan1 = "[COLOR="Red"]Kahve[/COLOR]"
bulunan2 = "Çikolata"
bulunan3 = "RTD + TOZ"
bulunan4 = "Maggi"
bulunan5 = "Gevrek"
PRİM HAKEDİŞ TABLOSU sayfası E34 hücresinde (KAHVE) bu yazıyor.
GK Prim Kriteri sayfası D5 hücresinde (Kahve) bu yazıyor.


şimdi veri almak için kırmızı yerlerdeki değerler (kelime) aynı olmalı bu değerler aynı ise veri alınacaktır
diğer taraftan

bulunan2 = "Çikolata"
bulunan3 = "RTD + TOZ"
bulunan4 = "Maggi"
bulunan5 = "Gevrek"

mavi yerlerde diğer hücredeki değerlerle aynı olmalı
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Kodun içindeki gibi yaptım başlıkları. Hücre yine 0,00 TL. Makroların çalışması için buton mu yapmalıyım. Kendi otomatikman çalışması mı lazı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
Şimdi fark ettim siz kodu
PRİM HAKEDİŞ TABLOSU sayfası kod bölümüne ve Module1 in kod bölümüne koymuşsunuz
PRİM HAKEDİŞ TABLOSU sayfasındaki kodu silin bir dosyada aynı kod iki kere olmaz ayrıca sayfalarınızdaki satırlardada değişiklik olmuş

Module1 kod sayfasındaki kodu bununla değiştirin

Kod:
Function sonuc(aranan, oran)

sayfa = "[COLOR="Red"]GK Prim Kriteri[/COLOR]" 'ActiveSheet.Name

If aranan = "" Then
'sonuc = ""
Exit Function
ElseIf oran = "" Then
'sonuc = ""
Exit Function
End If
oran = Val(oran * 100)


bulunan1 = "[COLOR="Red"]KAHVE[/COLOR]"
bulunan2 = "[COLOR="red"]Çikolata[/COLOR]"
bulunan3 = "[COLOR="red"]RTD + TOZ[/COLOR]"
bulunan4 = "[COLOR="red"]Maggi[/COLOR]"
bulunan5 = "[COLOR="red"]Gevrek[/COLOR]"


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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If


If aranan = bulunan2 Then
sat = 6
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If

If aranan = bulunan3 Then
sat = 7
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If

If aranan = bulunan4 Then
sat = 8
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If

If aranan = bulunan5 Then
sat = 9
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 <= 130 Then
sonuc = Sheets(sayfa).Cells(sat, 15).Value
End If
End If


End Function
 

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
çikilotanın formülü bu olmalı

F35 HÜCRESİ
Kod:
=sonuc(F$34;L5)
 
Katılım
9 Şubat 2010
Mesajlar
96
Excel Vers. ve Dili
2010
Halit Bey diğer grupların formüllerini ben doldurmak istiyorum.
RTD + TOZ formülü bu mu olmalu =sonuc(G$34;L5) sondaki L5 i neye göre yazıyoruz ?
 

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:
sonuc(G$34;O5)
L5 Hücresi
diğeride
O5 hücresi değilmi

yani ilgili bölümlerin yüzdelik dilimleri
 
Üst