Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 22 de junho de 2011

]] XL-mania [[ Macro Berjalan COPAS tidak Jalan

 

Dear Para Master XL Mania
 
 
Mohon Pencerahannya..
saya punya masalah pada saat Macro berjalan ada fitur di excel yang tidak berjalan Yaitu Copy Paste di WorkBook Yang Baru/lain..
yang saya mau tanyakan adalah
 
1. Apakah ada yang salah dengan bahasa Macronya???
2. Apakah ada Settingan yang perlu dirubahh??
 
Mohon Bantuannya... saya lampirkan juga contoh filenya dari sebagian data, data aslinya ratusan ribu (kebayang kan nunggu nya)
 
dan dibawah ini adalah bahasa
 
Sub Test()
'
' Macro1 Macro
'
 
'
y = ActiveSheet.UsedRange.Rows.Count
x = ActiveSheet.UsedRange.Columns.Count
 
For rwIndex = 2 To y
    For colIndex = 9 To x
        With ActiveSheet.Cells(rwIndex, colIndex).Activate
        Selection.FormulaArray = _
            "=IFERROR(INDEX(Sheet2!R1C5:R25C5,MATCH(Sheet1!RC[-8]&Sheet1!RC[-6],Sheet2!R1C1:R25C1&Sheet2!R1C3:R25C3,0)),0)"
        Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Application.CutCopyMode = False
        End With
    Next colIndex
Next rwIndex
MsgBox "SELESAI"
End Sub
 
Mohon bantuannya para master..
 
 
 
Best Regards,

Sutrisno.
=========================================

__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| 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