Ya dengan cara memberi 2 kesempatan pada 2 kondisi berbeda; Ingat Fungsi IF kan ? IF itu bersifat Pencabangan; Misal: Kalau Filter sedang diaktifkan >>> *non aktifkan, *Kalau "TIDAK" >>> * aktifkan* Gak repot kan ?
Pada saat mengaktifkan (memfilter); kriterianya harus berupa *nilai cell *yg
di "dalamnya" tergambar TextBox "KLIK".
Apakah Anda tahu: isi DATA DI CELL dimana TextBox-nya sedang di Klik ??
Apalagi TextBox anda itu dengan mudah dapat digeser ke cell lain ! Dengan
penglihatan mata ke sheet memang gampang menebak tetapi menyuruh Excel
menebak isi Data cell yg belum jelas alamatnya, tentunya agak repot.
Makro tentu saja bisa, akan tetapi lebih sederhana bila yg kita klik adalah
CELL nya, Keuntungannya Anda tidak perlu repot membuat "TOMBOL-TOMBOL-an"
di setiap unik item yg ada di kolom "Lokasi". Makro pun tidak perlu mencari
"cell mana berisi apa" untuk dijadikan kriteria.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Rara Wilis * Jun 21, 2012
' BeExcel Case# 17696
'---------------------
If Target.Count = 1 Then
If Target.Column = 2 Then
If Target.Row > 4 Then
If Not Target.Value = vbNullString Then
*GantiFilterUnFilter* Target.Value
End If
End If
End If
End If
End Sub
Sub HideUnhideKoloms()
' Rara Wilis * Jun 21, 2012
' BeExcel Case# 17696
'---------------------
With Columns("C:D")
If .EntireColumn.Hidden = True Then
.EntireColumn.Hidden = False
Else
.EntireColumn.Hidden = True
End If
End With
End Sub
'--------------------
~Rr
2012/6/20 Absolute - Udin <[email protected]>
> **
> dear all
> mau bertanya codenya utuk satu tombol dg dua perintah, keterangan & hasil
> yg diinginkan ada di lampiran
> terima kasih.
>
bljrrrrr (VBA CODE ~Rara).xlsm
Description: Binary data
