sudah pak... tetapi berhubung pc di rumah beberapa minggu terakhir ini sedang ngadat.. jadi saat ini belum bisa banyak mengutak-kutik workbook tsb.. insyaallah bbrp hari kedepan pc sudah bisa disembuhkan...
kind regards, siti 2010/7/14 Rahagung Dananjoyo <[email protected]> > Maaf Bu Siti, apakah sudah menerima email tanggapan saya kemarin? terima > kasih > > <span style="font-weight:bold;font-family:arial;color:rgb(0, 0, > 191);">Rahagung Dananjoyo</span> > <span style="font-weight:bold;font-family:arial;color:rgb(0, 0, > 191);"> PTPN XI (Persero)</span> > > > ----- Forwarded Message ---- > *From:* Rahagung Dananjoyo <[email protected]> > *To:* [email protected] > *Sent:* Fri, July 2, 2010 8:08:45 PM > *Subject:* Re:[belajar-excel] Modifikasi Macro > > > Yth. Bu Siti.. > waduh maaf bu..ini saya baru bisa connect internet lagi, file sudah di > download dan dicoba menggunakan data lapangan, tadi sudah saya siapkan > email utk reply tapi ternyata baru malam ini bisa connect > saya terima kasih sebelumnya, utk file yg sudah di modifikasi lagi coding > macro nya. > Hasil percobaan file tersebut utk data contoh yg saya sertakan kmrn sudah > berjalan baik tetapi ketika saya pakai data asli dari lapangan kok ada > beberapa bug ya bu. > 1. Saat saya klik Refresh Combobox muncul > "run-time error 9" > Subscript out of range > '--menghapus area data > Dim dArea As Range > Set dArea = Sheets("Rekap_II").Rows("7:7") > Set dArea = Range(dArea, dArea.End(xlDown)) > dArea.Delete Shift:=xlUp > Range("K4").ClearContents > End Sub > maksudnya apa ya bu? > 2. Saat saya pilih kriteria di nomor petak, lalu klik "REKAP", muncul > "run-time error 13" > Type mismatch > r = r + 1 > With Me.Range("L7") ' = tabel rincian > .Cells(r, 0) = "SubTotal:" > .Cells(r, 1) = CLng(Cbo_NrPetak) > .Cells(r, 2) = CDate(Cbo_Tanggal) > .Cells(r, 2).NumberFormat = "dd-MMM-yyyy" > .Cells(r, 3) = vHax > .Cells(r, 4) = vKui > .Cells(r, 5) = vXtl > 3. Coding formula utk rekap yang baru itu harus membuka dulu proteksi di > sheet data? > 4. Saya baru menyadari pertanyaan saya kemarin ada yg perlu dikoreksi, dan > hal ini baru muncul ketika file ini saya coba > Pada awalnya saya menginginkan > misalnya filter untuk data tgl giling 5 Jun 2010, ketika di filter maka > yg muncul adalah : > - total untuk nomer petak 1000 pada tgl 5 jun 2010 > - total untuk nomer petak 1500 pada tgl 5 jun 2010 > - total untuk nomer petak 200 pada tgl 5 jun 2010 > - total untuk nomer petak 500 pada tgl 5 jun 2010 > dst, berlaku untuk semua petak dalam tgl tersebut > koreksi : Nomer petak yang tidak ada di tgl 5 jun 2010 tidak akan > muncul, yg muncul di rekap adalah hanya nomer petak yang mempunyai atribut > tgl giling 5 jun 2010 > > Ketika saya filter untuk nomer petak 1000, maka yang muncul adalah : > - total nomer petak 1000 pada tgl 5 jun 2010 > - total nomer petak 1000 pada tgl 6 jun 2010 > - total nomer petak 1000 pada tgl 7 jun 2010 > dst, berlaku untuk semua tgl giling > koreksi : tgl giling yang tidak ada nomer petak 1000 tidak akan > muncul, karena nomer petak yg terdapat di tiap tgl giling tidak selalu sama. > Yang sudah saya coba di file ini ketika nomer petak itu tidak ada di sebuah > tgl maka nilainya akan nol, apakah bisa seandainya data yang nilainya nol > tsb tidak ikut muncul? > ------------------------------ > ** >
