15 New Messages
Digest #2100
9b
Re: hendrik_karnadi_shared_"Program_Laporan_Keuangan_Terpadu"_with_y by "hendrikkarnadi" hendrikkarnadi
Messages
Tue Feb 19, 2013 1:46 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Helsy,
Andai kolom C diberi formula yang menghasilkan data bertipe numerik seperti
:
=1*(b2>a2)
maka hasil formula akan berupa nilai 1 (positif) ketika Not Met dan
bernilai 0 (nol) ketika Met.
Cell kemudian di format cell custom.
Susunan umum format cell number :
*format_untuk_nilai_positif**;**format_untuk_nilai_negatif**;**
format_untuk_nilai_nol**;**format_untuk_data_teks*
Untuk kasus ini, karena nilai cell hanya positif dan nol, maka yang
digunakan adalah bagian format merah dan biru
Bunyi susunan format :
*[red]"Not Met"**;**;**[blue]"Met"*
Wassalam,
Kid.
2013/2/19 Helsy B helsyb@yahoo.com >
> **
>
>
>
>
> Dear Master Exell,
>
> Saya mau menanyakan cara memberi warna pada cell berikut.
> Untuk tulisan Not Met menjadi merah, met menjadi biru
>
> Terima kasih sebelumnya.
>
> Wassalam
> helsy
>
>
>
Andai kolom C diberi formula yang menghasilkan data bertipe numerik seperti
:
=1*(b2>a2)
maka hasil formula akan berupa nilai 1 (positif) ketika Not Met dan
bernilai 0 (nol) ketika Met.
Cell kemudian di format cell custom.
Susunan umum format cell number :
*format_untuk_
format_untuk_
Untuk kasus ini, karena nilai cell hanya positif dan nol, maka yang
digunakan adalah bagian format merah dan biru
Bunyi susunan format :
*[red]"
Wassalam,
Kid.
2013/2/19 Helsy B helsyb@yahoo.
> **
>
>
>
>
> Dear Master Exell,
>
> Saya mau menanyakan cara memberi warna pada cell berikut.
> Untuk tulisan Not Met menjadi merah, met menjadi biru
>
> Terima kasih sebelumnya.
>
> Wassalam
> helsy
>
>
>
Tue Feb 19, 2013 2:00 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba :
Dim lWeek As Long
Range("C2").Select
lWeek = 1
Do
If ActiveCell.Offset(0, -1).Text = "Mon" Then
ActiveCell.Value = "W" & lWeek
lWeek = lWeek + 1
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.co.id >
> **
>
>
>
> Dear Be-Exceller,
>
> Saya coba membuat week tertentu yang dimulai dari W1 sampai seterusnya.
> Jadi kalau ketemu nilai cell di sebelahnya yang tulisannya Mon maka akan
> ditulis W1 dan seterusnya.
>
> Tapi setelah saya coba buat code VBA nya , kok tidak dimulai dari W1 tapi
> dari W4, kenapa yah ? Saya sudah coba pakai For nilaiku=1 to 6 step 1 next
> nilaiku, tetap gak berhasil.
>
> Ini code VBA yang saya buat :
>
> Private Sub CommandButton1_Click()
> Range("C2").Select
> Do
> For nilaiweek = 1 To 6
> If ActiveCell.Offset(0, -1).Text = "Mon" Then
> ActiveCell.Value = "W" & nilaiweek
> ActiveCell.Offset(1, 0).Select
> Else
> ActiveCell.Offset(1, 0).Select
> End If
> Next nilaiweek
> Loop Until IsEmpty(ActiveCell.Offset(0, -1))
> End Sub
>
> Kiranya Be-Exceller berkenan membantu. File terlampir :
>
>
>
> Thanks and regards,
> Tio
>
>
Dim lWeek As Long
Range("
lWeek = 1
Do
If ActiveCell.Offset(
ActiveCell.Value = "W" & lWeek
lWeek = lWeek + 1
End If
ActiveCell.Offset(
Loop Until IsEmpty(ActiveCell.
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.
> **
>
>
>
> Dear Be-Exceller,
>
> Saya coba membuat week tertentu yang dimulai dari W1 sampai seterusnya.
> Jadi kalau ketemu nilai cell di sebelahnya yang tulisannya Mon maka akan
> ditulis W1 dan seterusnya.
>
> Tapi setelah saya coba buat code VBA nya , kok tidak dimulai dari W1 tapi
> dari W4, kenapa yah ? Saya sudah coba pakai For nilaiku=1 to 6 step 1 next
> nilaiku, tetap gak berhasil.
>
> Ini code VBA yang saya buat :
>
> Private Sub CommandButton1_
> Range("
> Do
> For nilaiweek = 1 To 6
> If ActiveCell.Offset(
> ActiveCell.Value = "W" & nilaiweek
> ActiveCell.Offset(
> Else
> ActiveCell.Offset(
> End If
> Next nilaiweek
> Loop Until IsEmpty(ActiveCell.
> End Sub
>
> Kiranya Be-Exceller berkenan membantu. File terlampir :
>
>
>
> Thanks and regards,
> Tio
>
>
Terima kasih Mr. Kid. Problem solved. Semoga Allah SWT membalas kebaikan
Mr. Kid.
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
02/19/2013 05:00 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Menulis Week tertentu
Coba :
Dim lWeek As Long
Range("C2").Select
lWeek = 1
Do
If ActiveCell.Offset(0, -1).Text = "Mon" Then
ActiveCell.Value = "W" & lWeek
lWeek = lWeek + 1
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.co.id >
Dear Be-Exceller,
Saya coba membuat week tertentu yang dimulai dari W1 sampai seterusnya.
Jadi kalau ketemu nilai cell di sebelahnya yang tulisannya Mon maka akan
ditulis W1 dan seterusnya.
Tapi setelah saya coba buat code VBA nya , kok tidak dimulai dari W1 tapi
dari W4, kenapa yah ? Saya sudah coba pakai For nilaiku=1 to 6 step 1 next
nilaiku, tetap gak berhasil.
Ini code VBA yang saya buat :
Private Sub CommandButton1_Click()
Range("C2").Select
Do
For nilaiweek = 1 To 6
If ActiveCell.Offset(0, -1).Text = "Mon" Then
ActiveCell.Value = "W" & nilaiweek
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next nilaiweek
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
End Sub
Kiranya Be-Exceller berkenan membantu. File terlampir :
Thanks and regards,
Tio
Mr. Kid.
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.
Sent by: belajar-excel@
02/19/2013 05:00 PM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: Re: [belajar-excel] Menulis Week tertentu
Coba :
Dim lWeek As Long
Range("
lWeek = 1
Do
If ActiveCell.Offset(
ActiveCell.Value = "W" & lWeek
lWeek = lWeek + 1
End If
ActiveCell.Offset(
Loop Until IsEmpty(ActiveCell.
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.
Dear Be-Exceller,
Saya coba membuat week tertentu yang dimulai dari W1 sampai seterusnya.
Jadi kalau ketemu nilai cell di sebelahnya yang tulisannya Mon maka akan
ditulis W1 dan seterusnya.
Tapi setelah saya coba buat code VBA nya , kok tidak dimulai dari W1 tapi
dari W4, kenapa yah ? Saya sudah coba pakai For nilaiku=1 to 6 step 1 next
nilaiku, tetap gak berhasil.
Ini code VBA yang saya buat :
Private Sub CommandButton1_
Range("
Do
For nilaiweek = 1 To 6
If ActiveCell.Offset(
ActiveCell.Value = "W" & nilaiweek
ActiveCell.Offset(
Else
ActiveCell.Offset(
End If
Next nilaiweek
Loop Until IsEmpty(ActiveCell.
End Sub
Kiranya Be-Exceller berkenan membantu. File terlampir :
Thanks and regards,
Tio
Tue Feb 19, 2013 2:03 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Dede,
Hal itu terjadi karena sisa kolom maupun sisa baris di-Hide
Coba di sheet baru :
1. klik nomor baris Excel 10
2. tekan shift (jangan dilepas) lalu tekan panah bawah
3. klik kanan area yang terblok -> pilih Hide
4. lakukan juga terhadap kolom (misal mulai kolom G diklik, shift + panah
kanan, klik kanan yang terblok, pilih Hide)
Wassalam,
Kid.
2013/2/19 Dede Suparman dede_suparman111@yahoo.com >
> **
>
>
> Dear Para Master & rekan - rekan,
>
>
> di file ctv_Login_v2 jumlah baris hanya 44 dan kolom hanya sam pai "M"
> itu bagaimana ya caranya kok bisa? terimakasih.
>
>
>
> salam CMIIW,
> Dede_S
>
>
>
Hal itu terjadi karena sisa kolom maupun sisa baris di-Hide
Coba di sheet baru :
1. klik nomor baris Excel 10
2. tekan shift (jangan dilepas) lalu tekan panah bawah
3. klik kanan area yang terblok -> pilih Hide
4. lakukan juga terhadap kolom (misal mulai kolom G diklik, shift + panah
kanan, klik kanan yang terblok, pilih Hide)
Wassalam,
Kid.
2013/2/19 Dede Suparman dede_suparman111@
> **
>
>
> Dear Para Master & rekan - rekan,
>
>
> di file ctv_Login_v2 jumlah baris hanya 44 dan kolom hanya sam pai "M"
> itu bagaimana ya caranya kok bisa? terimakasih.
>
>
>
> salam CMIIW,
> Dede_S
>
>
>
Tue Feb 19, 2013 2:04 am (PST) . Posted by:
"Jan Raisin"
Hai Entin,
coba manfaatkan Solver bawaan dari Excel,
file terlampir semoga bermanfaat.
Best Regard,
-Miss Jan Raisin-
Pada 19 Februari 2013 15.11, Entin Supriatinah ntin_spr@yahoo.com > menulis:
> **
>
>
> Dear Master Excel,
>
> Dgn menggunakan Formula/fungsi apa? untuk menghasilkan produk jadi dengan
> material yg tersisa.
> dimana salah satu material bisa digunakan u/ beberapa produk,
> bisakan hasilnya tanpa memprioritaskan produk mana yg akan didahulukan
> dibuat, atau harus ada prioritas yg mana dulu?
>
> Terima kasih banyak sebelumnya,
>
> Best Rgds,
> Entin
>
>
>
>
coba manfaatkan Solver bawaan dari Excel,
file terlampir semoga bermanfaat.
Best Regard,
-Miss Jan Raisin-
Pada 19 Februari 2013 15.11, Entin Supriatinah ntin_spr@yahoo.
> **
>
>
> Dear Master Excel,
>
> Dgn menggunakan Formula/fungsi apa? untuk menghasilkan produk jadi dengan
> material yg tersisa.
> dimana salah satu material bisa digunakan u/ beberapa produk,
> bisakan hasilnya tanpa memprioritaskan produk mana yg akan didahulukan
> dibuat, atau harus ada prioritas yg mana dulu?
>
> Terima kasih banyak sebelumnya,
>
> Best Rgds,
> Entin
>
>
>
>
Tue Feb 19, 2013 3:05 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe ada error ya...
mungkin penyebabnya di baris :
if sheets(sshtname) is nothing then
coba ubah jadi seperti :
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string
set wbka=thisworkbook
'simpan nama sheet yang akan diproses
sshtname=sheets("input";).txtsheet.text
on error resume next
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
err.clear
on error goto 0
exit sub
endif
'buat workbook baru isi 1 sheet saja
lsht=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
set wbknew=workbooks.add
application.sheetsinnewworkbook=lsht
wbka.activate
'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama
sheet seperti asalnya
sheets(sshtname).cells.copy wbknew.sheets(1).range("a1")
wbknew.sheets(1).name=sshtname
err.clear
on error goto 0
msgbox "Done."
persiapan : (sesuaikan script dengan kebutuhan. jika tidak ingin mengubah
script di atas, pastikan hal berikut ini)
1. nama sheet lokasi tombol adalah bernama input
2. dalam sheet input tersebut ada control textbox yang diberi nama txtsheet
(insert textbox ke worksheet, klik kanan pilih properties, pada
properti *(Name)* ganti nilainya dengan txtsheet)
3. copas script di atas ke event click tombol pengaktif proses salin sheet
ke workbook lain
Wassalam,
Kid.
2013/2/19 agung aldhino d_nozz@yahoo.co.id >
> **
>
>
> thanks Mr Kid.
> tapi masih error.
> jika tidak salah workbook yang baru berisi sheet "txtsheet"; ya.
> jadi disini kita ngisinya manual. jika kita kita mau sheet lain. kita
> harus rubah VB nya.
> jika saya coba baca VB nya seperti itu. maaf kalo salah karena baru
> belajar.
> untuk nama sheetnya kita menggunakan panduan combo box (seperti dalam
> contoh fle) bagaimana ya Mr kid bunyi VB nya?
> ohya untuk combo boxnya bagaimana kita membuat pilihannya.
> thank.
>
> D Nozz
>
>
>
mungkin penyebabnya di baris :
if sheets(sshtname) is nothing then
coba ubah jadi seperti :
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string
set wbka=thisworkbook
'simpan nama sheet yang akan diproses
sshtname=sheets(
on error resume next
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
err.clear
on error goto 0
exit sub
endif
'buat workbook baru isi 1 sheet saja
lsht=application.
application.
set wbknew=workbooks.
application.
wbka.activate
'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama
sheet seperti asalnya
sheets(sshtname)
wbknew.sheets(
err.clear
on error goto 0
msgbox "Done."
persiapan : (sesuaikan script dengan kebutuhan. jika tidak ingin mengubah
script di atas, pastikan hal berikut ini)
1. nama sheet lokasi tombol adalah bernama input
2. dalam sheet input tersebut ada control textbox yang diberi nama txtsheet
(insert textbox ke worksheet, klik kanan pilih properties, pada
properti *(Name)* ganti nilainya dengan txtsheet)
3. copas script di atas ke event click tombol pengaktif proses salin sheet
ke workbook lain
Wassalam,
Kid.
2013/2/19 agung aldhino d_nozz@yahoo.
> **
>
>
> thanks Mr Kid.
> tapi masih error.
> jika tidak salah workbook yang baru berisi sheet "txtsheet"
> jadi disini kita ngisinya manual. jika kita kita mau sheet lain. kita
> harus rubah VB nya.
> jika saya coba baca VB nya seperti itu. maaf kalo salah karena baru
> belajar.
> untuk nama sheetnya kita menggunakan panduan combo box (seperti dalam
> contoh fle) bagaimana ya Mr kid bunyi VB nya?
> ohya untuk combo boxnya bagaimana kita membuat pilihannya.
> thank.
>
> D Nozz
>
>
>
Dear Be-Exceller,
Saya mau tanya, apakah Excel bisa mengetahui minggu keberapa dari suatu
tanggal yang ditentukan ?
Seperti 1 Feb 2013 minggu ke-1, 6 Feb 2013 minggu ke-2.
Terima kasih,
Wassalam,
Tio
Saya mau tanya, apakah Excel bisa mengetahui minggu keberapa dari suatu
tanggal yang ditentukan ?
Seperti 1 Feb 2013 minggu ke-1, 6 Feb 2013 minggu ke-2.
Terima kasih,
Wassalam,
Tio
Tue Feb 19, 2013 4:16 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba :
=WeekNum( tanggal ) - WeekNum( tanggal - Day( tanggal ) + 1 ) + 1
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.co.id >
> **
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, apakah Excel bisa mengetahui minggu keberapa dari suatu
> tanggal yang ditentukan ?
>
> Seperti 1 Feb 2013 minggu ke-1, 6 Feb 2013 minggu ke-2.
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
=WeekNum( tanggal ) - WeekNum( tanggal - Day( tanggal ) + 1 ) + 1
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.
> **
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, apakah Excel bisa mengetahui minggu keberapa dari suatu
> tanggal yang ditentukan ?
>
> Seperti 1 Feb 2013 minggu ke-1, 6 Feb 2013 minggu ke-2.
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
Dear Be-Exceller,
Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama
sebanyak 4x dengan text = "aku". Bagaimana yah caranya ?
Saya sudah coba dengan for next berkali2, tapi gak berhasil2.
Terima kasih,
Wassalam,
Tio
Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama
sebanyak 4x dengan text = "aku"
Saya sudah coba dengan for next berkali2, tapi gak berhasil2.
Terima kasih,
Wassalam,
Tio
Tue Feb 19, 2013 6:39 am (PST) . Posted by:
"hendrikkarnadi" hendrikkarnadi
Coba pakai macro recording.
Salam,
Hendrik
Sent from Samsung Mobiletio.adjie@ptssb.co.id wrote:
Dear Be-Exceller,
Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama sebanyak 4x dengan text = "aku". Bagaimana yah caranya ?
Saya sudah coba dengan for next berkali2, tapi gak berhasil2.
Terima kasih,
Wassalam,
Tio
Salam,
Hendrik
Sent from Samsung Mobiletio.adjie@
Dear Be-Exceller,
Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama sebanyak 4x dengan text = "aku"
Saya sudah coba dengan for next berkali2, tapi gak berhasil2.
Terima kasih,
Wassalam,
Tio
Pak Hendrik. terima kasih jawabannya. Tapi saya sudah dapatkan jawabannya.
:
Private Sub CommandButton5_Click()
Dim repeatku As Integer
For repeatku = 1 To 12
Range("W80").Select
ActiveCell.Offset(0, repeatku) = "Non Prod Hrs"
ActiveCell.Offset(0, repeatku + 1) = "Prod Hrs"
ActiveCell.Offset(0, repeatku + 2) = "Std Hrs"
repeatku = repeatku + 2
Next repeatku
End Sub
Problem solved.
Wassalam
Tio
hendrikkarnadi hendrikkarnadi@yahoo.com >
Sent by: belajar-excel@yahoogroups.com
02/19/2013 09:38 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: RE: [belajar-excel] Menginput cells di setiap kelipatan 3 sebanyak 4 kali
Coba pakai macro recording.
Salam,
Hendrik
Sent from Samsung Mobile
tio.adjie@ptssb.co.id wrote:
Dear Be-Exceller,
Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama
sebanyak 4x dengan text = "aku". Bagaimana yah caranya ?
Saya sudah coba dengan for next berkali2, tapi gak berhasil2.
Terima kasih,
Wassalam,
Tio
:
Private Sub CommandButton5_
Dim repeatku As Integer
For repeatku = 1 To 12
Range("
ActiveCell.Offset(
ActiveCell.Offset(
ActiveCell.Offset(
repeatku = repeatku + 2
Next repeatku
End Sub
Problem solved.
Wassalam
Tio
hendrikkarnadi hendrikkarnadi@
Sent by: belajar-excel@
02/19/2013 09:38 PM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: RE: [belajar-excel] Menginput cells di setiap kelipatan 3 sebanyak 4 kali
Coba pakai macro recording.
Salam,
Hendrik
Sent from Samsung Mobile
tio.adjie@ptssb.
Dear Be-Exceller,
Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama
sebanyak 4x dengan text = "aku"
Saya sudah coba dengan for next berkali2, tapi gak berhasil2.
Terima kasih,
Wassalam,
Tio
Tue Feb 19, 2013 4:39 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tio,
MsgBox adalah milik Windows (OS).
Jika akan mengubahnya, bisa dengan SubClassing MsgBox. Intinya, msgbox
punya window dijadikan sebuah kelas baru yang diatur sendiri wujudnya.
Repot, ribet, dan beresiko reboot.
Lebih mudah, membuat userform baru, diberi tombol sana sini, diatur
sendiri, dsb, yang dijadikan sebagai userform untuk menampilkan pesan
seperti msgbox.
Setiap kali butuh msgbox custom, aktifkan userform tersebut.
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.co.id >
> **
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, bisakah Excel memodif character font di message box ?
> seperti huruf font tebal, size font besar, dll ?
>
> Terima kasih,
> Wassalam,
> Tio
> _
>
MsgBox adalah milik Windows (OS).
Jika akan mengubahnya, bisa dengan SubClassing MsgBox. Intinya, msgbox
punya window dijadikan sebuah kelas baru yang diatur sendiri wujudnya.
Repot, ribet, dan beresiko reboot.
Lebih mudah, membuat userform baru, diberi tombol sana sini, diatur
sendiri, dsb, yang dijadikan sebagai userform untuk menampilkan pesan
seperti msgbox.
Setiap kali butuh msgbox custom, aktifkan userform tersebut.
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.
> **
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, bisakah Excel memodif character font di message box ?
> seperti huruf font tebal, size font besar, dll ?
>
> Terima kasih,
> Wassalam,
> Tio
> _
>
Tue Feb 19, 2013 6:03 am (PST) . Posted by:
"mardi" hekerkampoeng
Pak Hendrik,
Izin download ya....
Terima Kasih banyak, semoga Allah membalas semua kebaikan bapak.
Salam,
mardi
----- Receiving the following content -----
From: Dropbox
Receiver: belajar-excel
Time: 2013-02-18, 14:34:11
Subject: [belajar-excel] hendrik_karnadi_shared_"Program_Laporan_Keuangan_Terpadu"_with_you
From Hendrik:
"Buat rekan2 yang pernah mencari buku saya berjudul "Program Laporan Keuangan Terpadu, Aplikasi Visual Basic pada Excel 2007" silakan mengunduhnya secara gratis melalui link DropBox ini. Saya sudah mendapat ijin dari penerbitnya (PT Elex Media).
Salam,
Hendrik Karnadi"
Click here to view Program Laporan Keuangan Terpadu
(Hendrik shared these files using Dropbox. Enjoy!)
© 2013 Dropbox
Izin download ya....
Terima Kasih banyak, semoga Allah membalas semua kebaikan bapak.
Salam,
mardi
----- Receiving the following content -----
From: Dropbox
Receiver: belajar-excel
Time: 2013-02-18, 14:34:11
Subject: [belajar-excel] hendrik_karnadi_
From Hendrik:
"Buat rekan2 yang pernah mencari buku saya berjudul "Program Laporan Keuangan Terpadu, Aplikasi Visual Basic pada Excel 2007" silakan mengunduhnya secara gratis melalui link DropBox ini. Saya sudah mendapat ijin dari penerbitnya (PT Elex Media).
Salam,
Hendrik Karnadi"
Click here to view Program Laporan Keuangan Terpadu
(Hendrik shared these files using Dropbox. Enjoy!)
© 2013 Dropbox
Tue Feb 19, 2013 6:36 am (PST) . Posted by:
"hendrikkarnadi" hendrikkarnadi
Silakan Pak. Memang sdh boleh didownload secara gratis.
Salam,
Hendrik
Sent from Samsung Mobilemardi sumardiana596@gmail.com > wrote:Pak Hendrik,
Izin download ya....
Terima Kasih banyak, semoga Allah membalas semua kebaikan bapak.
Salam,
mardi
----- Receiving the following content -----
From: Dropbox
Receiver: belajar-excel
Time: 2013-02-18, 14:34:11
Subject: [belajar-excel] hendrik_karnadi_shared_"Program_Laporan_Keuangan_Terpadu"_with_you
From Hendrik:
"Buat rekan2 yang pernah mencari buku saya berjudul "Program Laporan Keuangan Terpadu, Aplikasi Visual Basic pada Excel 2007" silakan mengunduhnya secara gratis melalui link DropBox ini. Saya sudah mendapat ijin dari penerbitnya (PT Elex Media).
Salam,
Hendrik Karnadi"
Click here to view Program Laporan Keuangan Terpadu
(Hendrik shared these files using Dropbox. Enjoy!)
© 2013 Dropbox
Salam,
Hendrik
Sent from Samsung Mobilemardi sumardiana596@
Izin download ya....
Terima Kasih banyak, semoga Allah membalas semua kebaikan bapak.
Salam,
mardi
----- Receiving the following content -----
From: Dropbox
Receiver: belajar-excel
Time: 2013-02-18, 14:34:11
Subject: [belajar-excel] hendrik_karnadi_
From Hendrik:
"Buat rekan2 yang pernah mencari buku saya berjudul "Program Laporan Keuangan Terpadu, Aplikasi Visual Basic pada Excel 2007" silakan mengunduhnya secara gratis melalui link DropBox ini. Saya sudah mendapat ijin dari penerbitnya (PT Elex Media).
Salam,
Hendrik Karnadi"
Click here to view Program Laporan Keuangan Terpadu
(Hendrik shared these files using Dropbox. Enjoy!)
© 2013 Dropbox
Tue Feb 19, 2013 8:23 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Kalau 9 email terkirim dengan masing-masing email 887KB attachments total
sekitar 8 sampai 10MB.
Kemudian server email memberi peringatan bahwa quota sender melebihi batas
pada email ke 10.
Jadi kisaran quota sever akun email yang digunakan sender adalah sekitar 8
sampai 10 MB ini.
Jika memang demikian, maka diperlukan proses refresh (jika server email
akan langsung membuang seluruh sent mail) pada sisi server email (bukan di
aplikasi email manager) atau melakukan proses menghapus sent mail dan
beberapa email lain (jika server email tidak pernah menghapus sent mail
[seperti gmail]).
Sampai sekarang kok belum nemu caranya mengakses thunderbird via vb
Koneksi ke akun email melalui imap selain dengan outlook juga kebanyakan
membutuhkan install imap object library.
Jadi serba repot juga.
btw,
dengan asumsi bahwa kegiatan email bukanlah spam, mungkin file attachment
diletakkan disebuah cloud drive seperti dropbox atau google drive atau jika
memungkinakan server setempat menyediakan akses link download, maka bisa
diletakkan di server setempat. Jadi penerima email nanti download dari
sana. Repotnya, jika dari 400 recipients ini, masing-masing recipients akan
dikirimi file yang berbeda-beda, maka sebaiknya disediakan link untuk
download dari server setempat saja.
Mungkin ada BeExceller yang pernah menemui kasus seperti ini bisa share.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/2/19 slametharto@gmail.com >
> **
>
>
> ** Assalammu 'alaikum wr wb
>
> Mas Kid, quota sender dan recepient masing-masing 1 MB, sedangkan
> attachment email 887KB.
>
> Adakah caranya agar bisa kirim sekaligus. Trims
> ------------------------------
> *From: * "Mr. Kid" mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 18 Feb 2013 16:48:58 +0700
> *To: *belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Force Error 452
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Coba cari tahu batas quota pengiriman email yang sama dari akun email yang
> digunakan untuk kirim email.
> Jika mencukupi, cek juga batas quota yang diset dalam thunderbird.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
> On Mon, Feb 18, 2013 at 3:02 PM, slametharto@gmail.com > wrote:
>
>> Assalammu alaikum wr wb
>>
>> Dear Master
>> Masih dgn email thunderbird. Saya coba dgn cdo method utk kirim bulk
>> email ±400 recepient beserta attachment.
>> Tetapi hanya dpt mengirim ke 9 recepient saja, muncul error 452: Run-time
>> error , the server rejected the sender address. The server response was :
>> 452, user.name is over quota and can't send mail.
>>
>> Setelah itu saya refresh thundirbird manual, lalu run vba lagi.. Jadi
>> bisanya per 9 alamat penerima email. Gimana cara memaksakan agar terkirim
>> semua.
>>
>> Sebelum dan sesudahnya terima kasih.
>> Wassalammu 'alaikum wr wb
>>
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> 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
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
>
Kalau 9 email terkirim dengan masing-masing email 887KB attachments total
sekitar 8 sampai 10MB.
Kemudian server email memberi peringatan bahwa quota sender melebihi batas
pada email ke 10.
Jadi kisaran quota sever akun email yang digunakan sender adalah sekitar 8
sampai 10 MB ini.
Jika memang demikian, maka diperlukan proses refresh (jika server email
akan langsung membuang seluruh sent mail) pada sisi server email (bukan di
aplikasi email manager) atau melakukan proses menghapus sent mail dan
beberapa email lain (jika server email tidak pernah menghapus sent mail
[seperti gmail]).
Sampai sekarang kok belum nemu caranya mengakses thunderbird via vb
Koneksi ke akun email melalui imap selain dengan outlook juga kebanyakan
membutuhkan install imap object library.
Jadi serba repot juga.
btw,
dengan asumsi bahwa kegiatan email bukanlah spam, mungkin file attachment
diletakkan disebuah cloud drive seperti dropbox atau google drive atau jika
memungkinakan server setempat menyediakan akses link download, maka bisa
diletakkan di server setempat. Jadi penerima email nanti download dari
sana. Repotnya, jika dari 400 recipients ini, masing-masing recipients akan
dikirimi file yang berbeda-beda, maka sebaiknya disediakan link untuk
download dari server setempat saja.
Mungkin ada BeExceller yang pernah menemui kasus seperti ini bisa share.
Wassalamu'
Kid.
2013/2/19 slametharto@
> **
>
>
> ** Assalammu 'alaikum wr wb
>
> Mas Kid, quota sender dan recepient masing-masing 1 MB, sedangkan
> attachment email 887KB.
>
> Adakah caranya agar bisa kirim sekaligus. Trims
> ------------
> *From: * "Mr. Kid" mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Mon, 18 Feb 2013 16:48:58 +0700
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Force Error 452
>
>
>
> Wa'alaikumussal
>
> Coba cari tahu batas quota pengiriman email yang sama dari akun email yang
> digunakan untuk kirim email.
> Jika mencukupi, cek juga batas quota yang diset dalam thunderbird.
>
> Wassalamu'
> Kid.
>
> On Mon, Feb 18, 2013 at 3:02 PM, slametharto@
>
>> Assalammu alaikum wr wb
>>
>> Dear Master
>> Masih dgn email thunderbird. Saya coba dgn cdo method utk kirim bulk
>> email ±400 recepient beserta attachment.
>> Tetapi hanya dpt mengirim ke 9 recepient saja, muncul error 452: Run-time
>> error , the server rejected the sender address. The server response was :
>> 452, user.name is over quota and can't send mail.
>>
>> Setelah itu saya refresh thundirbird manual, lalu run vba lagi.. Jadi
>> bisanya per 9 alamat penerima email. Gimana cara memaksakan agar terkirim
>> semua.
>>
>> Sebelum dan sesudahnya terima kasih.
>> Wassalammu 'alaikum wr wb
>>
>>
>> ------------
>>
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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