Terima kasih mbak siti, mas puthut atas tanggapannya
Maksudku memang seperti yang dijelaskan oleh mas puthut akan menambahkan kolom
lagi (V:Z) untuk diisi total bayar,sisa tagihan dan keterangan lunas atau belum
agar dapat di filter
salam
yudha
--- Pada Sen, 12/10/09, siti Vi <setiyowati.d...@gmail.com> menulis:
Dari: siti Vi <setiyowati.d...@gmail.com>
Judul: Re: [belajar-excel] rumus sumproducts prosesnya berat
Kepada: belajar-excel@yahoogroups.com
Tanggal: Senin, 12 Oktober, 2009, 7:02 PM
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).ClearConten ts ' 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( xlCellTypeConsta nts, 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 <cahayaoptikmandiri@ yahoo.co. id> wrote:
>
> From: Sandra Yudha <cahayaoptikmandiri@ 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)
Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk
Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka
browser. Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer
