• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ikili düşeyara

  • Konbuyu başlatan Konbuyu başlatan RALKAN
  • Başlangıç tarihi Başlangıç tarihi
R

RALKAN

Katılım
3 Şubat 2007
Mesajlar
309
Excel Vers. ve Dili
excel 2007 / excel 2010
İyi Geceler Arkadaşlar ,

İkili düşeyara ile ilgili ek'te ki dosyada ki hücreye veriyi nasıl getirebilirim yardımcı olmanızı rica ediyorum.
Bu konu ile ilgili sayın espiyonajl'ın cevapladığı dosyada belirttiğim formül de doğrulama için kullandığım >"GIS-1" bu aramada uygun olmadığından yeni bir doğrulama veya farklı bir düşeyara fomülüne ihtiyaç duymaktayım.

Yardımlarınız için teşekkür ederim.
 

Ekli dosyalar

Merhaba,

Ben formüle sadece =EĞER(K2="";""; kısmını eklemiştin sanırım. Diğer kısmı sizin sorunuzdaki formüldü..

Kod: 
=EĞER(I2="";"";EĞER(EHATALIYSA(DÜŞEYARA($I2;$A$2:$B$20;2;0));DÜŞEYARA($I2;$D$2:$E$20;2;0);DÜŞEYARA($I2;$A$2:$B$20;2;0)))

Denermisiniz..

Not: Araçlar / Seçenekler / Hesaplama menüsünden otomatik butonunu işaretleyiniz..

.
 
espiyonajl' Alıntı:
Merhaba,

Ben formüle sadece =EĞER(K2="";""; kısmını eklemiştin sanırım. Diğer kısmı sizin sorunuzdaki formüldü..

Kod: 
=EĞER(I2="";"";EĞER(EHATALIYSA(DÜŞEYARA($I2;$A$2:$B$20;2;0));DÜŞEYARA($I2;$D$2:$E$20;2;0);DÜŞEYARA($I2;$A$2:$B$20;2;0)))

Denermisiniz..

Not: Araçlar / Seçenekler / Hesaplama menüsünden otomatik butonunu işaretleyiniz..

.
Genişletmek için tıkla ...

Hocam sayenizde sorun çözüldü, bağlantıda sorun yaşadığımdan hemen geri dönüş yapamadım.

Hocam formülün en sonunda DÜŞEYARA($I2;$A$2:$B$20;2;0))) şeklinde üçüncü bir düşeyara yazma nedeniniz hakkında bilgi verebilirmisiniz.

Tüm öğrettikleriniz için çok teşekkürler.
 
RALKAN' Alıntı:
Hocam sayenizde sorun çözüldü, bağlantıda sorun yaşadığımdan hemen geri dönüş yapamadım.

Hocam formülün en sonunda DÜŞEYARA($I2;$A$2:$B$20;2;0))) şeklinde üçüncü bir düşeyara yazma nedeniniz hakkında bilgi verebilirmisiniz.

Tüm öğrettikleriniz için çok teşekkürler.
Genişletmek için tıkla ...

Rica ederim sorun değil..

Formülde iki ayrı düşeyara olduğu için birinde hata var ise diğerini çalıştırdık. İşleyişi şu şekilde..

=EĞER(EHATALIYSA(1.DÜŞEYARA);2.DÜŞEYARA;1.DÜŞEYARA)

Anlamı ; eğer 1. düşeyara hatalıysa 2. düşeyara'yı çalıştır değil ise 1. düşeyarayı çalıştır..

.
 
Hocam çok teşekkür ederim, iyi geceler.
 
Arkadaşlar merhaba,

İkili düşeyara ile ilgili benimde bir sorum var. Formülleri dosyaya uyarlamayı beceremedim.. Gördüğüm bir formülüde uyarlamaya çalıştım oda olmadı.
Dosya ekte ve açıklamalar içindedir. Yardımlarınızı rica ederim.
 

Ekli dosyalar

Merhaba,

Sistem sayfasında C sütunundaki değerler sadece x den oluşuyorsa,

Kod: 
=EĞER(TOPLA.ÇARPIM((Sistem!$A$2:$A$50=B2)*(Sistem!$B$2:$B$50=C2))>0;"x";"")

Formülünü kullanabilirsiniz..

C sütunundaki değerler farklı veriler içerecekse aşağıdaki Dizi Formülünü kullanmanız gerekir..

Kod: 
=İNDİS(Sistem!$C$2:$C$100;KAÇINCI(B2&C2;Sistem!$A$2:$A$100&Sistem!$B$2:$B$100;0))

Dizi formülünün girişi; formülü hücreye yazdıktan sonra direk entera basmadan ctrl shift enter tuş kombinasyonlarına basarak formülün girişini tamamlayınız. Bu işlemden sonra formülün başına ve sonuna { } ayıraçları otomatik eklenecektir..

indis fonkiyonundaki hatalı değerlerden kurtulmak için aşağıdaki yolu izleyebilirsiniz..

=eğer(ehatalıysa(formülünüz);"";formülünü)

.
 
Ömer' Alıntı:
Merhaba,

Sistem sayfasında C sütunundaki değerler sadece x den oluşuyorsa,

Kod: 
=EĞER(TOPLA.ÇARPIM((Sistem!$A$2:$A$50=B2)*(Sistem!$B$2:$B$50=C2))>0;"x";"")

Formülünü kullanabilirsiniz..

