iki değeri kontrol edip veri getirmek

[haso_excel]

Merhaba arkadaşlar,

Amacım iki ayrı hucrede ki verilerin başka bir dosyada olan verilerle karşılaştırıp tarih getirmeye çalışıyorum ama olmadı rica etsem yardımcı olabilir misiniz dosya ekde

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırın.

Option Explicit
Sub BulYaz()
Dim S1, S2 As Worksheet
Dim c As Range
Dim i As Long
Dim ilkadres As Variant
Set S1 = Sheets("Sheet1")
Set S2 = Sheets("Sheet2")
Application.ScreenUpdating = False
S1.Select
Range("D2:D65536").ClearContents
For i = 2 To [C65536].End(3).Row
    With S2.Range("A:A")
        Set c = .Find(Cells(i, "A"), LookIn:=xlValues)
        If Not c Is Nothing Then
            ilkadres = c.Address
            Do
                If S2.Cells(c.Row, "D").Value = Cells(i, "C") Then
                    Cells(i, "D") = S2.Cells(c.Row, "C")
                End If
            Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> ilkadres
        End If
    End With
Next i
Set S1 = Nothing
Set S2 = Nothing
Application.ScreenUpdating = True
End Sub

.

 

[haso_excel]

Olmadı üstat mümkünse formülle çözebilir miyiz?

 

[Ömer]

Olmadı üstat mümkünse formülle çözebilir miyiz?

Tekrar denedim çalışıyor. Hiç bir sorun yok.

D2:

=İNDİS(Sheet2!$C$2:$C$10000;TOPLA.ÇARPIM(KAÇINCI(1;(Sheet2!$A$2:$A$10000=A2)*(Sheet2!$D$2:$D$10000=C2);0)))

.

 

[haso_excel]

Üstadım rica etsem benim dosyamın üzerinde formulü koyar mısınız

 

[Ömer]

İngilizceye çeviremediniz sanırım.

=INDEX(Sheet2!$C$2:$C$10000;SUMPRODUCT(MATCH(1;(Sheet2!$A$2:$A$10000=A2)*(Sheet2!$D$2:$D$10000=C2);0)))

Karşılıkarı için;

Türkçesi = İngilizcesi şeklinde Fonksiyon Listesi

 

[haso_excel]

Üstadım özrür dilerim ama olmadı

 

[Ali]

Sheet1'deki C2 hücresine

=İNDİS(Sheet2!$D$2:$D$8500;KAÇINCI(1;EĞER(Sheet2!$A$2:$A$8500=A2;EĞER(Sheet2!$B$2:$B$8500=B2;1));0))

yazıp CTRL+SHIFT+ENTER tuşuna basarak dizi formülü oluşturup aşağı doğru çekiniz.

İNDİS = INDEX
KAÇINCI = MATCH
EĞER = IF

.

 

[haso_excel]

Teşekkür ederim işte budur.