Değişen Verilerden yeni Verilere ulaşmak

[nitroxs]

Merhaba arkadaşlar. Sorum;
Ek'teki çalışma kitabında sayfa 1 de bulunan verilerden yola çıkarak sayfa 2'de bulunan eski parça numarası hanesinden yani parça numarası hanesine nasıl ulaşırım. Yani sayfa 1 deki veriler bende zaten vardı. Sayfa 2deki verileri firmadan aldım ancak birçok parça numarası değişmiş. Şimdi bendeki parça numaralarından yola çıkarak yeni parça numaralarını bulmalıyım. Sonucu ayrı bir sütunda göstermem mümkün mü.
Seviyem vasatın altı ona göre anlatırsanız sevinirim. Ve ekteki dosya sadece örnek asıl kitapda 70 bin satır mevcut.

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırın. Sayfa1 F sütununa yeni parça numalarını yazacaktır.

Sub Bul()
 
    Dim S2 As Worksheet, i As Long, c As Range
 
    Set S2 = Sheets("Sayfa2")
 
    Application.ScreenUpdating = False
 
    Sheets("Sayfa1").Select
    Range("F2:F" & Rows.Count).ClearContents
 
    Range("F2") = "Yeni Parça No."
 
    For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
        Set c = S2.[C:C].Find(Cells(i, "B"), , xlValues, xlWhole)
        If Not c Is Nothing Then
            Cells(i, "F") = S2.Cells(c.Row, "B")
        End If
    Next i
 
End Sub

.

 

[nitroxs]

teşekkürler denicem