Yth. Para Master
Assalamualaikum
Advance Filter code yang saya buat seperti dibawah ini bisa memfilter sesuai
criteria yang diinginkan namun tetap sesuai data input jumlah dan urutannya,
Bagaimana cara filter dengan memisahkan data yang sama dari beberapa data
misalkan :no. WEL-KIM-KEK-11-15-001 terdapat 5 no yang sama,
WEL-KIM-KEK-11-15-001
WEL-KIM-KEK-11-15-001
WEL-KIM-KEK-11-15-001
WEL-KIM-KEK-11-15-001
WEL-KIM-KEK-11-15-001
no. WEL-KIM-KEK-11-15-002 terdapat 8 no yang sama
WEL-KIM-KEK-11-15-002WEL-KIM-KEK-11-15-002
WEL-KIM-KEK-11-15-002
WEL-KIM-KEK-11-15-002
WEL-KIM-KEK-11-15-002
WEL-KIM-KEK-11-15-002
WEL-KIM-KEK-11-15-002
WEL-KIM-KEK-11-15-002
dan begitu seterusnya
saya ingin hasil dari filter tersebut muncul dengan 1 nomor dari masing masing
dataWEL-KIM-KEK-11-15-001 qty 5
WEL-KIM-KEK-11-15-002 qty 8
code yang saya gunakan seperti dibawah :
Sub STRINGING_KM()Dim TabelData As Range, Kriteria As Range, CopyKe As Range,
Unik As Boolean
Set TabelData = ThisWorkbook.Sheets("TRACE").Range("A1") Set Kriteria =
ThisWorkbook.Sheets("MAIN").Range("C4:C5") Set CopyKe =
ThisWorkbook.Sheets("STR").Range("B11:AT11") Unik = False
TabelData.CurrentRegion.AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Kriteria, CopyToRange:=CopyKe, Unique:=Unik
ThisWorkbook.Sheets("STR").Activate
ThisWorkbook.Sheets("MAIN").Range("B2").Value = _ "STRINGING KM : " &
JmlDataCocok & " data cocok dengan kriteria"End Sub
Mohon bantuan bagaimanakah code seperti maksud saya diatas
Terimakasih Banyak
WassalamualaikumHairul Alam
