Terimakasih banyak atas pencerahannya mis....:-) Sent with AquaMail for Android http://www.aqua-mail.com
On October 22, 2013 10:48:03 AM Jan Raisin <miss.jan.rai...@gmail.com> wrote:
hai Bimbo, coba file terlampir.. perbaikan dilakukan pada tabel database.. database harus disusun berdasarkan kaidah data yang baik untuk laporannya menggunakan fitur Pivot Table bawaan Excel, jika format laporan tidak sesuai dengan keinginan silakan disesuaikan sendiri cara menyusun database yang baik bisa dibaca di blognya mr Kid di sini<http://excel-mr-kid.blogspot.com/2011/02/susun-data-sebagai-tabel-yang-baik.html> cara membuat Pivot Table bisa dibaca di blognya mr Kid di sini<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html> script dalam sebuah modul: Sub Simpan() Dim Tbl As Range, rgInput As Range, rng As Range Dim lTbl As Long, lData As Long Dim i As Integer Set rgInput = Range("d4:d14") With Sheets("Database") Set Tbl = .Range("_myTable_") lTbl = Tbl.Rows.Count + 1 For Each rng In rgInput lData = rng.Row If Len(rng) > 0 Then .Cells(lTbl, 1).Value = Date .Cells(lTbl, 2).Value = Range("c1").Value If Cells(lData, 1).Value = "" Then .Cells(lTbl, 3).Value = Cells(lData, 1).End(xlUp).Value Else .Cells(lTbl, 3).Value = Cells(lData, 1).Value End If If Cells(lData, 2).Value = "" Then .Cells(lTbl, 4).Value = Cells(lData, 1).Value Else .Cells(lTbl, 4).Value = Cells(lData, 2).Value End If .Cells(lTbl, 5).Value = rng.Value .Cells(lTbl, 6).Value = rng.Offset(, 1).Value .Cells(lTbl, 7).Value = rng.Offset(, 2).Value lTbl = lTbl + 1 End If Next rng End With Range("c1").ClearContents rgInput.Resize(, 2).ClearContents Sheets("Laporan").PivotTables("PivotTable1").PivotCache.Refresh End Sub Salam, -Miss Jan Raisin- Pada 22 Oktober 2013 00.04, Trio Duo <trio_bi...@yahoo.co.id> menulis: > ** > > > Dear Pada master... > Mohon Pencerahannya...saya mengalami kesulitan dalam membuat formulir > untuk input proses produksi sebagaimana file terlampir,,, > Terimakasih... > >