good stuffs... mas kid.. iyya ya.. semua cell itu "isinya" hanya = 3 jenis: konstanta, formula. blank ketika semua formula ingin di jadikan konstanta tidak perlu loop, cukup usedRange di-"PasteValues" n ketika semua cell (di area berdata) ingin dihapus tinggal "ngapus" ajah... ndak ada masalah menghapus blank cells
barangkali ada yg masih perlu loop... for each CEL in Activesheet.UsedRange if CEL.HasFormula then CEL.clearcontents next yaitu kalau diinginkan cel berformula dihapus cel berisi konstanta dibiarkan tetap berisi konstanta... geetoo kalee yee... ctv [ngeyelmode: false] 2009/8/22 kid <[email protected]> > > > Ikutan ah... > > Semua formula di sebuah sheet. Berarti sama saja semua di paste values. > Activesheet.Usedrange.Copy > Activesheet.Usedrange.Pastespecial (xlPastevalues) > > Kalau mau dibersihkan dari seluruh isi : > Activesheet.Usedrange.Clearcontents > > Selama bisa tidak Loop maka tidak perlu Loop. Selama bisa pakai objects, > pakai objects saja. Selama bisa pakai 1 object pakai 1 object saja. selama > bisa 1 baris pakai 1 baris saja. Itu prinsip dasarnya. > > Kid. > > 2009/8/21 sh.ronald <[email protected]> > >> >> >> Sore rekan rekan, >> >> Beberapa tahun yang lalu ada VBA untuk menghapus seluruh formula/rumus >> dlam satu worksheet secara singkat menggunakan VBA. >> >> Kalo ada boleh donk di share. >> >> Ronald >> >
