Saya memiliki lembar kerja yang berisi daftar kriteria dalam sel A1 hingga J2. Baris 1 adalah header.

Di bawah ini saya memiliki tabel dengan semua item data saya. Sel A8 hingga J dengan jumlah baris yang dinamis

Sheets("D0022").Range("A8:" & Sheets("D0022").Cells(Rows.Count, "J").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("D0022").Range("a1:j2"), Unique:=True

Ketika saya menjalankan ini saya mendapatkan Runtime 1004 Aplikasi yang ditentukan atau kesalahan yang ditentukan objek

Dapatkah saya meminta bantuan mengapa kode VBA saya tidak berfungsi?

1
Ingram 15 Maret 2020, 16:55

1 menjawab

Jawaban Terbaik

Coba ubah Sheets("D0022").Range("A8:" & Sheets("D0022").Cells(Rows.Count, "J").End(...

Dengan

Sheets("D0022").Range("A8:J" & Sheets("D0022").Cells(Rows.Count, "J").End(...

"A8:J" bukannya "A8:".

Jika tidak, Anda tidak mengatur kolom rentang.

Sheets("D0022").Cells(Rows.Count, "J").End(xlUp).Row hanya menghitung baris terakhir kolom J:J...

2
FaneDuru 15 Maret 2020, 14:08