kontrol listesi

[xlsx]

Selam,
Ekte bulunan dosyada A sütununa manuel veriler girilmekte.Girilen malzemelerin ne zaman kontrol edildiği tarihleri de aynı şekilde manuel işlenmekte.
Kontrolü yapılan bu malzemelerin girilen bu tarihlere göre en son ne zaman kontrol edildiğini G sütununda ilgili yerlere atması sağlanabilir mi?
Yapmak istediğim şu, kontrol edilmesi için sırası gelen ürün hangisi bunu bulmak.Bunu manuel girmeden önce sağdaki listeden sıranın kime geldiğini görmem gerekiyor.
Fikirleriniz konusunda desteğinizi beklemekteyim.
Kod ile istememin nedeni kod bilgimi geliştirmek.Formül alternatif de olabilir.
Tşk

 

[Orion1]

Dosyanız XLS formatında yolarsanız dağa çabuk yardım alabilirsiniz.

 

[xlsx]

2003 formatında dosya eklendi

dosya xls uzantılı olarak ekte Tşk.

 

[Orion1]

Dosyanızı önce veri tabanı mantığında oluşturmalısınız.
Bunu ben yaptım.
Bu şekilde olursa her türlü işlem yapmaya müsait olur.
Dosyanız ektedir.

Option Base 1
Sub benzersiz_topla_59()
Dim sat As Long, i As Long, liste(), myarr(), n As Long, deg As String
Sheets("Sheet1").Select
Range("F2:H65536").Clear
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then
    MsgBox "İşlem yapılacak veri yok." & vbLf & "işlem iptal oldu", vbCritical, "UYARI"
    Exit Sub
End If
liste = Range("A2:B" & sat).Value
Set z = CreateObject("Scripting.dictionary")
ReDim myarr(1 To 3, 1 To UBound(liste))
For i = 1 To UBound(liste)
    deg = UCase(Replace(Replace(liste(i, 1), "i", "İ"), "ı", "I"))
    If Not z.exists(deg) Then
        n = n + 1
        z.Add deg, n
        myarr(1, n) = liste(i, 1)
    End If
    myarr(2, z.Item(deg)) = myarr(2, z.Item(deg)) + 1
    myarr(3, z.Item(deg)) = Format(liste(i, 2), "dd.mm.yyyy")
Next i
Application.ScreenUpdating = False
Erase liste
Set z = Nothing
Range("F2").Resize(n, 3) = Application.Transpose(myarr)
Erase myarr
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub