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

 

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 (2)

Recent Activity:

• New Members 81

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

.

__,_._,___