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
____________
