| 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 |
__._,_.___
+-:: 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 |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário