Mohon Bantuannya cara Membuat border otomatis di Advanced Filter

  1. 4 minggu lalu

    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

  2. @adi fianto

    coba cek lampiran

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

  4. @adi fianto

    ...yang record Macro1 itu fungsinya untuk apa ya...?

    gak ada fungsinya. dihapus aja

    ...untuk nomor urut,bisakah di buat otomatis... ?

    bisa, letakan sj formula ini di A6 dan copy kebawah

    =IF(LEN(B6),MAX($A$5:A5)+1,"")

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

 

atau Mendaftar untuk ikut berdiskusi!