]] XL-mania [[ apa yang salah dengan macro saya

 

Dear all dewa2 excel

mau tanya dong macro yang saya buat sekarang2 ini malah jadi aneh, padahal dulu nggak, saya bikin 3 tau yang lalu dan ga pernah error, baru tadi pagi kelakuannya aneh

sekeripnya sebagai berikut

Sub Macro1()
Dim baris, Baris1, BarisAkhir, BarisAkhir1, BSC, BscSource, BSCFile As String
Dim jadi, sumber, sumber1, sumber2, kolom, barisan, sourcer As String
    
Sheets("sheet1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Cells.Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Key2:=Range("A1") _
 , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
   False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
   :=xlSortNormal
    A = 2
    Do Until A = 62
        Sheets("sheet2").Select
        BSC = Cells(A, 1).Text
        BscSource = "G:\KPITINEM3\KPITINEM3_BSC_"
        baris = Cells(A, 2).Text
        Tipe2 = ".xlsx"
        BSCFile = BscSource + BSC + Tipe2
        Baris1 = Cells(A, 3).Text
        Sheets("sheet1").Select
        Rows("1:" + (CStr(baris))).Select
        Selection.Cut
        ChDir "G:\KPITINEM3\"
        Workbooks.Open Filename:=BSCFile _
        , Origin:=xlWindows
        Sheets("sheet1").Select
        Rows(CStr(Baris1 + 1) + ":" + CStr(Baris1 + 1)).Select
        ActiveSheet.Paste
    Cells.Select
    'Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess,
        'OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        'DataOption1:=xlSortNormal
Sheets("sheet2").Select
barisan = Cells(1, 1).Text
kolom = Cells(2, 1).Text
sumber = "Sheet1!R1C1:"
sumber1 = "R" + CStr(barisan)
sumber2 = "C" + CStr(kolom)
jadi = sumber + sumber1 + sumber2
    Sheets("Sheet4").Select
    Range("A6").Select
    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        jadi
    Sheets("Chart2").Select
    ActiveChart.PivotLayout.PivotTable.RefreshTable
        ActiveWorkbook.Save
        ActiveWindow.Close
        Windows("KPITINEM3.xlsm").Activate
        Selection.Delete Shift:=xlUp
    
A = A + 1
Loop
End Sub

setiap macro di jalanin si sheet chart yang seharusnya chart2 seperti yang saya bold di atad selalu berubah ke chart1, nah tapi untuk file yang ke 2 yang di buka oleh macro tersebut jadi chart2 lagi dan berulang (chart1 terus chart2 dst) 

yang salah apanya ya kira2 mastah2 semua, mohon koreksinya :D

Terima kasih

Sidiq permana

__._,_.___

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

Messages in this topic (1)

Recent Activity:

• New Members 83

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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

.

__,_._,___