İki ayrı değişkene göre bir düşeyara formülü yazabilirmiyim

[grikurt]

selam arkadaşlar iki ayrı değişkene göre bir düşeyara formülü yazmaya çalışıyorum ekte bir örnek vermeye çalıştım, nasıl bir formül yazmam gerektiği konusunda bana yardımcı olabilirmisiniz lütfen.

 

[Ali]

Aşağıdaki linki inceyiniz.

http://www.excel.web.tr/showthread.php?t=23185

 

[ileriexcel]

G 14 HÜcresİne Yazilacak FormÜl
=+eĞer(eĞersay(b6:b9;d14);dÜŞeyara(d14;b6:c9;2;0))

 

[Ali]

Diğer alternatifler ise;

1) Kullanıcı tanımlı fonksiyon ile olabilir

Function ikiliDuseyara(alan As Range, deger1 As String, deger2 As String, sutun As Byte) 'As String
Dim rng As Range
For Each rng In alan
On Error Resume Next
If deger1 = rng And deger2 = rng(1, 2) Then ikiliDuseyara = rng(1, sutun)
Next rng
End Function

Bunu bir modüle ekledikten sonra

G14 hücrenize

=ikiliDuseyara(A6:C9;A14;D14;3)

yazabilirsiniz.

2) G14 hücrenize

=İNDİS($C$6:$C$9;KAÇINCI(1;EĞER($A$6:$A$9=A14;EĞER($B$6:$B$9=D14;1));0))

yazıp direk entere basmadan CTRL+SHIFT+ENTER tuşlarına basarak dizi formülü oluşturabilirsiniz.

3) G14 hücrenize

=İNDİS(C6:C9;TOPLA.ÇARPIM((KAÇINCI(A14&"@"&D14;A6:A9&"@"&B6:B9;0))))

yazabilirsiniz.

4) D6 hücrenize =A6&"#"&B6 yazıp D9 hücresine kadar çekiniz.

G14 hücrenize

=İNDİS(C6:C9;KAÇINCI(A14&"#"&D14;D6:D9;0);1)

yazabilirsiniz.

5) D6 hücrenize =A6&"#"&B6 yazıp D9 hücresine kadar çekiniz.

G14 hücrenize

=ARA(A14&"#"&D14;D6:D9;C6:C9)

yazabilirsiniz.

 

[a.akyurek]

Diğer alternatifler ise;

1) Kullanıcı tanımlı fonksiyon ile olabilir

Function ikiliDuseyara(alan As Range, deger1 As String, deger2 As String, sutun As Byte) 'As String
Dim rng As Range
For Each rng In alan
On Error Resume Next
If deger1 = rng And deger2 = rng(1, 2) Then ikiliDuseyara = rng(1, sutun)
Next rng
End Function

Bunu bir modüle ekledikten sonra

G14 hücrenize

=ikiliDuseyara(A6:C9;A14;D14;3)

yazabilirsiniz.

2) G14 hücrenize

=İNDİS($C$6:$C$9;KAÇINCI(1;EĞER($A$6:$A$9=A14;EĞER($B$6:$B$9=D14;1));0))

yazıp direk entere basmadan CTRL+SHIFT+ENTER tuşlarına basarak dizi formülü oluşturabilirsiniz.

3) G14 hücrenize

=İNDİS(C6:C9;TOPLA.ÇARPIM((KAÇINCI(A14&"@"&D14;A6:A9&"@"&B6:B9;0))))

yazabilirsiniz.

3) D6 hücrenize =A6&"#"&B6 yazıp D9 hücresine kadar çekiniz.

G14 hücrenize

=İNDİS(C6:C9;KAÇINCI(A14&"#"&D14;D6:D9;0);1)

yazabilirsiniz.

(3)'üncü seçenekten kaçınmalı. Özellikle sözkonusu tablo formülle üretilen bir alansa bu seçenek toplama yaparak yanlış sonuç vermek zorunda kalır.

 

[Ali]

Arkadaş metin alanında iki tip verim var deyince bu seçeneğide ekledim.

 

[Merhum İdris SERDAR]

selam arkadaşlar iki ayrı değişkene göre bir düşeyara formülü yazmaya çalışıyorum ekte bir örnek vermeye çalıştım, nasıl bir formül yazmam gerektiği konusunda bana yardımcı olabilirmisiniz lütfen.

=TOPLA.ÇARPIM(--(A6:A9=A14);--(B6:B9=D14);--(C6:C9))

=VSEÇTOPLA(A5:C9;3;A13:I14)

=VAL(A5:C9;3;A13:I14)


..

 

[grikurt]

verdiğiniz bilgiler ve örnekler için çok teşekkür ederim arkadaşlar
elinize sağlık

 

[grikurt]

Arkadaşlar sizlerin sayesinde hazırlamış olduğum fiyat listesi dosyasını buraya ekliyorum umarım ihtiyaç duyanların işine yarar.

not: winrar ile sıkıştırdım

küçük birşey daha sormak istiyorum
yine bunu renkli geometrik şekiller örneğini kullanarak anlatmaya çalışacağım
satışını yaptığım kare şeklinden elimde kırmızı ve mavi olmak üzere iki adet, ürün olduğunu düşünelim, yazdığımız düşeyara formülü ile geometrik şekli ve rengini yazıp fiyatını soru ekranında görebilliyoruz (KARE : KIRMIZI = 10)

bu sorgu ekranının bir köşesinde KARE ürününün listede bulunan diğer renklerinin de gösterilmesi mümkün mü acaba öyleki sorguyu yapan kişi aradığı rengin haricinde hangi renklerin de stokta olduğunu görebilirmi?

bu sorunun çözümüne yönelik sizin verdiğiniz örnekler üzerinden giderek bazı denemeler yapıyorum
ama iş ilgili ürünün bütün renklerini sıralamaya gelince tıkanıyorum...

selamlar

 

[murat_5244]

1) Kullanıcı tanımlı fonksiyon ile olabilir


Function ikiliDuseyara(alan As Range, deger1 As String, deger2 As String, sutun As Byte) 'As String
Dim rng As Range
For Each rng In alan
On Error Resume Next
If deger1 = rng And deger2 = rng(1, 2) Then ikiliDuseyara = rng(1, sutun)
Next rng
End Function
Bunu bir modüle ekledikten sonra

Burada ne yapılmış türkçe anlatablir misiniz?
excelde çok iyi değilim ona göre anlatabilirseniz memnun olurum.
türkçe excel kullanıyorum.