Agak kurang lucu juga kalau di daerah Angsuran (kolom F s/d U sheet
DataInduk)
ternyata ada FORMULA dan ada pula hasil ex makro
Bukankah di sheet tsb ingin diisikan data DENGAN MAKRO ??
(yg hasilnya seperti kerjaan formula berbasis SUMPRODUCT; lihat email ke2
pada topik ini)
Artinya hasil makro yg terisikan ke area Angsuran itu sudah OKE semua
/ sesuai dengan keadaan data di kolom-kolom sebelah kirinya.
Kalau ada cell yg kosong tentu karena memang harus kosong
Truss kenafa pula di situ ada formulanya ? mbak Sandra-nya kayaknya ingin
cari
cara lan selain SUMPRODUCT yg sudah dirasakan melambankan kinerja sheet)
Mungkin yg dimaksud "FORMULA ikut terhapus" oleh mbak Sandra itu ada di
BARIS BARU
dan atau KOLOM BARU ya...
Kalau memang begitu; penghapusannya selain dengan cara pak puthut (dgn
pembedaan
jenis datanya (konstanta vs formula); dapat juga dengan pembatasan AREANYA.
Lebih Oke lagi kalau FORMULA itu (jika diketahui "seperti apa") ditulis
dengan makro pula
Jadi dihapus pun juga ndak masalah, karena kapan saja dapat digenerated
lagi...
2009/10/13 Puthut Wibowo <puthut_...@yahoo.com>
>
> om om om.....Dari punya Tante Siti dirubah,....Klir kontenya yang ke hapus
Value doank formula tetep...kodingan Semula :
>
> Private Sub CommandButton2_Click()
> ' menghapus data yg di F7 ke bawah & ke kanan
> Dim AngsArea As Range, tHeigh As Integer, tWidth As Integer
> Set AngsArea = Range([F6], [F6].End(xlToRight))
> tWidth = AngsArea.Columns.Count
> tHeigh = Range([A7], [A7].End(xlDown)).Rows.Count
> AngsArea.Offset(1, 0).Resize(tHeigh, tWidth).ClearContents ' Menghapus
semuanya
> End Sub
>
> Menjadi .... :
>
> Private Sub CommandButton2_Click()
> ' menghapus data yg di F7 ke bawah & ke kanan
> Dim vTargetRange As Range
> Dim vRangeHapus As Range
>
> ' Range ..... F7 : U24
>
> Set vTargetRange = Range("F7:U24")
> On Error Resume Next
> ' Hapus Cell yang hanya mengandung Anka konstan saja = xlCellTypeConstants
> Set vRangeHapus = vTargetRange.SpecialCells(xlCellTypeConstants, xlNumbers
+ xlTextValues)
> If Err = 0 Then
> vRangeHapus.ClearContents
> End
> Else
> Set vTargetRange = Nothing
> Set vRangeHapus = Nothing
> End If
> End Sub
>
> File Terlampir oom......
>
> - ^ Puthut Wibowo ^ _
> --- On Mon, 10/12/09, Sandra Yudha <cahayaoptikmand...@yahoo.co.id> wrote:
>
> From: Sandra Yudha <cahayaoptikmand...@yahoo.co.id>
> Subject: Re: [belajar-excel] rumus sumproducts prosesnya berat
> To: belajar-excel@yahoogroups.com
> Date: Monday, October 12, 2009, 11:07 PM
>
> Untuk mbak siti, mas kid, mas puthut serta semua yang nggak mungkin aku
sebutin satu persatu
> saya ucapkan terima kasih atas semua jawaban, masukan beserta contoh2 nya,
karena atas anda semua aku sekarang mulai tertarik untuk mempelajari VBA.
maaf deh kalau aku nggak kirim kabar setelah dikasih jawaban.
> oh ya mbak contoh jawaban yang mbak siti kirim itu bisa sampai berapa
baris, soalnya aku coba buka VBA nya kok dikasih password( jangan ngambek
dong mbak, kalau dipassword gitu gimana aku bisa belajar ).bagaimana sih
cara ngasih password kayak gitu.
> dan selain itu *aku coba disamping kolom paling akhir aku kasih rumus
untuk menjumlah total pembayaran dan vlookup lunas\blm lunas, e eeeh waktu
macro dijalankan dengan menekan tombol clear semua rumusnya jadi hilang
juga.pusing aku*
> trim's sekali lagi
> yudha
> 2009/10/6 siti Vi <setiyowati.devi@ gmail.com>
>>
>> =SUMPRODUCT(
>> ('tagihan harian'!$C$5: $C$2000= $A7)*
>> ('tagihan harian'!$D$5: $D$2000= F$5)*
>> ('tagihan harian'!$E$5: $E$2000)
