Dari gambar gerak diatas mungkin sudah punya sedikit gambaranya tentang Filter Data...Kodenya dibawah ini ya...Coba sendiri ya...hasilnya bagaimana,,,kalo tidak bisa...silahkan tinggalkan komentar dibawah atau kontak saya juga bisa....karena saya ndak upload Filenya biar dicoba sendiri....Hehheehe
'=============================================================
'Coded By Afe
'Filter Data Sederhana
'Semarang, 22 Juli 2017
'Belajar Excel Indonesia
'=============================================================
Sub Filter_Kota()
Dim R As Range
Dim i As Integer, j As Integer: j = 1
With Sheet1
.[F2:H20].ClearContents
For Each R In .[C2:C10]
If R = .[E2] Then
i = .Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Cells(i, 6) = j
.Cells(i, 7) = R.Offset(0, -1)
.Cells(i, 8) = R
j = j + 1
End If
Next R
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then
Call Filter_Kota
End If
End Sub
2 komentar
hadeeeee.......mumet gan, udah di coba tetap ja gagal.
itu di cell tersembunyi isinya apa ya?
Tidak Ada cell yang tersembunyi gan,,,,Coba sesuai petunjuk dan RUN,,,,,hasinya bagaiamana?
EmoticonEmoticon