Formula (salah satu saja, tidak usah semuanya) dapat disimpan disuatu cell,
misal Cell A1 (jangan di kolom B karena menimbulkan circular), untuk kemudian
dicopy-kan ke berbagai range bila stock formula di table sudah habis.
>semoga bermanfaat
________________________________
From: alwi abdurrahman <alwi.abdurrah...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Sun, April 18, 2010 6:52:04 AM
Subject: Re: [belajar-excel] macro untuk value formula
Ok thanks, tapi bisa tidak P' Anton formula pada kolom terakhir (kolom L) tidak
terValue. Hal tsb dimaksudkan bila kita akan copykan pada Week selanjutnya kita
tidak perlu buatkan lagi formulanya, karena formula referencenya masih ada.
Demikian P' Anton, Thanks & Success.
Salam
Pada 17 April 2010 13:20, anton suryadi <summon...@yahoo. com> menulis:
>
>
>
>
>
>
>
>
>
>
>
>
>
> >
>
>>
>
>>
>
>coba diganti dengan yang ini,
>
>Private Sub Worksheet_Calculate ()
>X = WorksheetFunction. CountIf(Range("C8:L8"), "")
>Y = Range("C8").End(xlDown) .Row
>With Range("C8").Resize(Y - 8 + 1, 10 - X)
> .Value = .Value
>End With
>End Sub
>
>
>>semoga
> bermanfaat
>
>
>
>
>
>
>
________________________________
From: alwi abdurrahman <alwi.abdurrahman@ gmail.com>
>To: belajar-excel@ yahoogroups. com
>Sent: Fri, April 16, 2010 9:13:48 PM
>Subject: Re: [belajar-excel] macro untuk value formula
>
> >
>
>
>>
>
>Dear All,
>
>Sebelumnya thanks untuk P' Anton suryadi, yang telah memberikan bantuannya.
>Sedikit lagi kekurangan yang perlu ditambahkan dalam program tsb Pak Anton,
>yaitu bila penambahan ini bergulir sampai dengan Week 10, yang setiap
>minggunya data tsb akan bertambah dan mengisi kolom-kolom pada sheet
>"summary",kolom-kolom yang sebelumnya belum dapat ikut terValue.
>>
>Jadi formula Bapak tsb baru dapat mengcover Kolom F8 dan kolom sebelumnya.
>Bila kita kemudian bergeser ke kolom G8 (terisi), maka secara otomatis, kolom
>C2:F11 belum terValue ?
>Mohon mendapatkan petunjuk tambahan untuk hal tsb , Thanks.
>
>Salam
>
>
>Pada 16 April 2010 14:45, anton suryadi <summon...@yahoo. com> menulis:
>
>coba,
>>
>>Private Sub Worksheet_Calculate ()
>>If [F8] <> "" Then
>>With Range("C8:E11")
>> .Value = .Value
>>End With
>>End If
>>End Sub
>>
>>file
>> terlampir
>>
>>
>>>semoga bermanfaat
>>
>>
>>
>>
>>
>>
>>>>
________________________________
From: alwi abdurrahman <alwi.abdurrahman@ gmail.com>
>>To: belajar-excel@ yahoogroups. com; alwi.abdurrahman@ indofood. co.id <<<
>>nebeng
>>Cc: --jan...@yahoo. com
>>Sent: Fri, April 16, 2010 1:18:06 PM
>>Subject: [belajar-excel] macro untuk value formula
>>
>> >>
>>
>>>>
>>
>>>>
>>
>>--- blank email------- --------- --------- --------- ------
>>>>mohon untuk y.a.d. tidak mengirim "surat tuli" spt ini
>>>>minimal: garis besar masalahnya ditulis di badan email
>>>>------------ --------- --------- --------- --------- -------
>>
>>>>berikut ini dikutip dari pertanyaan dlm workbook lampiran
>>>>quote:
>>>>Objectivenya adalah sebagia berikut :
>>>>1. Setiap data Week 4 masuk ke kolom F8, maka kolom Range(E8:E11) ,
>>>>tervalue (Format Value).
>>>>2. Sebelum Data Week 4 dan seterusnya ada dalam Sheet "Pivot" , kolom Week
>>>>4 dan seterusnya pada Sheets ("Summary"), kosong (blank) & tidak boleh
>>>>muncul #REF!.
>>>>Mohon petunjuknya, Thanks.
>>>>unquote
>>
>>
>>____________ _________ _________ _________ _______
>>This message is for the designated recipient only and may contain privileged,
>>proprietary, or otherwise private information. If you have received it in
>>error, please notify the sender and delete the message immediately. Any other
>>use of the email is prohibited.
>>
>>____________ _________ _________ _________ _________
>>This message is for the designated recipient only and may contain privileged,
>>proprietary, or otherwise private information. If you have received it in
>>error, please notify the sender and delete the message immediately. Any other
>>use of the email is prohibited.
>>
>
>
