Tasnif ve Sıralama

[belinea]

Ekteki dosyada yüklenecek ürünlerle ilgili çekilmiş bir rapor var.

Elimizde 2 depo bulunmakta ve j sütununda ürünlerin hangi depodan alınacağı bilgisi bulunmakta.

Sizden ricam T1 sayfasında belirtilen ürün listesinin depolara göre daha önceden oluşturulmuş sayfalarda ayrı ayrı tasnif edilmesi. Ve bunu yaparkende sıralama ölçütü olarak pack type yani K sütununun kullanılması..

yardımlarınız için teşekkür ederim

 

[Orion1]

Dosyanız ekte.

Sub tasnif()
Dim i As Byte
Sheets("T1").Select
Application.ScreenUpdating = False
For i = 2 To 3
    Sheets(i).Range("A1:K65536").ClearContents
    Range("A1").AutoFilter
    Range("A1").AutoFilter field:=10, Criteria1:=Sheets(i).Name
    Range("A2:K" & Cells(65536, "A").End(xlUp).Row).CurrentRegion.Copy Sheets(i).Range("A1")
    Sheets(i).Range("A2:K65536").Sort Sheets(i).Range("K2")
Next i
Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "Tasnif yapıldı"
    
End Sub