Mungkinkah begini?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4,
Criteria1:=ActiveSheet.Range("G2").Value
If (Target.Address = "$G$2" And Range("G2") = "") Then _
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4
End Sub
salam
NangAgus
On 18/05/17 14.45, odong nando [email protected] [belajar-excel] wrote:
hai member beExcel
dari code berikut :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
ActiveSheet.Range("$A$6:$G$1048500").AutoFilter Field:=4,
Criteria1:=ActiveSheet.Range("G2").Value
Else
End If
End Sub
bagaimanakah caranya jika saya ingin menambahkan saat cell "G2" tidak
berisi apapun maka akan meng clear filter form.
mohon bantuannya soalnya saya udah utak utik sendiri n ga berhasil,
malah jadi ngaco...
hehehe...
br,
odong nando*
*
