Soru Sayım eksiklerinin kontrolü

[ümit bektas]

Merhaba,

Stok sayfasında benim yeni sayım yaptıklarım liste var, Eski envanter sayfasında ise; daha önceki sayımlarımın listesi var.

Yapmak istediğim stok sayfama saydırdığım ilgili raftaki barkodlu ürünlerin eski envanterden listesinden kaldırması.

 

[Korhan Ayhan]

Sarı renkli satırların listeden silinmesinimi istiyorsunuz?

 

[Korhan Ayhan]

Verilerinizi yedekledikten sonra deneyiniz.

Option Explicit

Sub Delete_Items()
    Dim S1 As Worksheet, S2 As Worksheet, Stock_List As Object
    Dim My_Data As Variant, X As Long, No As Long
    
    Set S1 = Sheets("Stok")
    Set S2 = Sheets("Eski_Envanter")
    Set Stock_List = VBA.CreateObject("Scripting.Dictionary")
    
    My_Data = S1.Range("A1").CurrentRegion.Value
    
    For X = 2 To UBound(My_Data, 1)
        Stock_List.Item(My_Data(X, 1)) = False
    Next

    My_Data = S2.Range("A1").CurrentRegion.Value
    
    ReDim My_List(1 To UBound(My_Data, 1), 1 To 4)
    
    For X = 2 To UBound(My_Data, 1)
        If Not Stock_List.Exists(My_Data(X, 1)) Then
            No = No + 1
            My_List(No, 1) = My_Data(X, 1)
            My_List(No, 2) = My_Data(X, 2)
            My_List(No, 3) = My_Data(X, 3)
            My_List(No, 4) = My_Data(X, 4)
        End If
    Next
    
    S2.Range("A2:D" & S2.Rows.Count).ClearContents
    S2.Range("A2").Resize(No, 4) = My_List

    Set S1 = Nothing
    Set S2 = Nothing
    Set Stock_List = Nothing

    MsgBox "Kayıt silme işlemi tamamlanmıştır.", vbInformation
End Sub