C sütunundaki değerler farklı veriler içerecekse aşağıdaki Dizi Formülünü kullanmanız gerekir..

Kod: 
=İNDİS(Sistem!$C$2:$C$100;KAÇINCI(B2&C2;Sistem!$A$2:$A$100&Sistem!$B$2:$B$100;0))

Dizi formülünün girişi; formülü hücreye yazdıktan sonra direk entera basmadan ctrl shift enter tuş kombinasyonlarına basarak formülün girişini tamamlayınız. Bu işlemden sonra formülün başına ve sonuna { } ayıraçları otomatik eklenecektir..

indis fonkiyonundaki hatalı değerlerden kurtulmak için aşağıdaki yolu izleyebilirsiniz..

=eğer(ehatalıysa(formülünüz);"";formülünü)

.
Genişletmek için tıkla ...

Sn Ömer Hocam
excel.web'te ilginç formülleri izliyorum, konuyu ben açmadığım için verilen formülleri anlamak için bir hayli kafa yormam gerekiyor.
Açıklamalarınızı tam bir öğretmen üslubuyla yaptığınız için size çok teşekkür ediyor.Başarılar diliyorum.
 
newsehir' Alıntı:
Sn Ömer Hocam
excel.web'te ilginç formülleri izliyorum, konuyu ben açmadığım için verilen formülleri anlamak için bir hayli kafa yormam gerekiyor.
Açıklamalarınızı tam bir öğretmen üslubuyla yaptığınız için size çok teşekkür ediyor.Başarılar diliyorum.
Genişletmek için tıkla ...

Sayın newsehir,

Ben teşekkür ederim. Yardımcı olabiliyorsam ne mutlu.

İyi çalışmalar..
 
Selam arkadaşlar,

Yazdıklarınızı okudum kafam daha çok karıştı. ek'te ki dosyada yazdım ne yapmak istediğimi yardımcı olabilir misiniz?

tşk şimdiden
 

Ekli dosyalar

Selamlar,

Sn. deepangel forumumuza hoşgeldiniz.

Aşağıdaki formülleri kullanabilirsiniz. Yalnız satır sayınız fazla olduğu için hesaplama uzun sürecektir.

C2 hücresine;
Kod: 
=İNDİS($G$2:$G$15000;TOPLA.ÇARPIM(KAÇINCI(A2&B2;$E$2:$E$15000&$F$2:$F$15000;0)))

D2 hücresine;
Kod: 
=İNDİS($H$2:$H$15000;TOPLA.ÇARPIM(KAÇINCI(A2&B2;$E$2:$E$15000&$F$2:$F$15000;0)))
 
Düşeyara mı? koşullu biçimlendirme mi? bilmiyorum

hayırlı geceler üstadlar bir sorumda benim olacak eklediğim tabloda abcd bir veri fghı başka bir veri istediğim 2 veride de aynı fatura numaralarını ve beraberinde tutarlarını tarayıp birebir tutanları sayfa 2 de başlıklarını attığım yere aktarması yalnız birebir tutanları sayfa birden kaldırıp sayfa 2 ye aktarması gerekiyor böylelikle sayfa 1 de kalan sorunluların ne olduğunu samanlıkta iğne aramadan tespit etmiş olacağım
 

Ekli dosyalar

Son düzenleme:
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod: 
Option Explicit
 
Sub EŞLEŞENLERİ_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, BUL As Range
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("A2:C65536").ClearContents
    
    For X = 2 To S1.Range("A65536").End(3).Row
        Set BUL = S1.Range("G:G").Find(S1.Cells(X, "B"), LookAt:=xlWhole)
        If Not BUL Is Nothing Then
            If S1.Cells(X, "D") = WorksheetFunction.Round(BUL.Offset(0, 2), 2) Then
                S1.Range("B" & X & ":D" & X).Copy S2.Range("A65536").End(3).Offset(1, 0)
                S1.Range("A" & X & ":D" & X).ClearContents
                S1.Range("F" & BUL.Row & ":I" & BUL.Row).ClearContents
            End If
        End If
    Next
    
    S1.Range("A2:D65536").Sort Key1:=Range("A2"), Order1:=xlAscending
    S1.Range("F2:I65536").Sort Key1:=Range("F2"), Order1:=xlAscending
        
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
çok teşekkür ederim Korhan Bey tam istediğim gibi olmuş eğer mümkünse bunu bir butona bağlayarak clicklediğimde işleme başlayacak şekilde ayarlayabilme imkanı varmıdır
 
emeklerinize ve uğraşlarınıza sonsuz teşekkür ederim 30000 üzeri 2 veriyi kusursuz bir şekilde tarayıp ayıklamama yardımcı oldunuz benim bugün için son bir sorum olacak umarım doğru anlatabilirim kısaca olayın mantığına değinmek istiyorum 2 faklı yerden alınan bilgileri Korhan beyin yardımıyla sistem tarıyor fatura numarası ve tutarları bire bir tutanları sayfa 2 ye taşıyor yalnız veri çok olunca şöyle bir sorun ortaya çıkıyor sayfa birde fatura numarası tutan fakat tutarı tutmayanlarda kalıyor bir veride olup diğer veride olmayanlarda kalıyor 3. bir sayfaya fatura numaraları tutan fakat tutarları tutmayanları aktarabilme imkanı var mı (sayfa birin şablonunda) yani sayfa birde bir veride olup diğer veride olmayanlar kalabilir mi ?
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst