çift tıklama ile çalışsın

[Erdem Akdemir]

herkese merhabalar

Aşağıdaki kodu çalışma sayfasında,çift tıklama ile nasıl çalıştırabilirim

Sub SÜZ()
    Range("A1").AutoFilter Field:=1, Criteria1:="=*" & ActiveCell & "*"
End Sub

 

[Orion1]

herkese merhabalar

Aşağıdaki kodu çalışma sayfasında,çift tıklama ile nasıl çalıştırabilirim

Sub SÜZ()
    Range("A1").AutoFilter Field:=1, Criteria1:="=*" & ActiveCell & "*"
End Sub

Çalışma sayfasının modülüne;Double_Click olayına

Range("A1").AutoFilter Field:=1, Criteria1:="=*" & target.value & "*"

 

[Erdem Akdemir]

evren bey çok sağolun

 

[Erdem Akdemir]

......................

 

[Erdem Akdemir]

arkadaşlar merhaba

Aşağıdaki kodda çift tıklama yaptığım zaman süzme işlemini yapıyor

Şimdi istediğim ise ilk çift tıklama süzme yapsın, ikinci kere tıkladığımıda tümünü göstersin

Private Sub Worksheet_beforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 8 Then
Range("A1").AutoFilter Field:=3, Criteria1:="=*" & Target.Value & "*"
Cancel = True
Else
MsgBox "Bu alanda süzme yapamazsınız"
Cancel = True
End If
End Sub

 

[Orion1]

Bu kodu çalışma sayfasını modulünde general (Declare) Ün üste yazınız.

Dim suz As Boolean

bu aşağıdakşi kodu da ayni modüle eskisini silip bunu yapıştırınız.

Private Sub Worksheet_beforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 8 Then
    If suz = False Then
        Range("A1").AutoFilter Field:=3, Criteria1:="=*" & Target.Value & "*"
        Cancel = True
        suz = True
        Else
        Range("A1").AutoFilter Field:=3
        suz = False
    End If
Else
MsgBox "Bu alanda süzme yapamazsınız"
Cancel = True
End If
End Sub

 

[Erdem Akdemir]

Bu kodu çalışma sayfasını modulünde general (Declare) Ün üste yazınız.

Dim suz As Boolean

bu aşağıdakşi kodu da ayni modüle eskisini silip bunu yapıştırınız.

Private Sub Worksheet_beforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 8 Then
    If suz = False Then
        Range("A1").AutoFilter Field:=3, Criteria1:="=*" & Target.Value & "*"
        Cancel = True
        suz = True
        Else
        Range("A1").AutoFilter Field:=3
        suz = False
    End If
Else
MsgBox "Bu alanda süzme yapamazsınız"
Cancel = True
End If
End Sub

Evren bey sağolun

Burada yaptığınızı mümkünse biraz anlatsanız

 

[Orion1]

Aslında şu koduda kullanmanız lazım.
Aşağıdaki prosedürü boş bir modüle yapıştırınız.
Kırmızı ile bilirttiğm sayfa adını siz filteryi yaptığınız safanın adını yazınız.

Sub auto_open()
Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]").Range("A1").AutoFilter Field:=3
End Sub

 

[Orion1]

Evren bey sağolun

Burada yaptığınızı mümkünse biraz anlatsanız

Biz yazdığımız her kodun açıklmasını yazarsak bu işi hiç yapamayız.Ben günde 50-60 soruya cevap yazıyorum.Başa çıkamam.Bizim yazdığımız bu kodlar bile sizin için bir fırsattır.Kodlara bakıp ne demek istediğini anlamaya çalışmalısınız.

 

[Erdem Akdemir]

Biz yazdığımız her kodun açıklmasını yazarsak bu işi hiç yapamayız.Ben günde 50-60 soruya cevap yazıyorum.Başa çıkamam.Bizim yazdığımız bu kodlar bile sizin için bir fırsattır.Kodlara bakıp ne demek istediğini anlamaya çalışmalısınız.

Kusuruma bakmayın

Bende zorladığımın farkındayım :biggrin:

 

[Seyit Tiken]

Sindire sindire öğrenmek daha iyi ve kalıcı olur, Kodlar-Makrolar pek anlatılmaz, uygulayarak anlamaya çalışın, amaca ulaşmak için karışık argümanlar yerine sade yöntemlere yönelin, bu kadar yorum yeter. Ekli dosyada küçük bir örnek yaptım, bunu kendi kodlarınıza uyarlayama çalışın.

Private Sub ToggleButton1_Click()
If Sayfa1.ToggleButton1 Then
Sayfa1.ToggleButton1.Caption = "1.Eylem"
MsgBox "1.Eylem"
Else
Sayfa1.ToggleButton1.Caption = "2.Eylem"
MsgBox "2.Eylem"
End If
End Sub

 

[Erdem Akdemir]

Sindire sindire öğrenmek daha iyi ve kalıcı olur, Kodlar-Makrolar pek anlatılmaz, uygulayarak anlamaya çalışın, amaca ulaşmak için karışık argümanlar yerine sade yöntemlere yönelin, bu kadar yorum yeter. Ekli dosyada küçük bir örnek yaptım, bunu kendi kodlarınıza uyarlayama çalışın.

Private Sub ToggleButton1_Click()
If Sayfa1.ToggleButton1 Then
Sayfa1.ToggleButton1.Caption = "1.Eylem"
MsgBox "1.Eylem"
Else
Sayfa1.ToggleButton1.Caption = "2.Eylem"
MsgBox "2.Eylem"
End If
End Sub

Seyit Bey alakanız için teşekkür ederim

Bir şekilde öğrenmeye çalışıyorum, acelem yok

Çok şükür böyle bir site var, yoksa kitapların içinde kaybolurduk