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 >> >> > >
