hai Indra, error terjadi karena ada data yang tidak memiliki header atau headernya berbeda dengan header di selected data
Wassalam, -Miss Jan Raisin- Pada 21 Februari 2014 10.30, ChordJR <[email protected]> menulis: > > > Mohon maaf karena belum ada jawaban saya angkat kembali topik permasalahan > yang saya kerjakan... > > Berikut contoh file yang terjadi error pada VBA... > > Mohon bantuan dari pada master untuk coding macro yang sudah ada sebelum > saya bekerja,karena ilmu saya yang masih awam mohon di berikan coding > yang tepat...karena saya mencoba untuk membuat file baru dengan bagan > yang sama tapi tidak bisa bekerja...saya rasa mungkin ada kekurangan > pada macro ini... > > Option Explicit > Private Sub Worksheet_Change(ByVal Target As Range) > If Target.Row = 2 And Target.Column = 4 Then > 'calculate criteria cell in case calculation mode is manual > Sheets("DATA").Range("Criteria").Calculate > Worksheets("DATA").Range("database") _ > .AdvancedFilter Action:=xlFilterCopy, _ > CriteriaRange:=Sheets("DATA").Range("criteria"), _ > CopyToRange:=Range("A8:Ay8"), Unique:=False > End If > End Sub > > Pada sheet Selected Data,menggunakan workbook change...pada saat merubah > Job Number otomatis akan mengambil data dari Database > > Pertanyaan saya : > Apa yang membuat macro ini error,sedangkan tanpa merubah format dan > isi"nya pada file sebelumnya bisa running??Mohon di jelaskan juga bagaimana > prosesnya... > > Salam, > > Indra > >
