İki Hücre İle Tabloda İkili Düşeyarama İşlemi

[meka5121]

Merhaba,

C ve I sütunlarında, birbirlerini tamamlayan 2 tane değerim var.

C2'de 32700, I2'de 38979 değeri olduğunu düşünelim. Aynı şekilde farklı farklı 137 tane kombinasyon mevcut.

Bir de parametre hücrelerim var, R2:S945 hücreleri arasında bu kombinasyonlar mevcut. Yani C2'de 32700 ve I2'de 38979 değer kombinasyonun karşılığı R2:S945 hücreleri arasında bir yerde bulunmakta. Örnek olarak, R45:S45'te C2 ve I2 kombinasyonunun aynısı bulunmakta.

Sonuç olarak yapmak istediğim, M2 hücresine, C2 ve I2'deki değer kombinasyonunun, R2:S945 aralığında var olup olmadığını yazmaktır.

Bu konuda yardımcı olabilir misiniz?

 

[YUSUF44]

Formülle yapılabilir mi bilmiyorum. Aşağıdaki kodları bir modüle yapıştırıp denerseniz F sütununa Var ya da Yok yazar. Verileriniz çok olduğundan uzun sürer diye denemedim:

Sub kombi()
For i = 2 To Cells(Rows.Count, "C").End(3).Row
    For j = 2 To Cells(Rows.Count, "R").End(3).Row
        If Cells(i, "C") = Cells(j, "R") And Cells(i, "I") = Cells(j, "S") Then
            Cells(i, "F") = "Var"
        Else
            Cells(i, "F") = "Yok"
        End If
    Next
Next
End Sub

 

[meka5121]

Formülle yapılabilir mi bilmiyorum. Aşağıdaki kodları bir modüle yapıştırıp denerseniz F sütununa Var ya da Yok yazar. Verileriniz çok olduğundan uzun sürer diye denemedim:

Sub kombi()
For i = 2 To Cells(Rows.Count, "C").End(3).Row
    For j = 2 To Cells(Rows.Count, "R").End(3).Row
        If Cells(i, "C") = Cells(j, "R") And Cells(i, "I") = Cells(j, "S") Then
            Cells(i, "F") = "Var"
        Else
            Cells(i, "F") = "Yok"
        End If
    Next
Next
End Sub

Merhaba, 30 saniye falan sürüyor çalışması fakat, tüm kayıtlar için "Yok" yazdı, manuel kontrol yaptığımda bu şekilde bir cevap vermemesi gerekiyor. Şart yapısını inceliyorum şu anda.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki dizi formülünü dener misiniz?
Formülü ilk hücreye uyulayın ve A sütunundaki son dolu hücrenin satırına kadar kopyalayın.

Formül sonucu eşleşen satırın satır numarasını verecektir.

.

=KAÇINCI(C2&I2&"";$R$1:$R$495&$S$1:$S$495&"";0)
[COLOR="blue"]Dizi formülü hücreye [COLOR="Red"]CTRL+SHIFT+ENTER[/COLOR] ile girilmelidir.[/COLOR]

 

[YUSUF44]

Aşağıdaki gibi daha doğru oldu:

Sub kombi()
For i = 2 To Cells(Rows.Count, "C").End(3).Row
    For j = 2 To Cells(Rows.Count, "R").End(3).Row
        If Cells(i, "C") = Cells(j, "R") And Cells(i, "I") = Cells(j, "S") Then
            Cells(i, "F") = "Var"
            GoTo 10:
        Else
            Cells(i, "F") = "Yok"
        End If

    Next
10:
Next
End Sub

 

[meka5121]

Teşekkürler, işime yaradı 2 çözüm de