Verileri eşleştirme

[thecarow]

Merhaba;
Ekte bulunan dosyada veri ve analiz isimli iki sayfam var.Amacım,veri sayfasının A sütununda bulanan rakamlar ile D sütununda bulunan rakamların kaç kere birbirleri ile eşleştiğini bulmak ve analiz sayfasındaki ilgili hücresine yerleştirmek.
Saygılarımla.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

=TOPLA.ÇARPIM((veri!$D$4:$D$65536=$A2)*(veri!$A$4:$A$65536=B$1))

.

 

[thecarow]

Hocam teşekkür ederim.Sorunsuz çalıştı.Emeğinize sağlık.

 

[thecarow]

Merhaba;
Bu formül ciddi anlamda dosyayının çalışmasını zorluyor.Bunu makrolarla yapma şansı varmıdır

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ANALİZ()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Integer, Y As Byte, Zaman As Date
    
    Application.ScreenUpdating = False

    Zaman = Time

    Set S1 = Sheets("veri")
    Set S2 = Sheets("analiz")
    
    With S1
        .Range("E4") = "=RC[-4]&RC[-1]"
        .Range("E4").AutoFill Destination:=.Range("E4:E65536")
        .Range("E4:E65536").Value = .Range("E4:E65536").Value
    End With
    S2.Range("B2:IV65536").ClearContents
    
    For X = 2 To S2.Cells(Rows.Count, 1).End(3).Row
        For Y = 2 To S2.Cells(1, Columns.Count).End(1).Column
            S2.Cells(X, Y) = WorksheetFunction.CountIf(S1.Range("E:E"), S2.Cells(1, Y) & S2.Cells(X, 1))
        Next
    Next
 
    S1.Range("E:E").ClearContents
    
    Set S1 = Nothing
    Set S2 = Nothing

    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
    "İşlem süresi ; " & Format(Time - Zaman, "hh:mm:ss"), vbInformation
End Sub

 

[Merhum İdris SERDAR]

Merhaba;
Ekte bulunan dosyada veri ve analiz isimli iki sayfam var.Amacım,veri sayfasının A sütununda bulanan rakamlar ile D sütununda bulunan rakamların kaç kere birbirleri ile eşleştiğini bulmak ve analiz sayfasındaki ilgili hücresine yerleştirmek.
Saygılarımla.

.

Dosyanız ekte.

Konu için bakınız:

ÖZET TABLOLAR (PİVOT TABLE)


.

 

[thecarow]

Yurttaş hocam ilginiz ve emeğiniz teşekkür ederim.Korhan Hocam,formül çalışıyor birkaç kere eksik veri aktardı.Ayrıca analiz sayfasındaki yatay verilerle dikey verilerin yerlerini değiştirmek istiyorum.Makroyu bunun için nasıl güncelleyebilirim.

 

[thecarow]

Tamam hocam problemi düzelttim.İlginiz ve desteğiniz için teşekkür ederim.