Tambahin dikit boleh kan Miss Jan. Indra, coba ganti sel yang dirujuk dengan warna merah, mis dengan "TES" (tanpa spasi) dan lihat hasilnya.
Salam, HK On Friday, 21 February 2014, 17:20, Jan Raisin <[email protected]> wrote: hai Indra, error terjadi karena ada data yang tidak memiliki header (sheet Data kolom J - Judul kosong) atau headernya berbeda dengan header di selected data (Sheet SelectedDat kolom I - Est.No.) 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 > >
