Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 23 de fevereiro de 2011

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


__._,_.___
Recent Activity:
+-:: 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              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog