Kamis, 17 Oktober 2013

[belajar-excel] Digest Number 2596

5 New Messages

Digest #2596
2a
Data error by "Tuti Hartati"
2b
Re: Data error [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
3a
Rumus If x > ...(currency) = #value! by "vincent Yoes" vincetgo
3b

Messages

Wed Oct 16, 2013 3:37 pm (PDT) . Posted by:

"supri anto"


Assalamu�alaikum warohmatullahi wabarokatuuh�

�

Yth Rekan-Rekan �BeExceller

�

Mohon Bantuannya,Adakah code vba yang lebih simpel untuk membuat
tgl expired sheet. Agar tgl 07-30-204 ini tidak berulang-ulang di
ketik pada setiap sheet,berikut scripnya dan untuk lebih jelasnya
ada pada file lampiran.

�

Private Sub CmdPrint2_Click()

Application.ScreenUpdating = False

exdate = "07-30-2014"

If Date < exdate Then

Sheets("PRINTOUT2").Visible = xlSheetVisible

Sheets("PRINTOUT2").Select

Sheets("Menu").Visible = xlVeryHidden

If Date > exdate Then

Sheets("PRINTOUT2").Visible = xlSheetVeryHidden

Sheets("PRINTOUT2").Close

Sheets("Menu").Visible = xlVeryHidden

Application.ScreenUpdating = True

End If

End If

End Sub

�

Private Sub CmdPrint3_Click()

Application.ScreenUpdating = False

exdate = "07-30-2014"

If Date < exdate Then

Sheets("PRINTOUT3").Visible = xlSheetVisible

Sheets("PRINTOUT3").Select

Sheets("Menu").Visible = xlVeryHidden

If Date > exdate Then

Sheets("PRINTOUT3").Visible = xlSheetVeryHidden

Sheets("PRINTOUT3").Close

Sheets("Menu").Visible = xlVeryHidden

Application.ScreenUpdating = True

End If

End If

End Sub

�

Private Sub CmdPrint4_Click()

Application.ScreenUpdating = False

exdate = "07-30-2014"

If Date < exdate Then

Sheets("PRINTOUT4").Visible = xlSheetVisible

Sheets("PRINTOUT4").Select

Sheets("Menu").Visible = xlVeryHidden

If Date > exdate Then

Sheets("PRINTOUT4").Visible = xlSheetVeryHidden

Sheets("PRINTOUT4").Close

Sheets("Menu").Visible = xlVeryHidden

Application.ScreenUpdating = True

End If

End If

End Sub

�

Terima kasih sebelumnya�

Wassalamu�alaikum warohamtullahi wabarokatuuh�

�

Hormat saya,

Suprianto

Wed Oct 16, 2013 3:37 pm (PDT) . Posted by:

"Tuti Hartati"

Dear para master,

Mohon maaf sebelumnya sudah mengirim file terlalu besar, kembali saya
kirimkan emailnya mohon bantuannya, aku punya database yang vba macronya
dibuatkan pada excel ver 5.1, dan biasanya itu bisa dijalankan pada excel
versi terbaru yaitu 2007, tetapi ketika dijalankan pada office 2010 kenapa
tidak mau ya, untuk file errornya terlampir, mohon penjelasannya.

Terimakasih,

Tuti Hartati.
PT. Fukusuke Kogyo Indonesia
Kawasan Berikat MM2100
Blok M-3-2, Cikarang Barat, Bekasi
Telp : 0218980444, 0218980315, 0218980316
Fax : 0218980311
Mobile : 089636375850
Email : <mailto:tuti-hartati@fukusuke-kogyo.co.id>
tuti-hartati@fukusuke-kogyo.co.id

Wed Oct 16, 2013 3:59 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Dear Tuti,

method Activate gagal biasanya karena object unreachable atau tidak ada
dalam object yang aktif.
Jika yang gagal adalah worksheet, bisa jadi karena workbook yang aktif
tidak memiliki worksheet.

Andai berkenan, sudilah kiranya menyertakan blok prosedur yang berisi kode
yang menghasilkan error tersebut ke milis.

Wassalam,
Kid.

2013/10/16 Tuti Hartati <tuti-hartati@fukusuke-kogyo.co.id>

> **
>
>
> Dear para master,****
>
> Mohon maaf sebelumnya sudah mengirim file terlalu besar, kembali saya
> kirimkan emailnya mohon bantuannya, aku punya database yang vba macronya
> dibuatkan pada excel ver 5.1, dan biasanya itu bisa dijalankan pada excel
> versi terbaru yaitu 2007, tetapi ketika dijalankan pada office 2010 kenapa
> tidak mau ya, untuk file errornya terlampir, mohon penjelasannya.****
>
> ** **
>
> Terimakasih,****
>
> Tuti Hartati.
> PT. Fukusuke Kogyo ****Indonesia****
> Kawasan Berikat MM2100
> Blok M-3-2, Cikarang Barat, Bekasi
> Telp : 0218980444, 0218980315, 0218980316
> Fax : 0218980311
> ****Mobile**** : 089636375850
> Email : tuti-hartati@fukusuke-kogyo.co.id****
>
> ** **
>
>
>

Wed Oct 16, 2013 3:40 pm (PDT) . Posted by:

"vincent Yoes" vincetgo

Dear rekan2 Be Exceller

macro vba dibawah ini kenapa ya hasilnya jika 500000000 kebawah currency dalam bentuk angka namun jika 500000000 keatas hasilnya tidak dalam bentuk currency namun #value!

Public Function hutang(x As Currency)
Dim hasil As Currency
Dim hasila As Currency
Dim hasilb As Currency
Dim hasilc As Currency
Dim hasild As Currency

If x > 500000000 Then
    x = x - 500000000
   
hasila = 25000000 * 5 / 100
hasilb = 50000000 * 10 / 100
hasilc = 500000000 * 15 / 100
hasild = x * 25 / 100
hasil = hasila + hasilb + hasilc + hasild
End If
hutang = hasil
End Function

berikut format excelnya saya lampirkan.

mohon pencerahannya rekan2 Exceller...

atas bantuannya saya ucapkan terima kasih.......

BE EXCELLER

Vincent

Wed Oct 16, 2013 3:46 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai vincent,

datatype currency ndal bisa menampung nilai diluar range berikut :
-922,337,203,685,477.5808 to 922,337,203,685,477.5807

Coba gunakan datatype double atau decimal (via variant dan fungsi cdec)

Wassalam,
Kid.

2013/10/16 vincent Yoes <vincetgo@yahoo.com>

> **
>
>
> Dear rekan2 Be Exceller
>
> macro vba dibawah ini kenapa ya hasilnya jika 500000000 kebawah currency
> dalam bentuk angka namun jika 500000000 keatas hasilnya tidak dalam bentuk
> currency namun #value!
>
> Public Function hutang(x As Currency)
> Dim hasil As Currency
> Dim hasila As Currency
> Dim hasilb As Currency
> Dim hasilc As Currency
> Dim hasild As Currency
>
> If x > 500000000 Then
> x = x - 500000000
>
> hasila = 25000000 * 5 / 100
> hasilb = 50000000 * 10 / 100
> hasilc = 500000000 * 15 / 100
> hasild = x * 25 / 100
> hasil = hasila + hasilb + hasilc + hasild
> End If
> hutang = hasil
> End Function
>
> berikut format excelnya saya lampirkan.
>
> mohon pencerahannya rekan2 Exceller...
>
> atas bantuannya saya ucapkan terima kasih.......
>
> BE EXCELLER
>
> Vincent
>
>
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 04.48

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)