Assalamu’alaikum.....
Assalamu’alaikum.....

Mohon bantuannya saudara-saudara...
bagaimana ya untuk membuat border double di kiri kanan pada advanced filter.
Dan mengapa label tanda tangan di bawah data selalu hilang setiap kali saya Run Macronya..
untuk lebih jelasnya file terlampir

Terima kasih

dan ini codingnya:

Sub filtername()

Sheet1.range("a2").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
criteriarange:=Sheet2.range("i2:i3"), copytorange:=Sheet2.range("b5:e5"), unique:=False

With ThisWorkbook.Worksheets("filter")
With .range("b5").CurrentRegion.Borders
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End With

range("g3").Select

End Sub

manweljs_ Mantab banget... terima kasih atas bantuannya... Oya yang record Macro1 itu fungsinya untuk apa ya...? dan untuk nomor urut,bisakah di buat otomatis... ?

sekali lagi terima kasih manweljs_ . sudah sesuai dengan harapan....