Dim c as range Dim belajar() as variant
belajar=array(“MATERIAL”,”CONSUMABLE”,”OTHERS”) For each c in range(“A1:A50”) If c.value<>belajar() instr(1,”MATERIAL|CONSUMABLE|OTHERS”,c.text,vbtextcompare) then c.*entire*row.delete end if Next *c* 2018-07-19 13:27 GMT+07:00 Tio Adi Bayu Adjie [email protected] [belajar-excel] <[email protected]>: > > > Salam Bexceller, > > Mau tanya, bagaimana code VBA untuk delete baris yang nilai di colom A > tidak sama dengan nilai dalam array > > Saya sudah berusaha, tapi tidak berhasil juga. > > > > Code vba saya : > > > > Dim c as range > > Dim belajar() as variant > > > > belajar=array(“MATERIAL”,”CONSUMABLE”,”OTHERS”) > > > > For each c in range(“A1:A50”) > > If c.value<>belajar() then > > c.row.delete > > end if > > Next > > > > Terima kasih. > > salam, > > Tio > > > > >
