Verileri birden çok kritere göre işleme transfer etme

[cexen]

ekte gönderdiğim dosyanın içerisindeki bina isimli sayfada varolan okul ve kullanım alanlarını sayfa adlı sayfadaki tabloya taşımak istiyorum. ancak bir türlü başaramadım. elle yazmak çok uzun sürüyor denemediğim formül kalmadı


bina bilgileri isimli sayfadaki sayıları sayfa1 de uygun yerlere nasıl taşıyabilirim. bunun için nasıl bir mantıksal sınama yapmam lazım. bir türlü yazamadım formülünü yada makrosunu yardımcı olursanız sevinirim

 

[Ali]

Formüllede olur ama KTF ile daha kolay adapte edebilirsiniz.

Alt+F11 ile VBE düzenleyici açınız.Insert/Module kısmında bir modül ekleyip

Function IkiliDusey(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 IkiliDusey = rng(1, sutun)
 Next rng
End Function

kodlarını ekleyiniz.

Sayfa1'in E3 hücresine

=IkiliDusey('Bina Bilgileri (2)'!$D$6:$E$1620;$D3;E$2;3)

yazıp sağa ve aşağı doğru çekerek tablonuzu doldurunuz.

Daha geniş bilgi için aşağıdaki linki inceleyiniz.

Fonksiyonla Çoklu Düşeyarama

.

 

[cexen]

Formüllede olur ama KTF ile daha kolay adapte edebilirsiniz.

Alt+F11 ile VBE düzenleyici açınız.Insert/Module kısmında bir modül ekleyip

Function IkiliDusey(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 IkiliDusey = rng(1, sutun)
 Next rng
End Function

kodlarını ekleyiniz.

Sayfa1'in E3 hücresine

=IkiliDusey('Bina Bilgileri (2)'!$D$6:$E$1620;$D3;E$2;3)

yazıp sağa ve aşağı doğru çekerek tablonuzu doldurunuz.

Daha geniş bilgi için aşağıdaki linki inceleyiniz.

Fonksiyonla Çoklu Düşeyarama

.

abi ya ne diyeyim bilmem ki çok tşk ederim .. o kadar makbule geçti ki sorma vallahi tanıdık olsak bi yemek ısmarlardım vallahi çok işime yarayacak bilgiler

tekrar çok teşekkür ediyorum

saygılar

 

[Ali]

Rica ederim,işinize yaramasına sevindim.