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.abdurrah...@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.
>
