Jika datanya banyak (tidak tahu posisi kanan bawahnya) makaRange("A3:E23")
diganti denganRange("A3").CurrentRegion
Salam,HK
----- Pesan yang Diteruskan ----- Dari: hendrik karnadi
<hendrikkarn...@yahoo.com>Kepada: Kamirin Faqoth kamiri...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>Terkirim: Selasa, 22 Oktober
2019 17.21.55 WIBJudul: Re: [belajar-excel] Mencari Nilai dengan Kriteria
Khusus [1 Attachment]
Dear Kamirin,
Coba copas Macro ini di VBE Sheet (Module1)Sub Rapihkan() 'Mengisi blank
cell dengan sel diatasnya Set Rng = Range("A3:E23") Rng.Select
Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 =
"=R[-1]C" 'Menghapus sel yang interior colornya berearna merah For
Each rg In Rng If rg.Interior.Color = vbRed Then
rg.EntireRow.Delete End If Next rgEnd SubLalu jalankan.
Salam,HK
Pada Selasa, 22 Oktober 2019 16.27.07 GMT+7, Kamirin Faqoth
kamiri...@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Dear All Member,
Mohon bantuannya, saya agak kesulitan mencari nilai dengan kriteria khusus pada
tabel data yang sifatnya statis, dengan acuan tabel yang saya tandain warna
kuning dan
dengan mengabaikan tabel yang tandain warna merah, Berikut Contoh Potongan File
terlampir, terdiri dari 20 baris, file aslinya lebih dari 1000 baris.
Terim Kasih,Kamirin
