Iya mbak Siti,
begitulah, kalau mau copy paste values yang punya formula saja, memang perlu
loop. Tapi ya itu tadi, ndak masalah ada formula atau tidak, kalau paste
values hasilnya sama, jadi ndak perlu pilih-pilih, semua aja sekalian.
Lhaa.....
Kalau mau hapus semua isi cell yang punya formula saja, itu baru....
masih bisa dengan :
Activesheet.UsedRange.Specialcells(xlCelltypeformulas).Clearcontents
Kid.
2009/8/23 siti <[email protected]>
>
>
> 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
>>>
>>
>
>
