Cara Filter Data Excel dengan VBaMacro

[@saprifattah9549]

Terima kasih… Suka bangat cara penjelasannya. Singkat padat dan tidak bertele², logis. (Tdk seperti yg lainya) Mantap pak👍 Go… subscribe

[@QdotEXcel]

terim kasih bang 🙏

[@dedimulyana9282]

alhamdulillah bisa berhasil ambil dari sheet lain

[@yudhihermawan6303]

Mantap 👍👍👍👍

[@rezakesuma7494]

luar biasa bos,.... kalo di filter trus diupdate(edit ) mungkin bisa jd next video , heheheh

[@dedimulyana9282]

Alhamdulillah bisa pak

[@AdiDarma-n8n]

bang klo teryta kolom tabel hasil filter nya range nya sampe AI itu utk coding nya diketik AI jg kah soal nya ini sy cb kok Error ya

[@dedimulyana9282]

pak kalau unutk beberapa kriteria bagaimana

[@libsstonecrue]

klo tabel data dan hasil nya di sheet yang berbeda, prosedur di vb nya gmn mas?mendefinisikan sheet 1 dan sheet 2thx

[@iswadi-edukasidanhobbi7347]

Ada link file latihannya pak, untuk diunduh

[@dedimulyana9282]

pak kalau untuk ambil datanya dari beda sheet gimana pak

[@dedimulyana9282]

kriterianya masih tidak jalan gimana ya pa coding nulisnya kriteria

[@imamsupriadhie5145]

File nya bisa sy donlod ya bang..makasih sebelumnya

[@bgs_ibad]

Saya coba tp Gaberhasil alias masih ada salah di bagian irow padahal sama. Tapi makasih ilmunya

[@aguswahid6921]

saya nyoba dengan cara yang sama kok eror ya

[@bianalkautsar8088]

Kalo dua kriteria gimana?

[@wilsanuzululm8271]

Ni kalo d excel ga ada developernya gimana nih?

[@isnanuruldukha1763]

Pak, klo saya punya beberapa sheets, dan setiap sheets nya mau saya filter dengan cara ini, 1 sheets berhasil, sheet lainnya gk mau terfilter..gmn caranya ya supaya semua sheet bisa terfilter?

[@ferryvazri1554]

aku coba tapi masih terjadi eror pada bagian rumus Datarange.AdvanceFilternya kenapa ya,

[@QdotEXcel]

nama range headernya pastikan sama bang..

[@dedimulyana9282]

Sub FilterDataAuto() Dim Datarange As Range Dim KriteriaRange As Range Set WS = Sheet11 irow = WS.Cells(WS.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Set Datarange = WS.Range("A13:M" & irow) Set KriteriaRange = Sheet14.Range("G2:G3") Datarange.AdvancedFilter xlFilterCopy, KriteriaRange, Sheet14.Range("A5:M5"), False End Sub masih salah pak, masih tampil semua, walaupun sudah sesuai kriteria

[@AdityaIriyanto]

Sheet1 bukan 11

[@dedimulyana9282]

Sub FilterDataAuto() Dim Datarange As Range Dim KriteriaRange As Range Set WS2 = Worksheets("Sheet14") Set WS = Worksheets("Sheet11") irow = WS.Cells(WS.Rows.Count, 1).End(xlUp).Offset(1, 0).Row Set Datarange = WS.Range("A13:M" & irow) Set KriteriaRange = WS2.Range("G2:G3") Datarange.AdvancedFilter xlFilterCopy, KriteriaRange, WS2.Range("G5:M5"), False End Sub masih salah pak, mohon bantuannya

[@QdotEXcel]

Sama2 pak Okay, 2 statement untuk 2 Variable