Formula subtotalnya diganti menjadi : =SUM(DataAsli!$D$2:INDEX(DataAsli!$D$2:$D$238,MAX($A$15:$A$58)))
Kid. On Thu, Mar 29, 2012 at 14:50, Mansor <[email protected]> wrote: > ** > > > Terima kasih Pak Kid, > > Makronya berhasil pindahkan data ke formulir. > Hanya yang satu masih kendala, amaunnya harus kumulatif dari halaman > sebelumnya. > Contohnya jika berada di halaman 3, totalnya adalah dari halaman 1 > sehingga 3. > > Mohon pencerahannya. > > Terima kasih > Mansor > > > > On Thu, Mar 29, 2012 at 2:52 PM, Kid Mr. <[email protected]> wrote: > >> ** >> >> >> Pak Mansor, >> >> Butuh cell bantu untuk memudahkan proses. Cell bantu berupa jumlah >> records, total halaman, dan halaman yang aktif. >> >> Nomor disusun dengan formula : (berdasar cell bantu total halaman dan >> halaman yang aktif) >> >> =IF(($O$3-1)*22+(ROW(A15)-ROW($A$13))/2<=$O$1,($O$3-1)*22+(ROW(A15)-ROW($A$13))/2,"") >> >> Data disusun dengan formula Index memanfaatkan kolom nomor. >> >> Setelah itu, dibuat sebuah prosedur untuk menjalankan proses print. >> Public Sub PrintApaHayo() >> Dim lPage As Long >> If Range("o2").Value > 0 Then >> Range("o3").Value = 1 >> For lPage = 1 To Range("o2").Value >> ActiveSheet.Calculate >> Range("a1:j69").PrintPreview 'ganti printpreview jadi >> printout untuk kirim ke printer >> Range("o3").Value = lPage + 1 >> If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo >> + vbQuestion, "Cetak") = vbNo Then >> Exit For >> End If >> Next lPage >> End If >> End Sub >> >> Wassalam. >> Kid. >> >> >> >> On Thu, Mar 29, 2012 at 11:18, Mansor <[email protected]> wrote: >> >>> ** >>> >>> >>> >>> >>> Para suhu BeExcel, >>> >>> Gimana makronya. >>> >>> >>> Mengisi formulir ini dengan mengambil data dari Sheet data asli. >>> >>> Satu halaman fomulir hanya menampung 22 ROW data. >>> >>> Data seterusnya akan ditampung oleh formulir yang berikutnya. >>> >>> Jumlah amaun di total perhalaman + halaman sebelumnya. >>> >>> File dilampirkan. >>> >>> Terima kasih. >>> >>> Mansor >>> >>> >>> *Daftar nama* ** *Seksyen 10 (1)* ** ** ** ** ** ** ** *DAFTAR >>> NAMA PENERIMA * ** Pada 31 Disember …………... Bitmap >>> Bil Nama ID Amaun *REMARK* * * * * atau paspor (USD) *(CATATAN)* >>> 1 ABDUL JALIL BIN HASSAN 0514255 35.00 2 ABDUL JALIL >>> BIN HASSAN 10169194 180.00 3 ABDUL SATAR BIN IDRUS >>> 23529930 175.00 4 ABDUL WAHAB ABD AZIZ 30616494 232.00 >>> 5 ABD RAUF MAHMUD 41699144 20.00 6 ABDUL >>> LATIF BIN HARUN 69993301 30.00 7 ABDULLAH HASHIM >>> 69993301 100.00 8 ABD RASID B DAUD 419995516 77.76 >>> 9 Hady Widjaya 976665544 77.76 10 Iyan >>> 976665548 77.76 11 Sulistio Wahono 976665544 77.76 >>> >>> >> > >
