15 New Messages
Digest #2376
Messages
Mon Jun 24, 2013 9:22 pm (PDT) . Posted by:
"Jan Raisin"
Pak Rudi,
silakan dicoba dulu cara berikut ini, maaf sebelumnya belum sempat untuk
menyusun scriptnya dan tidak melampirkan file yang berisi solusi ^_^
asumsi: header data di baris 1, data mulai di baris 2 ke arah bawah
Karena akan melakukan cetak banyak 100 data atau lebuh setiap kelipatan 6,
maka dibutuhkan sebuah variabel untuk menghitung berapa kali cetak sudah
dilakukan, variabel ini juga akan berfungsi untuk mendapatkan posisi baris
data yang akan dicetak.
Misal nama variabelnya adalah iCnt bertipe Integer, pada saat mulai cetak
nilainya akan = 0 (Nol) dan posisi baris data yang diambil adalah 1 sampai
6, berarti di sini akan ada Loop untuk mengambil baris data dengan rumus,
nomor baris = iCnt + i + 1
Itu kalo cetaknya mulai posisi record pertama, lalu gimana kalo cetaknya
mulai posisi record 19 atau record ke sekian ? untuk hal ini maka harus ada
variabel yang menyimpan nomor record data pertama, misal lFirst dengan tipe
data adalah Long Integer.
Maka cara mengambil posisi baris datanya adalah, nilai baris data = lFirst
+ iCnt + i - 1
Setelah mengetahui posisi baris data yang akan dicetak, masukkan nilai
setiap data ke dalam template untuk dicetak, bisa langsung atau melalui
array atau pun langsung ke worksheet
Setelah memasukkan data ke template dan sebelum posisi printout atau print
preview, nilia iCnt yang tadi harus ditambah dengan nilai 1 (Satu)
Gimana pak? semoga bisa ya ^_^
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
* * Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
Pada 24 Juni 2013 19.43, Rudi Anto <rudi.excel@yahoo.com > menulis:
> **
>
>
>
>
> Selamat malam u/ rekan2 BeExcel,
> Smoga tambah pinter smuanya.. Aamiin.
>
> nih file kok ga bisa saya print sesuai harapan ya,
> saya kpingin :
>
> - Ketika saya isi RowIndex, Print_Area terisi record dari 1 sampai 6
> begitu seterusnya kelipatan 6
>
> Bagaimana jika saya nyetak dari record 1-100 yang kluar ya
> kelipatan 6.
>
> wadoh susah mau jabarkan isi otak.
> file attachment saya lampirkan ya,
> klo ada yang bisa dirubah, monggo dirubah :)
>
> sebelumnya saya ucapkan terima kasih,
> monggo dibantu saya ya.
>
> ++rudi
>
>
silakan dicoba dulu cara berikut ini, maaf sebelumnya belum sempat untuk
menyusun scriptnya dan tidak melampirkan file yang berisi solusi ^_^
asumsi: header data di baris 1, data mulai di baris 2 ke arah bawah
Karena akan melakukan cetak banyak 100 data atau lebuh setiap kelipatan 6,
maka dibutuhkan sebuah variabel untuk menghitung berapa kali cetak sudah
dilakukan, variabel ini juga akan berfungsi untuk mendapatkan posisi baris
data yang akan dicetak.
Misal nama variabelnya adalah iCnt bertipe Integer, pada saat mulai cetak
nilainya akan = 0 (Nol) dan posisi baris data yang diambil adalah 1 sampai
6, berarti di sini akan ada Loop untuk mengambil baris data dengan rumus,
nomor baris = iCnt + i + 1
Itu kalo cetaknya mulai posisi record pertama, lalu gimana kalo cetaknya
mulai posisi record 19 atau record ke sekian ? untuk hal ini maka harus ada
variabel yang menyimpan nomor record data pertama, misal lFirst dengan tipe
data adalah Long Integer.
Maka cara mengambil posisi baris datanya adalah, nilai baris data = lFirst
+ iCnt + i - 1
Setelah mengetahui posisi baris data yang akan dicetak, masukkan nilai
setiap data ke dalam template untuk dicetak, bisa langsung atau melalui
array atau pun langsung ke worksheet
Setelah memasukkan data ke template dan sebelum posisi printout atau print
preview, nilia iCnt yang tadi harus ditambah dengan nilai 1 (Satu)
Gimana pak? semoga bisa ya ^_^
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
* * Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
Pada 24 Juni 2013 19.43, Rudi Anto <rudi.excel@yahoo.
> **
>
>
>
>
> Selamat malam u/ rekan2 BeExcel,
> Smoga tambah pinter smuanya.. Aamiin.
>
> nih file kok ga bisa saya print sesuai harapan ya,
> saya kpingin :
>
> - Ketika saya isi RowIndex, Print_Area terisi record dari 1 sampai 6
> begitu seterusnya kelipatan 6
>
> Bagaimana jika saya nyetak dari record 1-100 yang kluar ya
> kelipatan 6.
>
> wadoh susah mau jabarkan isi otak.
> file attachment saya lampirkan ya,
> klo ada yang bisa dirubah, monggo dirubah :)
>
> sebelumnya saya ucapkan terima kasih,
> monggo dibantu saya ya.
>
> ++rudi
>
>
Mon Jun 24, 2013 9:55 pm (PDT) . Posted by:
"Jan Raisin"
Barusan Jan jalan-jalan ke nabble tempat back up arsip milis disimpan,
lihat ke halaman paling bawah ada sebuah iklan kursus VBA dengan harga yang
sangat fantastis (menurut pendapat pribadi Jan) untuk kegiatan selama 2
hari.
[Maaf, bukan bermaksud untuk promosi atau menjelekan si penyelenggara]
Jadi, akankah di kegiatan kopdar berikutnya Be-Exceller masih ragu untuk
hadir?
Salam,
-MJR-
​masih menyesal tidak bisa ikutan kopdar hiks.. T__T​
Pada 25 Juni 2013 11.13, Aliif Akbar <aliif.akbar@yahoo.co.id > menulis:
> **
>
>
> Saya in syaa Alloh tetep ikut,.. Ngakak keluarga boleh kan yaaaa? 😃
>
>
> Aliif Akbar
> Sent from my Windows Phone Lumia 620
> ------------------------------
> From: hendrik karnadi <hendrikkarnadi@yahoo.com >
> Sent: ‎25/‎06/‎2013 10:02
> To: belajar-excel@yahoogroups.com
>
> Subject: Re: [belajar-excel] Suasana belajar milis Excel
>
>
>
> Jogja atawe Bandung ane ikut aje.
>
> Salam
> HK
>
> ------------------------------
>
lihat ke halaman paling bawah ada sebuah iklan kursus VBA dengan harga yang
sangat fantastis (menurut pendapat pribadi Jan) untuk kegiatan selama 2
hari.
[Maaf, bukan bermaksud untuk promosi atau menjelekan si penyelenggara]
Jadi, akankah di kegiatan kopdar berikutnya Be-Exceller masih ragu untuk
hadir?
Salam,
-MJR-
​masih menyesal tidak bisa ikutan kopdar hiks.. T__T​
Pada 25 Juni 2013 11.13, Aliif Akbar <aliif.akbar@
> **
>
>
> Saya in syaa Alloh tetep ikut,.. Ngakak keluarga boleh kan yaaaa? 😃
>
>
> Aliif Akbar
> Sent from my Windows Phone Lumia 620
> ------------
> From: hendrik karnadi <hendrikkarnadi@
> Sent: ‎25/‎06/‎2013 10:02
> To: belajar-excel@
>
> Subject: Re: [belajar-excel] Suasana belajar milis Excel
>
>
>
> Jogja atawe Bandung ane ikut aje.
>
> Salam
> HK
>
> ------------
>
Mon Jun 24, 2013 10:07 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
sekedar usul saja,
kita sudah ada http://b-excel.blogspot.com/ mari kita isi topic tentang vba
wassalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Jan Raisin
Sent: Tuesday, June 25, 2013 11:56 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Barusan Jan jalan-jalan ke nabble tempat back up arsip milis disimpan, lihat ke halaman paling bawah ada sebuah iklan kursus VBA dengan harga yang sangat fantastis (menurut pendapat pribadi Jan) untuk kegiatan selama 2 hari.
[Maaf, bukan bermaksud untuk promosi atau menjelekan si penyelenggara]
Jadi, akankah di kegiatan kopdar berikutnya Be-Exceller masih ragu untuk hadir?
Salam,
-MJR-
​masih menyesal tidak bisa ikutan kopdar hiks.. T__T​
Pada 25 Juni 2013 11.13, Aliif Akbar <aliif.akbar@yahoo.co.id > menulis:
Saya in syaa Alloh tetep ikut,.. Ngakak keluarga boleh kan yaaaa? 😃
Aliif Akbar
Sent from my Windows Phone Lumia 620
________________________________________
From: hendrik karnadi
Sent: ‎25/‎06/‎2013 10:02
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Jogja atawe Bandung ane ikut aje.
Salam
HK
________________________________________
kita sudah ada http://b-excel.
wassalam
-zainul-
From: belajar-excel@
Sent: Tuesday, June 25, 2013 11:56 AM
To: belajar-excel@
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Barusan Jan jalan-jalan ke nabble tempat back up arsip milis disimpan, lihat ke halaman paling bawah ada sebuah iklan kursus VBA dengan harga yang sangat fantastis (menurut pendapat pribadi Jan) untuk kegiatan selama 2 hari.
[Maaf, bukan bermaksud untuk promosi atau menjelekan si penyelenggara]
Jadi, akankah di kegiatan kopdar berikutnya Be-Exceller masih ragu untuk hadir?
Salam,
-MJR-
​masih menyesal tidak bisa ikutan kopdar hiks.. T__T​
Pada 25 Juni 2013 11.13, Aliif Akbar <aliif.akbar@
Saya in syaa Alloh tetep ikut,.. Ngakak keluarga boleh kan yaaaa? 😃
Aliif Akbar
Sent from my Windows Phone Lumia 620
____________
From: hendrik karnadi
Sent: ‎25/‎06/‎2013 10:02
To: belajar-excel@
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Jogja atawe Bandung ane ikut aje.
Salam
HK
____________
Tue Jun 25, 2013 12:36 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Kopdar berikutnya ikut aja. Selagi masih di pulau jawa diusahain dateng
Kalo diluar jawa takut naik pesawat (padahal alibi)
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, June 25, 2013 10:02 AM
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Â
Jogja atawe Bandung ane ikut aje.
Salam
HK
________________________________
From: aji mumpung <pupung1986@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 25 June 2013, 9:34
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Â
Selamat kepada Be-Exceller yang telah berhasil melakukan kopdar pertamanya.
+1 suara lagi untuk lokasi kopdar #2 di Jogja.
Ada baiknya nanti saat kopdar berikutnya semua member sudah memakai seragam yang sama agar tampak lebih kompak dan mudah dikenali saat berada di keramaian.
Jadi yang ingin memiliki seragam untuk kopdar berikutnya silakan melakukan pemesanan sebagaimana telah diumumkan oleh panitia kopdar #1 di link berikut http://tech.groups.yahoo.com/group/belajar-excel/message/25997
Wassalamu'alaikum wr. wb.,
-Aji Mumpung-
Pada 24 Juni 2013 23.52, Mr. Kid <mr.nmkid@gmail.com > menulis:
>Â
>Dear BeExceller,
>
>Alhamdulillah acara kopdar#1 bisa berlangsung dengan lancar.
>Terimakasih atas seluruh apresiasi dan atensi BeExceller, terutama para peserta acara KopDar#1.
>
>
>
>Salut untuk para panitia KopDar#1, dengan kesulitan mencari ruang dan mepetnya waktu, acara KopDar#1 bisa berjalan dengan lancar.
>
>Pengalaman pertama akan menjadi modal utama untuk acara-acara selanjutnya.
>
>
>Mohon maaf bila masih ada kekurangan disana sini ataupun sono...
>
>Insya Allah pada acara BeExceller berikutnya (entah BelajarBersama atau KopDar#2 -> BeExceller pilih yang mana duluan ?) bisa terselenggara lebih baik dari KopDar#1.
>
>
>
>Waktu acara memang singkat, karena ijin pemakaian ruang yang terbatas.
>Bagaimana kalau kopdar#2 kita adakan 3 hari 3 malem khusus untuk materi dan chit chat (padahal sehari semalem dari jam 9 sampai jam 21 untuk bahas Excel udah bisa bikin mual karena puyeng).
>Lokasinya di Jogja aja gimana ? Sekalian jalan-jalan bareng keliling Jogja.... (biasanya 3 hari buat jalan-jalan di jogja pun tetep kurang waktunya)
>
>
>Moga-moga, acara kopdar#2 nanti semakin bisa mempererat silaturahmi antar BeExceller (Kid yang segede gajah jangan jadi penghalang untuk ikut di acara milis selanjutnya loh ya).
>
>Mari kita tingkatkan semangat belajar dan berbaginya. Excel itu gampang, tetapi tidak gampangan.
>
>Semakin banyak berbagi (posting urun solusi), Insya Allah akan semakin banyak pengetahuan Excel yang didapatkan.
>
>
>
>Oh iya,
>
>Bang Haer sudah membuatkan blog untuk BeExcel di http://b-excel.blogspot.com/
>
>Yang punya tulisan tentang Excel, sila posting ke moderator untuk di-post ke blog.
>
>
>
>cemunguuud...
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>2013/6/22 Aliif Akbar <aliif.akbar@yahoo.co.id >
>
>
>>Â
>>Ini yang tidak sempat datang di acara kopdar, mr.kid sedang ngemeng ngemeng,
>>Rame lho,....
>>
>>
>>Aliif Akbar
>>Sent from my Windows Phone Lumia 620
>
Kalo diluar jawa takut naik pesawat (padahal alibi)
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, June 25, 2013 10:02 AM
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Â
Jogja atawe Bandung ane ikut aje.
Salam
HK
____________
From: aji mumpung <pupung1986@gmail.
To: belajar-excel@
Sent: Tuesday, 25 June 2013, 9:34
Subject: Re: [belajar-excel] Suasana belajar milis Excel
Â
Selamat kepada Be-Exceller yang telah berhasil melakukan kopdar pertamanya.
+1 suara lagi untuk lokasi kopdar #2 di Jogja.
Ada baiknya nanti saat kopdar berikutnya semua member sudah memakai seragam yang sama agar tampak lebih kompak dan mudah dikenali saat berada di keramaian.
Jadi yang ingin memiliki seragam untuk kopdar berikutnya silakan melakukan pemesanan sebagaimana telah diumumkan oleh panitia kopdar #1 di link berikut http://tech.
Wassalamu'
-Aji Mumpung-
Pada 24 Juni 2013 23.52, Mr. Kid <mr.nmkid@gmail.
>Â
>Dear BeExceller,
>
>Alhamdulillah acara kopdar#1 bisa berlangsung dengan lancar.
>Terimakasih atas seluruh apresiasi dan atensi BeExceller, terutama para peserta acara KopDar#1.
>
>
>
>Salut untuk para panitia KopDar#1, dengan kesulitan mencari ruang dan mepetnya waktu, acara KopDar#1 bisa berjalan dengan lancar.
>
>Pengalaman pertama akan menjadi modal utama untuk acara-acara selanjutnya.
>
>
>Mohon maaf bila masih ada kekurangan disana sini ataupun sono...
>
>Insya Allah pada acara BeExceller berikutnya (entah BelajarBersama atau KopDar#2 -> BeExceller pilih yang mana duluan ?) bisa terselenggara lebih baik dari KopDar#1.
>
>
>
>Waktu acara memang singkat, karena ijin pemakaian ruang yang terbatas.
>Bagaimana kalau kopdar#2 kita adakan 3 hari 3 malem khusus untuk materi dan chit chat (padahal sehari semalem dari jam 9 sampai jam 21 untuk bahas Excel udah bisa bikin mual karena puyeng).
>Lokasinya di Jogja aja gimana ? Sekalian jalan-jalan bareng keliling Jogja.... (biasanya 3 hari buat jalan-jalan di jogja pun tetep kurang waktunya)
>
>
>Moga-moga, acara kopdar#2 nanti semakin bisa mempererat silaturahmi antar BeExceller (Kid yang segede gajah jangan jadi penghalang untuk ikut di acara milis selanjutnya loh ya).
>
>Mari kita tingkatkan semangat belajar dan berbaginya. Excel itu gampang, tetapi tidak gampangan.
>
>Semakin banyak berbagi (posting urun solusi), Insya Allah akan semakin banyak pengetahuan Excel yang didapatkan.
>
>
>
>Oh iya,
>
>Bang Haer sudah membuatkan blog untuk BeExcel di http://b-excel.
>
>Yang punya tulisan tentang Excel, sila posting ke moderator untuk di-post ke blog.
>
>
>
>cemunguuud.
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>2013/6/22 Aliif Akbar <aliif.akbar@
>
>
>>Â
>>Ini yang tidak sempat datang di acara kopdar, mr.kid sedang ngemeng ngemeng,
>>Rame lho,....
>>
>>
>>Aliif Akbar
>>Sent from my Windows Phone Lumia 620
>
Mon Jun 24, 2013 10:26 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("JURNAL").Select
If WorksheetFunction.Sum(Range("Debit";)) <> _
WorksheetFunction.Sum(Range("Kredit")) Then
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI", _
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Private Sub Workbook_BeforeClos
Sheets("
If WorksheetFunction.
WorksheetFunction.
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI"
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Mon Jun 24, 2013 10:35 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Â
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Sheets("JURNAL").Select
  If WorksheetFunction.Sum(Range("Debit";)) <> _
  WorksheetFunction.Sum(Range("Kredit")) Then
    MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
    "SILA DICEK KEMBALI", _
    vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
    Cancel = True
  End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Â
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClos
  Sheets("
  If WorksheetFunction.
  WorksheetFunction.
    MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
    "SILA DICEK KEMBALI"
    vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
    Cancel = True
  End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Mon Jun 24, 2013 11:14 pm (PDT) . Posted by:
"Bagus" bagus4bls
Dear Pak Hendrik..
Dari scrip dibawah yg berbunyi "WorksheetFunction.Sum(Range("Debit")) <> _ WorksheetFunction.Sum(Range("Kredit"))
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit".
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!$B$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 18.236.136 (Array Formula)
Range kredit adalah =OFFSET(JURNAL!$C$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 0 (Array Formula)
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi
To: belajar-excel@yahoogroups.com
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("JURNAL").Select
If WorksheetFunction.Sum(Range("Debit";)) <> _
WorksheetFunction.Sum(Range("Kredit")) Then
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI", _
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Dari scrip dibawah yg berbunyi "WorksheetFunc
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit"
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!
Range kredit adalah =OFFSET(JURNAL!
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi
To: belajar-excel@
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClos
Sheets("
If WorksheetFunction.
WorksheetFunction.
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI"
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Mon Jun 24, 2013 11:55 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear Pak Bagus,
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String", sel kosong pada kolom B dan C sudah saya delete dan saya juga sudah mencari "Null String" dengan Ctrl F namun tidak menemukannya.
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HKÂ
________________________________
From: Bagus <bagus@kingjim.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Â

Dear Pak Hendrik..
Â
Dari scrip dibawah yg berbunyi "WorksheetFunction.Sum(Range("Debit")) <> _ WorksheetFunction.Sum(Range("Kredit"))
Â
kalo saya artikan adalah membandingkan "range
debet" dengan "range kredit".
Â
Sedangkan kalau dilihat pada Define name,
maka:
Range debet adalah
=OFFSET(JURNAL!$B$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 18.236.136
(Array Formula)
Range kredit adalah
=OFFSET(JURNAL!$C$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 0 (Array
Formula)
Ini artinya file tidak bisa ditutup.
Â
Memang kalau di sum pada Colom B (Bukan Range
Debet)Â hasilnya sama dengan colom C (Bukan Range kredit)Â yang artinya
file bisa ditutup
Â
Mungkin ini yg menyebabkan file ini tidak bisa di
close pak..
Â
Ini cuma menurut logika saya saja pak, karena saya
buta dengan VBA Excel.
Â
Mohon maaf kalo Ngawur...
Â
      Â
Wassalam
~ Bagus~
Â
Â
----- Original Message -----
>From: hendrik karnadi
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, June 25, 2013 12:35 PM
>Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
>
>Â
>Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
>
>
>Salam,
>HK
>
>
>
>
>----- Forwarded Message -----
>From: hendrik karnadi <hendrikkarnadi@yahoo.com >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Tuesday, 25 June 2013, 12:26
>Subject: [belajar-excel] Kasus1_file ga bisa ditutup
>
>
>
>Â
>Coba copy macro ini pada VBE Sheet (Workbook),
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>Â Â Sheets("JURNAL").Select
>Â Â If WorksheetFunction.Sum(Range("Debit";)) <> _
>Â Â WorksheetFunction.Sum(Range("Kredit")) Then
>Â Â Â Â MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
>Â Â Â Â "SILA DICEK KEMBALI", _
>Â Â Â Â vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
>Â Â Â Â Cancel = True
>Â Â End If
>End
Sub
>
>
>dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
>
>
>Pertanyaannya:
>Mengapa ?
>
>
>Salam,
>HK
>
>
>Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
>
>
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String"
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HKÂ
____________
From: Bagus <bagus@kingjim.
To: belajar-excel@
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Â

Dear Pak Hendrik..
Â
Dari scrip dibawah yg berbunyi "WorksheetFunc
Â
kalo saya artikan adalah membandingkan "range
debet" dengan "range kredit"
Â
Sedangkan kalau dilihat pada Define name,
maka:
Range debet adalah
=OFFSET(JURNAL!
(Array Formula)
Range kredit adalah
=OFFSET(JURNAL!
Formula)
Ini artinya file tidak bisa ditutup.
Â
Memang kalau di sum pada Colom B (Bukan Range
Debet)Â hasilnya sama dengan colom C (Bukan Range kredit)Â yang artinya
file bisa ditutup
Â
Mungkin ini yg menyebabkan file ini tidak bisa di
close pak..
Â
Ini cuma menurut logika saya saja pak, karena saya
buta dengan VBA Excel.
Â
Mohon maaf kalo Ngawur...
Â
      Â
Wassalam
~ Bagus~
Â
Â
----- Original Message -----
>From: hendrik karnadi
>To: belajar-excel@
>Sent: Tuesday, June 25, 2013 12:35 PM
>Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
>
>Â
>Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
>
>
>Salam,
>HK
>
>
>
>
>----- Forwarded Message -----
>From: hendrik karnadi <hendrikkarnadi@
>To: "belajar-excel@
>Sent: Tuesday, 25 June 2013, 12:26
>Subject: [belajar-excel] Kasus1_file ga bisa ditutup
>
>
>
>Â
>Coba copy macro ini pada VBE Sheet (Workbook),
>Private Sub Workbook_BeforeClos
>Â Â Sheets("
>Â Â If WorksheetFunction.
>Â Â WorksheetFunction.
>Â Â Â Â MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
>Â Â Â Â "SILA DICEK KEMBALI"
>Â Â Â Â vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
>Â Â Â Â Cancel = True
>Â Â End If
>End
Sub
>
>
>dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
>
>
>Pertanyaannya:
>Mengapa ?
>
>
>Salam,
>HK
>
>
>Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
>
>
Tue Jun 25, 2013 12:02 am (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
Pak Hendrik,
Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
thanks
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of hendrik karnadi
Sent: Tuesday, June 25, 2013 1:56 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Dear Pak Bagus,
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String", sel kosong pada kolom B dan C sudah saya delete dan saya juga sudah mencari "Null String" dengan Ctrl F namun tidak menemukannya.
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HK
_____
From: Bagus <bagus@kingjim.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup

Dear Pak Hendrik..
Dari scrip dibawah yg berbunyi "WorksheetFunction.Sum(Range("Debit")) <> _ WorksheetFunction.Sum(Range("Kredit"))
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit".
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!$B$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 18.236.136 (Array Formula)
Range kredit adalah =OFFSET(JURNAL!$C$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 0 (Array Formula)
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi <mailto:hendrikkarnadi@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("JURNAL").Select
If WorksheetFunction.Sum(Range("Debit";)) <> _
WorksheetFunction.Sum(Range("Kredit")) Then
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI", _
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
thanks
-zainul-
From: belajar-excel@
Sent: Tuesday, June 25, 2013 1:56 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Dear Pak Bagus,
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String"
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HK
_____
From: Bagus <bagus@kingjim.
To: belajar-excel@
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup

Dear Pak Hendrik..
Dari scrip dibawah yg berbunyi "WorksheetFunc
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit"
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!
Range kredit adalah =OFFSET(JURNAL!
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi <mailto:hendrikkarnadi@
To: belajar-excel@
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClos
Sheets("
If WorksheetFunction.
WorksheetFunction.
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI"
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Tue Jun 25, 2013 12:08 am (PDT) . Posted by:
"Jan Raisin"
Kebetulan pak Zainul Ulum sudah mencobanya dan tidak ada masalah yang
ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk
menjalankan script Jan, lalu tolong di share ke sini screen shoot di
komputer masing-masing agar bisa kita bandingkan dan mencari tahu
penyebabnya.
Tolong juga disertakan Office yang dipakai dan SP berapa.
scriptnya sbb:
Sub test()
Dim lRow As Long
Dim dDb As Double, dCr As Double, dSelisih As Double
Dim msg As String
Sheets("JURNAL").Select
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 2), Cells(lRow, 2)).Name = "rgDb"
Range(Cells(2, 3), Cells(lRow, 3)).Name = "rgCr"
dDb = Application.WorksheetFunction.Sum(Range("rgDb"))
dCr = Application.WorksheetFunction.Sum(Range("rgCr"))
dSelisih = dDb - dCr
If dDb = dCr Then
MsgBox "Sama", vbOKOnly, "Result"
Else
MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
End If
End Sub
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 25 Juni 2013 14.01, zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com
> menulis:
> **
>
>
> Pak Hendrik,****
>
> Saya coba macronya di computerku, tidak ada pesan yang dimaksud.****
>
> thanks****
>
> -zainul-****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *hendrik karnadi
> *Sent:* Tuesday, June 25, 2013 1:56 PM
> *To:* belajar-excel@yahoogroups.com
>
> *Subject:* Re: [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
> Dear Pak Bagus,****
>
> ** **
>
> Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah
> sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.****
>
> ** **
>
> Untuk mencegah adanya "Null String", sel kosong pada kolom B dan C sudah
> saya delete dan saya juga sudah mencari "Null String" dengan Ctrl F namun
> tidak menemukannya.****
>
> ** **
>
> Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk
> menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
> ****
>
> ** **
>
> Terima kasih.****
>
> ** **
>
> Salam,****
>
> HK ****
>
> ** **
>
> ** **
> ------------------------------
>
> *From:* Bagus <bagus@kingjim.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, 25 June 2013, 13:14
> *Subject:* Re: [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
>  ****
>
> Dear Pak Hendrik..****
>
> ****
>
> Dari scrip dibawah yg berbunyi "WorksheetFunction.Sum(Range("Debit")) <>
> _ WorksheetFunction.Sum(Range("Kredit"))****
>
> ****
>
> kalo saya artikan adalah membandingkan "range debet" dengan "range kredit".
> ****
>
> ****
>
> Sedangkan kalau dilihat pada Define name, maka:****
>
> Range debet adalah =OFFSET(JURNAL!$B$2,0,0,*COUNTA(JURNAL!$A:$A)-1*,1)
> akan menghasilkan 18.236.136 (Array Formula)****
>
> Range kredit adalah =OFFSET(JURNAL!$C$2,0,0,*COUNTA(JURNAL!$A:$A)-1,*1*)*akan menghasilkan 0 (Array Formula)
> ****
>
> Ini artinya file tidak bisa ditutup.****
>
> ****
>
> Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan
> colom C (Bukan Range kredit) yang artinya file bisa ditutup****
>
> ****
>
> Mungkin ini yg menyebabkan file ini tidak bisa di close pak..****
>
> ****
>
> Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.*
> ***
>
> ****
>
> Mohon maaf kalo Ngawur...****
>
> ****
>
> ****
>
> Wassalam****
>
> ~ Bagus ~****
>
> ****
>
> ****
>
> ----- Original Message ----- ****
>
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com > ****
>
> *To:* belajar-excel@yahoogroups.com ****
>
> *Sent:* Tuesday, June 25, 2013 12:35 PM****
>
> *Subject:* Fw: [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
> Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus
> saja macronya (atau diberi tanda *'*).****
>
> ** **
>
> Salam,****
>
> HK****
>
> ** **
>
> ** **
>
> ----- Forwarded Message -----
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Tuesday, 25 June 2013, 12:26
> *Subject:* [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
> Coba copy macro ini pada VBE Sheet (Workbook),****
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)****
>
> Sheets("JURNAL").Select****
>
> If WorksheetFunction.Sum(Range("Debit";)) <> _****
>
> WorksheetFunction.Sum(Range("Kredit")) Then****
>
> MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _*
> ***
>
> "SILA DICEK KEMBALI", _****
>
> vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"****
>
> Cancel = True****
>
> End If****
>
> End Sub****
>
> ** **
>
> dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka
> akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit,
> padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot
> kolom maka jumlah debit = kredit****
>
> ** **
>
> Pertanyaannya:****
>
> Mengapa ?****
>
> ** **
>
> Salam,****
>
> HK****
>
> ** **
>
> Pertanyaan ini datang dari seorang anak buah yang belum saya temukan
> jawabannya****
>
> ** **
>
> ** **
>
> ****
>
>
>
ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk
menjalankan script Jan, lalu tolong di share ke sini screen shoot di
komputer masing-masing agar bisa kita bandingkan dan mencari tahu
penyebabnya.
Tolong juga disertakan Office yang dipakai dan SP berapa.
scriptnya sbb:
Sub test()
Dim lRow As Long
Dim dDb As Double, dCr As Double, dSelisih As Double
Dim msg As String
Sheets("
lRow = Cells(Rows.Count, 1).End(xlUp)
Range(Cells(
Range(Cells(
dDb = Application.
dCr = Application.
dSelisih = dDb - dCr
If dDb = dCr Then
MsgBox "Sama"
Else
MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
End If
End Sub
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 25 Juni 2013 14.01, zainul_ulum[
> menulis:
> **
>
>
> Pak Hendrik,****
>
> Saya coba macronya di computerku, tidak ada pesan yang dimaksud.***
>
> thanks****
>
> -zainul-****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* Tuesday, June 25, 2013 1:56 PM
> *To:* belajar-excel@
>
> *Subject:* Re: [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
> Dear Pak Bagus,****
>
> ** **
>
> Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah
> sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.****
>
> ** **
>
> Untuk mencegah adanya "Null String"
> saya delete dan saya juga sudah mencari "Null String" dengan Ctrl F namun
> tidak menemukannya.
>
> ** **
>
> Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk
> menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
> ****
>
> ** **
>
> Terima kasih.****
>
> ** **
>
> Salam,****
>
> HK ****
>
> ** **
>
> ** **
> ------------
>
> *From:* Bagus <bagus@kingjim.
> *To:* belajar-excel@
> *Sent:* Tuesday, 25 June 2013, 13:14
> *Subject:* Re: [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
>  ****
>
> Dear Pak Hendrik..***
>
> ****
>
> Dari scrip dibawah yg berbunyi "WorksheetFunc
> _ WorksheetFunction.
>
> ****
>
> kalo saya artikan adalah membandingkan "range debet" dengan "range kredit"
> ****
>
> ****
>
> Sedangkan kalau dilihat pada Define name, maka:****
>
> Range debet adalah =OFFSET(JURNAL!
> akan menghasilkan 18.236.136 (Array Formula)****
>
> Range kredit adalah =OFFSET(JURNAL!
> ****
>
> Ini artinya file tidak bisa ditutup.****
>
> ****
>
> Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan
> colom C (Bukan Range kredit) yang artinya file bisa ditutup****
>
> ****
>
> Mungkin ini yg menyebabkan file ini tidak bisa di close pak..****
>
> ****
>
> Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.*
> ***
>
> ****
>
> Mohon maaf kalo Ngawur...***
>
> ****
>
> ****
>
> Wassalam****
>
> ~ Bagus ~****
>
> ****
>
> ****
>
> ----- Original Message ----- ****
>
> *From:* hendrik karnadi <hendrikkarnadi@
>
> *To:* belajar-excel@
>
> *Sent:* Tuesday, June 25, 2013 12:35 PM****
>
> *Subject:* Fw: [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
> Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus
> saja macronya (atau diberi tanda *'*).***
>
> ** **
>
> Salam,****
>
> HK****
>
> ** **
>
> ** **
>
> ----- Forwarded Message -----
> *From:* hendrik karnadi <hendrikkarnadi@
> *To:* "belajar-excel@
> *Sent:* Tuesday, 25 June 2013, 12:26
> *Subject:* [belajar-excel] Kasus1_file ga bisa ditutup****
>
> ** **
>
> ****
>
> Coba copy macro ini pada VBE Sheet (Workbook),*
>
> Private Sub Workbook_BeforeClos
>
> Sheets("
>
> If WorksheetFunction.
>
> WorksheetFunction.
>
> MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _*
> ***
>
> "SILA DICEK KEMBALI"
>
> vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
>
> Cancel = True****
>
> End If****
>
> End Sub****
>
> ** **
>
> dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka
> akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit,
> padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot
> kolom maka jumlah debit = kredit****
>
> ** **
>
> Pertanyaannya:
>
> Mengapa ?****
>
> ** **
>
> Salam,****
>
> HK****
>
> ** **
>
> Pertanyaan ini datang dari seorang anak buah yang belum saya temukan
> jawabannya**
>
> ** **
>
> ** **
>
> ****
>
>
>
Tue Jun 25, 2013 12:29 am (PDT) . Posted by:
"Bagus" bagus4bls
Dear Miss Jan;
Dari scrip dibawah, saya jalankan di Excel 2003 menghasilkan pesan berikut:
Wassalam
~ Bagus ~
----- Original Message -----
From: Jan Raisin
To: belajar-excel@yahoogroups.com
Sent: Tuesday, June 25, 2013 2:08 PM
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Kebetulan pak Zainul Ulum sudah mencobanya dan tidak ada masalah yang ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk menjalankan script Jan, lalu tolong di share ke sini screen shoot di komputer masing-masing agar bisa kita bandingkan dan mencari tahu penyebabnya.
Tolong juga disertakan Office yang dipakai dan SP berapa.
scriptnya sbb:
Sub test()
Dim lRow As Long
Dim dDb As Double, dCr As Double, dSelisih As Double
Dim msg As String
Sheets("JURNAL").Select
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 2), Cells(lRow, 2)).Name = "rgDb"
Range(Cells(2, 3), Cells(lRow, 3)).Name = "rgCr"
dDb = Application.WorksheetFunction.Sum(Range("rgDb"))
dCr = Application.WorksheetFunction.Sum(Range("rgCr"))
dSelisih = dDb - dCr
If dDb = dCr Then
MsgBox "Sama", vbOKOnly, "Result"
Else
MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
End If
End Sub
Salam,
-Miss Jan Raisin-
a.. Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanya ke belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member milis;
b.. Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
c.. Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
d.. Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 25 Juni 2013 14.01, zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com > menulis:
Pak Hendrik,
Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
thanks
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of hendrik karnadi
Sent: Tuesday, June 25, 2013 1:56 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Dear Pak Bagus,
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String", sel kosong pada kolom B dan C sudah saya delete dan saya juga sudah mencari "Null String" dengan Ctrl F namun tidak menemukannya.
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HK
----------------------------------------------------------
From: Bagus <bagus@kingjim.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup

Dear Pak Hendrik..
Dari scrip dibawah yg berbunyi "WorksheetFunction.Sum(Range("Debit")) <> _ WorksheetFunction.Sum(Range("Kredit"))
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit".
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!$B$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 18.236.136 (Array Formula)
Range kredit adalah =OFFSET(JURNAL!$C$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 0 (Array Formula)
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi
To: belajar-excel@yahoogroups.com
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("JURNAL").Select
If WorksheetFunction.Sum(Range("Debit";)) <> _
WorksheetFunction.Sum(Range("Kredit")) Then
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI", _
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Dari scrip dibawah, saya jalankan di Excel 2003 menghasilkan pesan berikut:
Wassalam
~ Bagus ~
----- Original Message -----
From: Jan Raisin
To: belajar-excel@
Sent: Tuesday, June 25, 2013 2:08 PM
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Kebetulan pak Zainul Ulum sudah mencobanya dan tidak ada masalah yang ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk menjalankan script Jan, lalu tolong di share ke sini screen shoot di komputer masing-masing agar bisa kita bandingkan dan mencari tahu penyebabnya.
Tolong juga disertakan Office yang dipakai dan SP berapa.
scriptnya sbb:
Sub test()
Dim lRow As Long
Dim dDb As Double, dCr As Double, dSelisih As Double
Dim msg As String
Sheets("
lRow = Cells(Rows.Count, 1).End(xlUp)
Range(Cells(
Range(Cells(
dDb = Application.
dCr = Application.
dSelisih = dDb - dCr
If dDb = dCr Then
MsgBox "Sama"
Else
MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
End If
End Sub
Salam,
-Miss Jan Raisin-
a.. Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanya ke belajar-excel@
b.. Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
c.. Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
d.. Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 25 Juni 2013 14.01, zainul_ulum[
Pak Hendrik,
Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
thanks
-zainul-
From: belajar-excel@
Sent: Tuesday, June 25, 2013 1:56 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Dear Pak Bagus,
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String"
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HK
------------
From: Bagus <bagus@kingjim.
To: belajar-excel@
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup

Dear Pak Hendrik..
Dari scrip dibawah yg berbunyi "WorksheetFunc
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit"
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!
Range kredit adalah =OFFSET(JURNAL!
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi
To: belajar-excel@
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClos
Sheets("
If WorksheetFunction.
WorksheetFunction.
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI"
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Tue Jun 25, 2013 12:29 am (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
sudah saya coba, berhasil juga
berikut data aplikasi excel saya :
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Jan Raisin
Sent: Tuesday, June 25, 2013 2:09 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Kebetulan pak Zainul Ulum sudah mencobanya dan tidak ada masalah yang ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk menjalankan script Jan, lalu tolong di share ke sini screen shoot di komputer masing-masing agar bisa kita bandingkan dan mencari tahu penyebabnya.
Tolong juga disertakan Office yang dipakai dan SP berapa.
scriptnya sbb:
Sub test()
Dim lRow As Long
Dim dDb As Double, dCr As Double, dSelisih As Double
Dim msg As String
Sheets("JURNAL").Select
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 2), Cells(lRow, 2)).Name = "rgDb"
Range(Cells(2, 3), Cells(lRow, 3)).Name = "rgCr"
dDb = Application.WorksheetFunction.Sum(Range("rgDb"))
dCr = Application.WorksheetFunction.Sum(Range("rgCr"))
dSelisih = dDb - dCr
If dDb = dCr Then
MsgBox "Sama", vbOKOnly, "Result"
Else
MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
End If
End Sub
Salam,
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanya ke <mailto:belajar-excel@yahoogroups.com > belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member milis;
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 25 Juni 2013 14.01, zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com > menulis:
Pak Hendrik,
Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
thanks
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of hendrik karnadi
Sent: Tuesday, June 25, 2013 1:56 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Dear Pak Bagus,
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String", sel kosong pada kolom B dan C sudah saya delete dan saya juga sudah mencari "Null String" dengan Ctrl F namun tidak menemukannya.
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HK
_____
From: Bagus <bagus@kingjim.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup

Dear Pak Hendrik..
Dari scrip dibawah yg berbunyi "WorksheetFunction.Sum(Range("Debit")) <> _ WorksheetFunction.Sum(Range("Kredit"))
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit".
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!$B$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 18.236.136 (Array Formula)
Range kredit adalah =OFFSET(JURNAL!$C$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 0 (Array Formula)
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi <mailto:hendrikkarnadi@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("JURNAL").Select
If WorksheetFunction.Sum(Range("Debit";)) <> _
WorksheetFunction.Sum(Range("Kredit")) Then
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI", _
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
berikut data aplikasi excel saya :
From: belajar-excel@
Sent: Tuesday, June 25, 2013 2:09 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Kebetulan pak Zainul Ulum sudah mencobanya dan tidak ada masalah yang ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk menjalankan script Jan, lalu tolong di share ke sini screen shoot di komputer masing-masing agar bisa kita bandingkan dan mencari tahu penyebabnya.
Tolong juga disertakan Office yang dipakai dan SP berapa.
scriptnya sbb:
Sub test()
Dim lRow As Long
Dim dDb As Double, dCr As Double, dSelisih As Double
Dim msg As String
Sheets("
lRow = Cells(Rows.Count, 1).End(xlUp)
Range(Cells(
Range(Cells(
dDb = Application.
dCr = Application.
dSelisih = dDb - dCr
If dDb = dCr Then
MsgBox "Sama"
Else
MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
End If
End Sub
Salam,
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanya ke <mailto:belajar-excel@
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 25 Juni 2013 14.01, zainul_ulum[
Pak Hendrik,
Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
thanks
-zainul-
From: belajar-excel@
Sent: Tuesday, June 25, 2013 1:56 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Dear Pak Bagus,
Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
Untuk mencegah adanya "Null String"
Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
Terima kasih.
Salam,
HK
_____
From: Bagus <bagus@kingjim.
To: belajar-excel@
Sent: Tuesday, 25 June 2013, 13:14
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup

Dear Pak Hendrik..
Dari scrip dibawah yg berbunyi "WorksheetFunc
kalo saya artikan adalah membandingkan "range debet" dengan "range kredit"
Sedangkan kalau dilihat pada Define name, maka:
Range debet adalah =OFFSET(JURNAL!
Range kredit adalah =OFFSET(JURNAL!
Ini artinya file tidak bisa ditutup.
Memang kalau di sum pada Colom B (Bukan Range Debet) hasilnya sama dengan colom C (Bukan Range kredit) yang artinya file bisa ditutup
Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
Mohon maaf kalo Ngawur...
Wassalam
~ Bagus ~
----- Original Message -----
From: hendrik karnadi <mailto:hendrikkarnadi@
To: belajar-excel@
Sent: Tuesday, June 25, 2013 12:35 PM
Subject: Fw: [belajar-excel] Kasus1_file ga bisa ditutup
Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, 25 June 2013, 12:26
Subject: [belajar-excel] Kasus1_file ga bisa ditutup
Coba copy macro ini pada VBE Sheet (Workbook),
Private Sub Workbook_BeforeClos
Sheets("
If WorksheetFunction.
WorksheetFunction.
MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
"SILA DICEK KEMBALI"
vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
Cancel = True
End If
End Sub
dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
Pertanyaannya:
Mengapa ?
Salam,
HK
Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
Tue Jun 25, 2013 12:48 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Miss Jan, Pak Zainul,
Di komputer saya hasilnya sama seperti hasil di komputer pak Bagus, bedanya saya pake Office 2010 SP1.
Terima kasih.
Salam,
HK
________________________________
From: Bagus <bagus@kingjim.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 25 June 2013, 14:29
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Â

Dear Miss Jan;
Â
Dari scrip dibawah, saya jalankan di Excel
2003 menghasilkan pesan berikut:
Â
Â
Â
Wassalam
~ Bagus~
Â
Â
----- Original Message -----
>From: Jan Raisin
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, June 25, 2013 2:08
PM
>Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
>
>Â
>Kebetulan pak Zainul Ulum sudah mencobanya dan tidak ada masalah yang ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
>
>
>apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk menjalankan script Jan, lalu tolong di share ke sini screen shoot di komputer masing-masing agar bisa kita bandingkan dan mencari tahu penyebabnya.
>
>
>Tolong juga disertakan Office yang dipakai dan SP berapa.
>
>
>scriptnya sbb:
>
>
>Sub test()
>Â Â Dim lRow As Long
>Â Â Dim dDb As Double, dCr As Double, dSelisih As Double
>Â Â Dim msg As String
>Â Â Â
>Â Â Sheets("JURNAL").Select
>Â Â lRow = Cells(Rows.Count, 1).End(xlUp).Row
>Â Â Range(Cells(2, 2), Cells(lRow, 2)).Name = "rgDb"
>Â Â Range(Cells(2, 3), Cells(lRow, 3)).Name = "rgCr"
>Â Â Â
>Â Â dDb = Application.WorksheetFunction.Sum(Range("rgDb"))
>Â Â dCr = Application.WorksheetFunction.Sum(Range("rgCr"))
>Â Â dSelisih = dDb - dCr
>
>
>Â Â If dDb = dCr Then
>Â Â Â Â MsgBox "Sama", vbOKOnly, "Result"
>Â Â Â Â Else
>Â Â Â Â MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
>Â Â End If
>End Sub
>
>
>Salam,
>
>
>
>
>-Miss Jan Raisin-
>
>
> * Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@yahoogroups.com  bukan dikirim japri ke email pribadi member milis;
>
> * Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
>
> * Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
>
> * Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.  اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
>
>
>
>Pada 25 Juni 2013 14.01, zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com > menulis:
>
>
>>Â
>>Pak Hendrik,
>>Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
>>thanks
>>-zainul-
>>Â
>>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of hendrik karnadi
>>Sent: Tuesday, June 25, 2013 1:56 PM
>>To: belajar-excel@yahoogroups.com
>>
>>Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
>>Â
>>Â
>>Dear Pak Bagus,
>>Â
>>Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
>>Â
>>Untuk mencegah adanya "Null String", sel kosong pada kolom B dan C sudah saya delete dan saya juga sudah mencari "Null String" dengan Ctrl F namun tidak menemukannya.
>>Â
>>Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
>>Â
>>Terima kasih.
>>Â
>>Salam,
>>HKÂ
>>Â
>>Â
>>
>>________________________________
>>
>>From:Bagus <bagus@kingjim.co.id >
>>To: belajar-excel@yahoogroups.com
>>Sent: Tuesday, 25 June 2013, 13:14
>>Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
>>Â
>>Â
>>
>>Dear Pak Hendrik..
>>Â
>>Dari scrip dibawah yg berbunyi "WorksheetFunction.Sum(Range("Debit")) <> _ WorksheetFunction.Sum(Range("Kredit"))
>>Â
>>kalo saya artikan adalah membandingkan "range debet" dengan "range kredit".
>>Â
>>Sedangkan kalau dilihat pada Define name, maka:
>>Range debet adalah =OFFSET(JURNAL!$B$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 18.236.136 (Array Formula)
>>Range kredit adalah =OFFSET(JURNAL!$C$2,0,0,COUNTA(JURNAL!$A:$A)-1,1) akan menghasilkan 0 (Array Formula)
>>Ini artinya file tidak bisa ditutup.
>>Â
>>Memang kalau di sum pada Colom B (Bukan Range Debet)Â hasilnya sama dengan colom C (Bukan Range kredit)Â yang artinya file bisa ditutup
>>Â
>>Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
>>Â
>>Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
>>Â
>>Mohon maaf kalo Ngawur...
>>Â
>>Â Â Â Â Â Â Â
>>Wassalam
>>~ Bagus~
>>Â
>>Â
>>----- Original Message -----
>>>From:hendrik karnadi
>>>To:belajar-excel@yahoogroups.com
>>>Sent:Tuesday, June 25, 2013 12:35 PM
>>>Subject:Fw: [belajar-excel] Kasus1_file ga bisa ditutup
>>>Â
>>>Â
>>>Kalau file harus ditutup (karena sdh waktunya pulang kantor) maka hapus saja macronya (atau diberi tanda ').
>>>Â
>>>Salam,
>>>HK
>>>Â
>>>Â
>>>----- Forwarded Message -----
>>>From:hendrik karnadi <hendrikkarnadi@yahoo.com >
>>>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>>>Sent: Tuesday, 25 June 2013, 12:26
>>>Subject: [belajar-excel] Kasus1_file ga bisa ditutup
>>>Â
>>>Â
>>>Coba copy macro ini pada VBE Sheet (Workbook),
>>>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>>>Â Â Sheets("JURNAL").Select
>>>Â Â If WorksheetFunction.Sum(Range("Debit";)) <> _
>>>Â Â WorksheetFunction.Sum(Range("Kredit")) Then
>>>Â Â Â Â MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
>>>Â Â Â Â "SILA DICEK KEMBALI", _
>>>Â Â Â Â vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
>>>Â Â Â Â Cancel = True
>>>Â Â End If
>>>End Sub
>>>Â
>>>dan coba tutup file dengan mengklik tanda "x" pada pojok kanan atas maka akan tmapak pesan (MsgBox) di atas yang menyatakan bahwa Debit <> Kredit, padahal kalau dijumlah secara manual dengan cara mendrag atau menyorot kolom maka jumlah debit = kredit
>>>Â
>>>Pertanyaannya:
>>>Mengapa ?
>>>Â
>>>Salam,
>>>HK
>>>Â
>>>Pertanyaan ini datang dari seorang anak buah yang belum saya temukan jawabannya
>>>Â
>>Â
>
Di komputer saya hasilnya sama seperti hasil di komputer pak Bagus, bedanya saya pake Office 2010 SP1.
Terima kasih.
Salam,
HK
____________
From: Bagus <bagus@kingjim.
To: belajar-excel@
Sent: Tuesday, 25 June 2013, 14:29
Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
Â

Dear Miss Jan;
Â
Dari scrip dibawah, saya jalankan di Excel
2003 menghasilkan pesan berikut:
Â
Â
Â
Wassalam
~ Bagus~
Â
Â
----- Original Message -----
>From: Jan Raisin
>To: belajar-excel@
>Sent: Tuesday, June 25, 2013 2:08
PM
>Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
>
>Â
>Kebetulan pak Zainul Ulum sudah mencobanya dan tidak ada masalah yang ditemukan di komputer pak Zainul tetapi bermasalah dikomputer pak Hendrik.
>
>
>apakah Jan bisa minta bantuan kepada pak Zainul Ulum dan pak Hendrik untuk menjalankan script Jan, lalu tolong di share ke sini screen shoot di komputer masing-masing agar bisa kita bandingkan dan mencari tahu penyebabnya.
>
>
>Tolong juga disertakan Office yang dipakai dan SP berapa.
>
>
>scriptnya sbb:
>
>
>Sub test()
>Â Â Dim lRow As Long
>Â Â Dim dDb As Double, dCr As Double, dSelisih As Double
>Â Â Dim msg As String
>Â Â Â
>Â Â Sheets("
>Â Â lRow = Cells(Rows.Count, 1).End(xlUp)
>Â Â Range(Cells(
>Â Â Range(Cells(
>Â Â Â
>Â Â dDb = Application.
>Â Â dCr = Application.
>Â Â dSelisih = dDb - dCr
>
>
>Â Â If dDb = dCr Then
>Â Â Â Â MsgBox "Sama"
>Â Â Â Â Else
>Â Â Â Â MsgBox "Beda " & dSelisih, vbOKOnly, "Result"
>Â Â End If
>End Sub
>
>
>Salam,
>
>
>
>
>-Miss Jan Raisin-
>
>
> * Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@
>
> * Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
>
> * Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
>
> * Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.  اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
>
>
>
>Pada 25 Juni 2013 14.01, zainul_ulum[
>
>
>>Â
>>Pak Hendrik,
>>Saya coba macronya di computerku, tidak ada pesan yang dimaksud.
>>thanks
>>-zainul-
>>Â
>>From:belajar-excel@
>>Sent: Tuesday, June 25, 2013 1:56 PM
>>To: belajar-excel@
>>
>>Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
>>Â
>>Â
>>Dear Pak Bagus,
>>Â
>>Hasil pengecekan saya pada menu Formula, Name Manager, rangenya sudah sampai batas akhir No Rek (kolom A) sesuai dengan yang saya bold.
>>Â
>>Untuk mencegah adanya "Null String"
>>Â
>>Semoga Pak Bagus atau rekan2 lain masih ada ide lainnya untuk menyelesaikan masalah tersebut. Mungkin ini salah satu "misteri" macro .....
>>Â
>>Terima kasih.
>>Â
>>Salam,
>>HKÂ
>>Â
>>Â
>>
>>____
>>
>>From:
>>To: belajar-excel@
>>Sent: Tuesday, 25 June 2013, 13:14
>>Subject: Re: [belajar-excel] Kasus1_file ga bisa ditutup
>>Â
>>Â
>>
>>Dear Pak Hendrik..
>>Â
>>Dari scrip dibawah yg berbunyi "WorksheetFunc
>>Â
>>kalo saya artikan adalah membandingkan "range debet" dengan "range kredit"
>>Â
>>Sedangkan kalau dilihat pada Define name, maka:
>>Range debet adalah =OFFSET(JURNAL!
>>Range kredit adalah =OFFSET(JURNAL!
>>Ini artinya file tidak bisa ditutup.
>>Â
>>Memang kalau di sum pada Colom B (Bukan Range Debet)Â hasilnya sama dengan colom C (Bukan Range kredit)Â yang artinya file bisa ditutup
>>Â
>>Mungkin ini yg menyebabkan file ini tidak bisa di close pak..
>>Â
>>Ini cuma menurut logika saya saja pak, karena saya buta dengan VBA Excel.
>>Â
>>Mohon maaf kalo Ngawur...
>>Â
>>Â Â Â Â Â Â Â
>>Wassalam
>>~ Bagus~
>>Â
>>Â
>>----
>>>
>>>
>>>
>>>
>>>Â
>>>Â
>>>
>>>Â
>>>
>>>
>>>Â
>>>Â
>>>
>>>
>>>
>>>
>>>
>>>Â
>>>Â
>>>
>>>
>>>Â Â Sheets("
>>>Â Â If WorksheetFunction.
>>>Â Â WorksheetFunction.
>>>Â Â Â Â MsgBox "MAAF, Jumlah Debit tidak sama dengan Kredit" & vbCrLf & _
>>>Â Â Â Â "SILA DICEK KEMBALI"
>>>Â Â Â Â vbCritical + vbOKOnly, "FILE TIDAK BISA DITUTUP"
>>>Â Â Â Â Cancel = True
>>>Â Â End If
>>>
>>>Â
>>>
>>>Â
>>>
>>>
>>>Â
>>>
>>>
>>>Â
>>>
>>>Â
>>Â
>
Mon Jun 24, 2013 11:25 pm (PDT) . Posted by:
"Mulki" mulki_akbar
Saya mau nawarin sebelum ramadhan dimulai, kira2 member B-Xlers mau kopdaran lagi ?
Kalo memang mau, secepatnya saya ajukan ke internal department dikantor saya.
Wassalam,
Mulki akbar
----- Original Message -----
From: Aliif Akbar
To: belajar-excel@yahoogroups.com
Sent: Monday, June 24, 2013 2:46 PM
Subject: RE: [belajar-excel] Kesan Member di Acara Kopdar#1
Dari saya boleh ngasih tahu y?
Persiapan untuk nyari ruangan sudah dari jauh2 hari, namun dari pihak umj tidak cepat memberikan jawaban, h-7 sempat mencari tempat lain di daerah rawamangun, belum dijawab, umj ngasih jawaban oken hari senin langsung buru2 di umumin ke milis, h-3 hanya ada 10 org, termasuk panitia, namun pendaftaran ternyata langsung bertambah dengan cepat setelah ada puisi dari mas opi,
Terimakasih yang sudah ikut kopdar #1 ini yah?
Salam,
Aliif Akbar
Sent from my Windows Phone Lumia 620
----------------------------------------------------------
From: Heri Pamungkas ( Gmail )
Sent: ‎24/‎06/‎2013 14:14
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kesan Member di Acara Kopdar#1
Assalamu'alaikum Wr. Wb.
Semangat pagi,
Alhamdulillah, Selaras dengan Pak Prodev SIMPLE PB.
SERU BANGET pastinya, mungkin yang bisa saya tambahkan INSPIRATIF.
Kesan - kesan saya, selain yang dikemukakan Pak Prodev :
Plusnya :
- Hadiah quiz DVD nya mantab Pak Sofyan, banyak yang bisa dipelajari autodidak dari sini (mau di share di milis Size nya 3GB++)
- Inspiratif trik trik dari quiz nya.
Minusnya :
- Yang pertama pasti waktunya yang kurang panjang ( kalo bisa 3 hari 3 malam )..
- Ternyata yang menurut Mr. KID dan Pak Hendrik VBA dasar saja saya masih belum mudeng selain rekam makronya...
( hehehe... ada ngga yang lebiiiih dasaaaaaaar lagi..mungkin faktor saya ebagai trainee nya ya !! :-P )
Namun demikian over all " two thumbs up " buat para seksi ribetnya....
hehehehe....
Ditunggu KOPDAR ke2 nya....
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain
Salam Excell-ent
On 24/06/2013 10:48, Prodev SIMPLE PB wrote:
Assalamu'alaikum Wr. Wb.
Semangat pagi semuanya :)
Alhamdulillah, diberikan kesempatan lagi bertemu dengan hari Senin, sebuah nikmat tak terkira yang WAJIB kita syukuri.
Baru sempat buka email, ternyata sudah banyak juga postingan dari para member terkait acara Kopdar#1 kemarin.
Yang jelas komentar pertama : SERU BANGET.
Sebuah sarana silaturahim yang perlu ditindaklanjuti lebih intens :) karena bukan sekedar silaturahim biasa, namun juga sarat dengan berbagi ilmu.
Beberapa hal yang mungkin bisa saya sampaikan:
1. Alhamdulillah ruang lokasi acara tidak terlalu jauh dari pintu masuk, tanya Pak Satpam...langsung tengok kanan...ketemu dah.
2. Ruangan ternyata cukup banyak juga kursi yang tersedia, nah ini ada plus minusnya juga :)
Plus-nya : peserta dapat memilih tempat duduk dengan leluasa, se-nyaman-nya, asal jangan pilih kursi paling depan karena itu untuk pembicara :)
Minus-nya : posisi duduk jadi tidak bisa merapat...walhasil banyak peserta yang nge-group dengan konco-konco nya sendiri, agak canggung juga untuk yang datang sendiri langsung bergabung (like me) :) semakin terasa ketika pembahasan materi masuk ke area 'macro' yang mungkin sebagian besar peserta belum terbiasa...yang belum 'mudheng' akhirnya pilih saling 'diskusi' dengan teman sepermainan :)
3. Sangat disayangkan kemarin tidak diberikan waktu untuk saling berkenalan, saling memberikan saran & masukan sehingga kita tidak bisa mendapatkan gambaran dari latar belakang para member milis :(
Namun demikian, secara keseluruhan acara sangat berkesan. Semoga bisa diadakan lagi di lain waktu. Thanks untuk panitia, moderator dan para member.
Demikian sekilas inpoh dari saya, salam hangat untuk semuanya.
Wassalamu'alaikum Wr. Wb.
- hadhi saptiono -
- prodev simple -
Kalo memang mau, secepatnya saya ajukan ke internal department dikantor saya.
Wassalam,
Mulki akbar
----- Original Message -----
From: Aliif Akbar
To: belajar-excel@
Sent: Monday, June 24, 2013 2:46 PM
Subject: RE: [belajar-excel] Kesan Member di Acara Kopdar#1
Dari saya boleh ngasih tahu y?
Persiapan untuk nyari ruangan sudah dari jauh2 hari, namun dari pihak umj tidak cepat memberikan jawaban, h-7 sempat mencari tempat lain di daerah rawamangun, belum dijawab, umj ngasih jawaban oken hari senin langsung buru2 di umumin ke milis, h-3 hanya ada 10 org, termasuk panitia, namun pendaftaran ternyata langsung bertambah dengan cepat setelah ada puisi dari mas opi,
Terimakasih yang sudah ikut kopdar #1 ini yah?
Salam,
Aliif Akbar
Sent from my Windows Phone Lumia 620
------------
From: Heri Pamungkas ( Gmail )
Sent: ‎24/‎06/‎2013 14:14
To: belajar-excel@
Subject: Re: [belajar-excel] Kesan Member di Acara Kopdar#1
Assalamu'
Semangat pagi,
Alhamdulillah, Selaras dengan Pak Prodev SIMPLE PB.
SERU BANGET pastinya, mungkin yang bisa saya tambahkan INSPIRATIF.
Kesan - kesan saya, selain yang dikemukakan Pak Prodev :
Plusnya :
- Hadiah quiz DVD nya mantab Pak Sofyan, banyak yang bisa dipelajari autodidak dari sini (mau di share di milis Size nya 3GB++)
- Inspiratif trik trik dari quiz nya.
Minusnya :
- Yang pertama pasti waktunya yang kurang panjang ( kalo bisa 3 hari 3 malam )..
- Ternyata yang menurut Mr. KID dan Pak Hendrik VBA dasar saja saya masih belum mudeng selain rekam makronya...
( hehehe... ada ngga yang lebiiiih dasaaaaaaar lagi..mungkin faktor saya ebagai trainee nya ya !! :-P )
Namun demikian over all " two thumbs up " buat para seksi ribetnya....
hehehehe....
Ditunggu KOPDAR ke2 nya....
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
http://tech.
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain
Salam Excell-ent
On 24/06/2013 10:48, Prodev SIMPLE PB wrote:
Assalamu'
Semangat pagi semuanya :)
Alhamdulillah, diberikan kesempatan lagi bertemu dengan hari Senin, sebuah nikmat tak terkira yang WAJIB kita syukuri.
Baru sempat buka email, ternyata sudah banyak juga postingan dari para member terkait acara Kopdar#1 kemarin.
Yang jelas komentar pertama : SERU BANGET.
Sebuah sarana silaturahim yang perlu ditindaklanjuti lebih intens :) karena bukan sekedar silaturahim biasa, namun juga sarat dengan berbagi ilmu.
Beberapa hal yang mungkin bisa saya sampaikan:
1. Alhamdulillah ruang lokasi acara tidak terlalu jauh dari pintu masuk, tanya Pak Satpam...langsung tengok kanan...ketemu dah.
2. Ruangan ternyata cukup banyak juga kursi yang tersedia, nah ini ada plus minusnya juga :)
Plus-nya : peserta dapat memilih tempat duduk dengan leluasa, se-nyaman-nya, asal jangan pilih kursi paling depan karena itu untuk pembicara :)
Minus-nya : posisi duduk jadi tidak bisa merapat...walhasil banyak peserta yang nge-group dengan konco-konco nya sendiri, agak canggung juga untuk yang datang sendiri langsung bergabung (like me) :) semakin terasa ketika pembahasan materi masuk ke area 'macro&#
3. Sangat disayangkan kemarin tidak diberikan waktu untuk saling berkenalan, saling memberikan saran & masukan sehingga kita tidak bisa mendapatkan gambaran dari latar belakang para member milis :(
Namun demikian, secara keseluruhan acara sangat berkesan. Semoga bisa diadakan lagi di lain waktu. Thanks untuk panitia, moderator dan para member.
Demikian sekilas inpoh dari saya, salam hangat untuk semuanya.
Wassalamu'
- hadhi saptiono -
- prodev simple -
Tue Jun 25, 2013 12:43 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Kepada Pak Aliif,
Btw untuk pemesanan kaos ini bisa satuan apa harus sesuai batas minimum dari percetakan kaosnya?
Kalo ga salah dulu pernah disinggung ya ada minimum pesanan.
Kalo ada minimum pesan ya kayanya harus dikumpulin member2 yang berminat bikin kaos, baru dibuat ke percetakannya gitu kali ya
________________________________
From: Agus <agus_1194@yahoo.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, June 25, 2013 11:07 AM
Subject: [belajar-excel] Re: Pembukaan Pemesanan Seragam Be - Excel
Â
Dear pak Aliif,
Saya pesan 1 tapi untuk ukuran paling besar (XXXL)
dikirim ke alamat kantor :
PT.Chuhatsu Indonesia
Jl.K.H.Noer Ali Cibuntu
Cibitung-Bekasi 17520 Indonesia
Atas Nama saya sendiri : Agus Widodo (PPC Departemant)
Dana akan saya tranfer setelah dapat confirm dari Pak aliif.
Salam,
Agus
--- In belajar-excel@yahoogroups.com , "aliif.akbar" <aliif.akbar@...> wrote:
>
> Selamat malam,
>
> Dear All member Be-Excel yang berbahagia,
> Sesuai dengan yang sudah kami sampaikan pada saat Koopdar #1 kemarin, milis be Excel akan membuat seragam kemeja Be-Excel, gambar desain dan ukuran sudah pernah di upload oleh moderator,bersama email ini, maka pemesanan seragam Be-Excel kami buka :
>
> 1. Diutamakan member dari Milis Belajar Excel, Harga seragam adalah Rp. 100,000. (Seratus Ribu Rupiah) belum termasuk ongkos kirim
> 2. Mengirimkan Alamat lokasi pengiriman untuk menentukan harga ongkos kirim.
> 3. Mengirimkan data pribadi,japri ke email saya ini.
> 4. Pemesanan dianggap masuk dalam hitungan apabila telah melakukan transfer ke rekening
> 5. Pembayaran dilakukan dengan cara transfer ke rekening :
> 6590419603
> a.n Zainudin Asror
> Bank BCA Cabang KCP Prima Sunter
> 6. Pengiriman akan dilakukan dengan tiki, pos indonesia, jne
> 7. untuk detail gambar dan ukuran silahkan kunjungi link ini : http://groups.yahoo.com/group/belajar-excel/photos/album/1310147048/pic/list
>
> Demikian pembukaan pemesanan seragam Be-Excel ini, ketentuan2 lain yang belum tercantum dalam email ini, akan di bahas kembali dengan moderator dan tim.
> Demikian dari kami, terimakasih atas perhatian dan kerjasamanya.
>
> Salam,
>
> Aliif Akbar
>
Btw untuk pemesanan kaos ini bisa satuan apa harus sesuai batas minimum dari percetakan kaosnya?
Kalo ga salah dulu pernah disinggung ya ada minimum pesanan.
Kalo ada minimum pesan ya kayanya harus dikumpulin member2 yang berminat bikin kaos, baru dibuat ke percetakannya gitu kali ya
____________
From: Agus <agus_1194@yahoo.
To: belajar-excel@
Sent: Tuesday, June 25, 2013 11:07 AM
Subject: [belajar-excel] Re: Pembukaan Pemesanan Seragam Be - Excel
Â
Dear pak Aliif,
Saya pesan 1 tapi untuk ukuran paling besar (XXXL)
dikirim ke alamat kantor :
PT.Chuhatsu Indonesia
Jl.K.H.Noer Ali Cibuntu
Cibitung-Bekasi 17520 Indonesia
Atas Nama saya sendiri : Agus Widodo (PPC Departemant)
Dana akan saya tranfer setelah dapat confirm dari Pak aliif.
Salam,
Agus
--- In belajar-excel@
>
> Selamat malam,
>
> Dear All member Be-Excel yang berbahagia,
> Sesuai dengan yang sudah kami sampaikan pada saat Koopdar #1 kemarin, milis be Excel akan membuat seragam kemeja Be-Excel, gambar desain dan ukuran sudah pernah di upload oleh moderator,bersama email ini, maka pemesanan seragam Be-Excel kami buka :
>
> 1. Diutamakan member dari Milis Belajar Excel, Harga seragam adalah Rp. 100,000. (Seratus Ribu Rupiah) belum termasuk ongkos kirim
> 2. Mengirimkan Alamat lokasi pengiriman untuk menentukan harga ongkos kirim.
> 3. Mengirimkan data pribadi,japri ke email saya ini.
> 4. Pemesanan dianggap masuk dalam hitungan apabila telah melakukan transfer ke rekening
> 5. Pembayaran dilakukan dengan cara transfer ke rekening :
> 6590419603
> a.n Zainudin Asror
> Bank BCA Cabang KCP Prima Sunter
> 6. Pengiriman akan dilakukan dengan tiki, pos indonesia, jne
> 7. untuk detail gambar dan ukuran silahkan kunjungi link ini : http://groups.
>
> Demikian pembukaan pemesanan seragam Be-Excel ini, ketentuan2 lain yang belum tercantum dalam email ini, akan di bahas kembali dengan moderator dan tim.
> Demikian dari kami, terimakasih atas perhatian dan kerjasamanya.
>
> Salam,
>
> Aliif Akbar
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar