Re: ]] XL-mania [[ Macro Excel 2010 tidak jalan di Excel 2007...Solusi...

 

Terima Kasih Mr.Kid, Macronya berjalan dengan Baik, tapi saya agak bingung kenapa kok bisa jalan padahal secara kode sama hanya yang membedakan code petama (code saya " not working") di pisah, dan code kedua (code Mr. KID "Working nicely") di gabung....? apakah memang itu sebabnya....? atau ini bug di excel 2007...? --- Pada Kam, 24/2/11, Mr. Kid <mr.nmkid@gmail.com> menulis: Dari: Mr. Kid <mr.nmkid@gmail.com> Judul: Re: ]] XL-mania [[ Macro Excel 2010 tidak jalan di Excel 2007...Solusi... Kepada: XL-mania@yahoogroups.com Cc: "ANTONIUS TEGUH" <qsetya@yahoo.co.id> Tanggal: Kamis, 24 Februari, 2011, 8:21 AM Kira-kira, bagian berikut ini : Else             Sheets("Input").Select             Range("d4:d24").Select             Selection.Copy             Sheets("Database").Select             Range("A65000").Select             Selection.End(xlUp).Offset(1, 0).Select             Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True Diubah menjadi : Else             Sheets("Input").Range("d4:d24").Copy             Sheets("Database").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True Regards. Kid. 2011/2/22 ANTONIUS TEGUH <qsetya@yahoo.co.id>   Mohon Bantuan para master kiranya dapat memberikan pencerahan untuk masalah ini saya membuat code Macro di excel 2010 seperti ini Sub Input_Data()     Sheets("Input").Unprotect     Sheets("Database").Visible = True     Sheets("Database").Unprotect         If Range("d5") = "" Then             MsgBox "Kode Gudang tidak boleh kosong.", vbInformation             Range("d5").Select         ElseIf Range("d6") = "" Then             MsgBox "Kode Barang tidak boleh kosong.", vbInformation             Range("d6").Select         ElseIf Range("d8") = "" Then             MsgBox "Tanggal tidak boleh kosong.", vbInformation             Range("d8").Select         ElseIf Range("d11") = "" Then             MsgBox "driver tidak boleh kosong.", vbInformation             Range("d11").Select         ElseIf Range("d13") = "" Then             MsgBox "Qty Tidak Boleh Kosong.", vbInformation             Range("d13").Select         Else             Sheets("Input").Select             Range("d4:d24").Select             Selection.Copy             Sheets("Database").Select             Range("A65000").Select             Selection.End(xlUp).Offset(1, 0).Select             Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True             Application.CutCopyMode = False             Sheets("Database").Protect             Sheets("Total Inventory Stock").Select             ActiveWorkbook.RefreshAll             Sheets("Input").Select             'Range("d4:d7,d8:d23").ClearContents             Range("d4:d24").ClearContents             Range("e16:g16").ClearContents             Range("e19:g19").ClearContents             Sheets("Input").Protect             Range("d4").Select             'End If                 'End If                     'End If         End If     '     'Sheets("Input").Select     'Sheets("Input").Protect     'Range("d4").Select     Sheets("database").Visible = False     'Sheets("Database").Protect End Sub dan dapat berjalan normal Namun saat saya jalankan di excel 2007 selalu bug di bagian "warna Kuning" saya coba record lagi macronya di excel 2007 namun tetap error.... sudah bingung, hampir putus asa....EXCEL MANIA tempat mencari Solusi Mohon Bantuan Para Master Terima Kasih

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 96

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| sorry... moderasi super lemot... momods lagi sakit parah...       |
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku  |
| aplikasi bisnis dan buku komputer. isinya tidak biasa!            |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___