Hai Indra, Boleh ndak kalo BeExceller diberi penjelasan yang lebih detil tentang datanya ada dimana, mau diapakan, hasilnya seperti apa (minimal hasil kerja manualnya), yang sudah dicoba apa saja, script tersebut rencananya buat apa dan segalanya lah.
File lampiran akan membantu. Cukup contoh data, ndak perlu seluruh data kerja, yang penting mewakili kasus. Jangan sampai lebih dari 250KB ya... Penjelasan singkatnya bisa diletakkan di body email. Penjelasan detil dalam workbook yang dilampirkan akan lebih baik lagi. Kalau ndak ada keterangan lebih lanjut, bisa-bisa ndak akan ada yang reply nanti... Wassalam, Kid. 2014-02-13 10:29 GMT+07:00 ChordJR <[email protected]>: > > > Assalamualaikum Wr. Wb. > > Minta 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 > > *Untuk Name Range pada sheet Data : > criteria=DATA!$B$1:$B$2 > database=DATA!$B$4:$DJ$30000 > > Saya rasa dengan penjelasan singkat ini dapat di mengerti oleh para > master...karena untuk mengupload file terlalu besar sizenya... > > Wassalam, > > Indra > > ----- Mods ----- > Sample data dengan ukuran <= 250 KB akan lebih memudahkan calon penanggap > silakan kirim sample workbook, tidak harus data asli, jumlah data tidak > perlu banyak > yang penting mewakili kasus yang ditanyakan. > > Berikan juga keterangan, apa2 saja yang diinginkan termasuk contoh hasil > manual > ____________ > > >
