Sekali lagi saya ucapkan terimakasih banyak buat mas toby...mantap mas,pekerjaan saya jadi cepat selesai tapi harus banyak2 belajar lagi. mator sakalangkong ( saya sampaikan terimakasih )
Pada 5 Juni 2016 21.49, Toby kenzo [email protected] [belajar-excel] < [email protected]> menulis: > > > Hai Farud, > > Pernah mencoba method Odd and Even (Ganjil dan Genap)... > Berikut saya berikan contohnya. > > Semoga membantu. > > TerimaKasih. > > Sent from Yahoo Mail on Android > <http://overview.mail.yahoo.com/mobile/?.src=Android> > > ------------------------------ > * From: * farud oke [email protected] [belajar-excel] < > [email protected]>; > * To: * <[email protected]>; > * Subject: * Re: [belajar-excel] Membuat mail merge hanya sebanyak data > yang ada [1 Attachment] > * Sent: * Sun, Jun 5, 2016 11:34:23 AM > > > > Terimakasih mas toby... > langsung saya coba dan tes dan hasilnya menakjubkan mas..!! > oo iya mas ada sedikit perubahan tapi intinya sama yaitu mencetak / > membuat mail merge sesuai dengan data yang ada,tapi datanya saya bagi > dua,yg leger 1 untuk yg ganjil,yg leger 2 untuk nomer genap saja.karena > nantinya posisi marginnya mau saya buat tidak sama.untuk lebih jelasnya > file terlampir.. > dan bagi teman2 yang mau berbagi ilmunya saya ucapkan terimakasih > > 2016-06-05 16:10 GMT+07:00 Toby kenzo [email protected] > [belajar-excel] <[email protected]>: > >> >> >> Hai Farud, >> >> Yang anda maksud adalah nilai spinbotton sesuai dengan jumlah siswa yang >> ada, artinya akan berhenti jika jumlah siswa sudah sesuai.... >> >> 1. Delete linkcell pada properties spinbotton. >> 2. Buat NameManager untuk Nama siswa >> Fungsi NameManager adalah untuk membuat range yang dinamis pada >> coulumn Nama Siswa (coba lihat2 lagi di milis ini bagaimana membuat >> NameManager) >> 3. Buat event change pada SpinBotton1: >> >> Private Sub SpinButton1_Change() >> Sheet40.Range("X1").Value = Sheet40.SpinButton1.Value >> >> 4. Buat Event Change pada Worksheet : >> >> Private Sub Worksheet_Change(ByVal Target As Range) >> Dim a As String >> Dim b As Worksheet >> Dim c As Range >> >> Set b = Worksheets("siswa") '-----> Nama Sheet >> Set c = b.Range("Nama_Siswa") '-----> Nama_Siswa adalah nama pada >> NameManager >> >> a = Application.WorksheetFunction.CountA(c) >> >> >> If Intersect(Target, Range("X1")) Is Nothing Then >> Exit Sub >> ElseIf Sheet40.Range("X1").Value >= a Then >> Sheet40.SpinButton1.Max = a >> Sheet40.SpinButton1.Min = 1 >> >> End If >> End Sub >> >> Semoga bisa membantu. >> >> TerimaKasih. >> >> >> Pada Sabtu, 4 Juni 2016 19:37, "farud oke [email protected] >> [belajar-excel]" <[email protected]> menulis: >> >> >> >> terimakasih buat nang agus yang sudi merespon pertanyaan saya,filenya >> saya lampirkan sekaligus pertanyaannya.semoga nang Agus dan yang lainnya >> sudi membantu karena terus terang saya masih awam sekali tentang excel tapi >> insya Allah saya mau belajar >> sebelumnya saya ucapkan terimakasih... >> >> Pada 4 Juni 2016 08.27, Nang Agus [email protected] [belajar-excel] < >> [email protected]> menulis: >> >> >> Apakah memang disembunyikan barisnya seperti pada file terlampir? (jangan >> lupa macronya dihidupkan) >> ataukah ada pertanyaan lain? >> coba dikurangai datanya dan filenya dikirimkan ke Milis. >> >> >> 2016-06-04 7:32 GMT+07:00 Nang Agus <[email protected]>: >> >> Coba tambahkan perintah untuk menyembunyikan baris kosong tersebut. >> >> 2016-06-03 16:22 GMT+07:00 farud oke [email protected] [belajar-excel] >> <[email protected]>: >> >> >> Assalamualaikum.. >> Saya coba membuat mail merge dengan menggunakan spin button dengan nilai >> max 19 di properties,tpi ketika data siswanya kurang dari 19 ketika di klik >> next data masih muncul wlopun nama siswanya tidak ada karena memang kurang >> dari 19. >> Bagaimana caranya agar ketika siswa ada 10 maka otomatis mail mergenya >> berhenti sampai 10 saja.mohon mr.kid dan teman2 yg lain mau berbagi >> ilmunya...terimakasih >> >> >> >> >> >> >> > >
