Soru Enflasyon Muh.

[dengeceteris]

Herkese merhabalar. Bir konuda yardımınıza ihtiyacım var. VBA ile ENDEKS sayfasında ki verileri SONUÇ sayfasında ki E ve F sütunlarına nasıl taşıyabilirim.

Saygılarımla

 

[dost]

Merhaba,

Sub endex_bul()
Dim i As Integer, sonsat As Integer, sonsat2 As Integer
Dim s1 As Worksheet, s2 As Worksheet

Application.ScreenUpdating = False

Set s1 = Sheets("SONUÇ")
Set s2 = Sheets("ENDEKS")
sonsat = s1.Cells(s1.Rows.Count, "A").End(xlUp).Row
sonsat2 = s2.Cells(s2.Rows.Count, "A").End(xlUp).Row


For i = 2 To sonsat

     s1.Cells(i, "E") = WorksheetFunction.Index(s2.Range("A2:M" & sonsat2), _
                        WorksheetFunction.Match(s1.Cells(i, "A").Value, s2.Range("A2:A" & sonsat2)), s1.Cells(i, "B") + 1)
     s1.Cells(i, "F") = WorksheetFunction.Index(s2.Range("A2:M" & sonsat2), _
                        WorksheetFunction.Match(s1.Cells(i, "C").Value, s2.Range("A2:A" & sonsat2)), s1.Cells(i, "D") + 1)

Next i

Set s1 = Nothing:       Set s2 = Nothing

Application.ScreenUpdating = True


End Sub

 

[dengeceteris]

Hocam çok tşk ederim