Yalnız Mesajı Göster
Eski 12-01-2018, 09:53  
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,762
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

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 D6468 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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=sonuc(E$34;I5)
bu fonksiyonu yazın
F35 Hücresi için

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=sonuc(F$34;L5)
bunu yazın gerisini siz yaparsınız.
__________________





Forum Kuralları
Ofis 2003 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104854.html
Ofis 2007 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104852.html
Timer Nesnesinin kurulumu
http://www.excel.web.tr/f167/timer-n...mu-t78713.html
halit3 Çevrimdışı   Alıntı Yaparak Cevapla