Terima kasih Mba Siti begini Mba Siti No Surat tidak sama dg No List Mba, bagaiman ya merubahnya
2011/7/8 STDEV(i) <[email protected]> > ** > > > seperti ini kah yang dimaksod ?? > > 1. > perubahan data di FORM surat: hanya mengandalkan RUMUS > Rumusnya pun sangat sederhana, karena hanya sekitar Ofset-ofset-an saja... > (boleh digandi denan index-index-an (ndak usah pakai If-If-an !! he he) > > 2. > perubahan record (baris data) 1 ke berikutnya (di tabel data) dibantu > oleh > SPIN BUTTON (itu lho pak, tombol yg kalo diceklik angkanya "maju" atau > "mundur") > > 3. > Spin Butoon diberi nilai MAX = sebanyak jumlah records (agar tidak > kebablasan > merujuk ke data kosong) > lha... ini baru perlu makro !! > makro dijalankan setiap kali ada orang men-*DeAktifkan sheet Data* > (berarti baru saja melihat data, entah mengediit atau hanya melihat saja) > pokoknya urusan kita merefresh nilai MAX milis si SpinButton. > > 4. > untuk dapat mencetak secara BULK ( anda hanya membatasi NOMOR "MULAI" > dan NOMOR "SAMPAIDENGAN" juga perlu makro > > 5 > jadi ada dua kelompok makro > > 1 ada di module sheet data > > Private Sub Worksheet_Deactivate() > Dim dTabel As Range, T As Long > Set dTabel = Me.Range("D4").CurrentRegion.Offset(2, 0) > T = dTabel.Rows.Count - 2 > Sheets("contoh surat").SpinButton1.Min = 1 > Sheets("contoh surat").SpinButton1.Max = T > End Sub > > > 2 ada di module sheet FORM surat > > Private Sub Print1_Button_Click() > Me.PrintPreview > ' Me.PrintOut > End Sub > > Private Sub Print2_Button_Click() > Dim i As Long > For i = Range("N11") To Range("N13") > Range("N2") = i > Me.PrintPreview > ' Me.PrintOut > Next i > End Sub > > ' note > selama untuk coba coba pakai PrintPreview dulu > kalau sudah oke baru diganti perintah PrintOut. > > ~ siti > > > > 2011/7/8 Yusril Ramadani <[email protected]> > >> ** >> >> Dear para pakar >> Mohon bantuannya >> Saya ingin membuat surat otomatis yang seperti Mail merge di excell >> Suratnya cukup sederhana sih tapi kalau bisa dengan macro dan otomoatis >> akan sangat memudahkan >> Dengan list tabel yang ada bisa dibuat progarm untuk otomatisasi surat >> sehingga tinggal print >> Mohon solusinya para pakar >> terimakasih banyak seblumnya >> terlampir contoh sederhananya >> >> Salam >> YR >> >> >
