Soru Ürün Adedine Göre Fiyat Bilgisi

[BerkinAkdeniz]

Arkadaşlar merhaba,

Yapmak istediğim şeyin Excel tablosu ektedir.



https://www.dosyaupload.com/ehzT

İlk tabloda Ürün A ve Ürün B’nin bazı adetlerdeki alım fiyatları görülmektedir. Yani sırasıyla A’nın ilk 4 ürünü 20 TL’den, sonraki 2 ürünü 40 TL’den, sonraki 1 ürünü de 60 TL’den alınmıştır.

Aynı şekilde Ürün B’nin ilk 2 ürünü 30 TL’den, sonraki 1 ürünü 10 TL’den, sonraki 3 ürünü de 70 TL’den alınmıştır.

İstediğim şey sağdaki 2. tabloya ürünün hangi ürün ve kaçıncı sırada olduğunu yazıp o aralıktaki alış fiyatını turuncu alana yazdırmak.

Şimdiden teşekkür ederim.
Değerli bilgilerinizi esirgememeniz ümidiyle.

Saygılarımla.


Tapatalk Pro kullanarak iPhone aracılığıyla gönderildi

 

[Asri]

Bana göre her iki tablo tutarsız gibi geldi.

 

[BerkinAkdeniz]

Bana göre her iki tablo tutarsız gibi geldi.

Aslına tutarsız değil ama belki biraz karışık olmuştur. Özetle.

E2 hücresine 1,2,3 ya da 4 girildiğinde G2 hücresi 20 TL olmalı.
Çünkü A1:C7 tablosunda Ürün A'nın ilk 4 ürünü 20 TL'den alınmış. (C2)

E2 hücresine 5 ya da 6 girildiğinde G2 hücresi 40 TL olmalı.
Çünkü A1:C7 tablosunda Ürün A'nın ilk 4 ürününen sonra alınan 2 ürünü yani 5. ve 6. ürünü 40 TL'den alınmış. (C5)

E2 hücresine 7 girildiğinde G2 hücresi 60 TL olmalı.
Çünkü A1:C7 tablosunda Ürün A'nın alınan son ürünü yani 7. ürünü 60 TL'den alınmış. (C7)

E3'ten E10'a kadar bu kural tekrarlanmalı.
E3 hücresine 1,2,3 ya da 4 girildiğinde G3 hücresi bit üst satırdaki gibi yine 20 TL olmalı.


Umarım anlatabilmişimdir derdimi.

 

[Asri]

Şimdi anlaşıldı

 

[Asri]

Makrolu çözüm, kontrol ediniz.

Sub duzenle()
   sonsatira = Cells(Rows.Count, "A").End(3).Row
   sonsatire = Cells(Rows.Count, "E").End(3).Row
   kolon = 5
   satir = 1
  For j = 2 To sonsatire
     sirae = Cells(j, "E").Value
     urune = Cells(j, "F").Value
     adettopla = 0
   For i = 2 To sonsatira
     uruna = Cells(i, "A").Value
     adeta = Cells(i, "B").Value
     fiyata = Cells(i, "C").Value
     If urune = uruna Then adettopla = adettopla + adeta
   
     If urune = uruna And sirae <= adettopla Then
        Cells(j, "H").Value = fiyata
        Exit For
     End If
   Next i
Next j
End Sub

 

[BerkinAkdeniz]

Makrolu çözüm, kontrol ediniz.

Sub duzenle()
   sonsatira = Cells(Rows.Count, "A").End(3).Row
   sonsatire = Cells(Rows.Count, "E").End(3).Row
   kolon = 5
   satir = 1
  For j = 2 To sonsatire
     sirae = Cells(j, "E").Value
     urune = Cells(j, "F").Value
     adettopla = 0
   For i = 2 To sonsatira
     uruna = Cells(i, "A").Value
     adeta = Cells(i, "B").Value
     fiyata = Cells(i, "C").Value
     If urune = uruna Then adettopla = adettopla + adeta
   
     If urune = uruna And sirae <= adettopla Then
        Cells(j, "H").Value = fiyata
        Exit For
     End If
   Next i
Next j
End Sub

Çok teşekkür ederim ama fonksiyonun mobilde de çalışması gerekiyor, makrosuz bir çözüm üretilebilir mi?

 

[Asri]

Farklı çözüm seçenekleri olabilir.
Formül konusunda uzman arkadaşlar çıkacaktır.