Soru Başka bir excel kitabından veri alma

[Oppenheimer]

Arkadaşlar iyi akşamlar, iki excel kitabım var Getir dosyamda Alan sayfasında bulunan K2-L2-M2 hücresindeki verilerle Depo Dosyamdaki K-L-M sütunundaki verileri karşılaştırıp aynı olan verileri (C-T hücrelerini de kapsayacak şekilde)Getir dosyamda Veri sayfasında B2 hücresinden itibaren yapıştırılmasını istiyorum nasıl yapabilirim? Böyle bir kod yazdım ama bu sadece K-L-M hücrelerini getiriyor ben C-T hücrelerindeki eşleşen bütün verileri istiyorum.Dosyaları ekledim

Depo.xlsb

drive.google.com

Getir.xlsb

drive.google.com

Sub Karşılaştırma()

    Dim wb As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastrow1 As Long, lastrow2 As Long
    Dim rng1 As Range, rng2 As Range, cell As Range
    Dim i As Long, j As Long, k As Long
   
    Set wb = Workbooks.Open("C:\Users\sssg\Desktop\ACCES.xlsx")
    Set ws1 = wb.Sheets(1)
    Set ws2 = ThisWorkbook.ActiveSheet
   
    lastrow1 = ws1.Cells(Rows.Count, "K").End(xlUp).Row
    lastrow2 = ws2.Cells(Rows.Count, "K").End(xlUp).Row
   
    Set rng1 = ws1.Range("K2:M" & lastrow1)
    Set rng2 = ws2.Range("K2:M" & lastrow2)
   
    k = 2
   
    For Each cell In rng1
        For i = 2 To lastrow2
            If cell.Value = ws2.Cells(i, "K").Value And _
               cell.Offset(0, 1).Value = ws2.Cells(i, "L").Value And _
               cell.Offset(0, 2).Value = ws2.Cells(i, "M").Value Then
                ws2.Cells(k, "A").Value = ws2.Cells(i, "K").Value
                ws2.Cells(k, "B").Value = ws2.Cells(i, "L").Value
                ws2.Cells(k, "C").Value = ws2.Cells(i, "M").Value
                k = k + 1
            End If
        Next i
    Next cell
   


End Sub