detay gizle göster

[ertuer]

Değerli arkadaşlar ekteki örnekte her müşteriye ait 3 satır vardır.
konulacak butonlarla ;istendiğinde ilgili satırların 3 ü 2 si veya bir tanesi görülebilmesi istenmektedir.Ben bunu süzme ile yapıyorum ama fonksiyonla ve butonla olabiliyorsa
yardımlarınızı rica ederim.

 

[asi_kral]

Değerli arkadaşlar ekteki örnekte her müşteriye ait 3 satır vardır.
konulacak butonlarla ;istendiğinde ilgili satırların 3 ü 2 si veya bir tanesi görülebilmesi istenmektedir.Ben bunu süzme ile yapıyorum ama fonksiyonla ve butonla olabiliyorsa
yardımlarınızı rica ederim.

Merhaba
Butona gerek yok hücreyi seçtiğiniz anda otomatik istediğiniz işlemi yapmakta.
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Konu       :   İstenen Değerleri Süz
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim a As Long
If Target.Column = 4 Then
If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
a = Range("B" & Rows.Count).End(xlUp).Row
Range("B6:I" & a).AutoFilter
ElseIf Target.Column = 5 Then
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
a = Range("B" & Rows.Count).End(xlUp).Row
Range("B6:I" & a).AutoFilter field:=1, Criteria1:="b"
ElseIf Target.Column = 6 Then
If Intersect(Target, Range("F2")) Is Nothing Then Exit Sub
a = Range("B" & Rows.Count).End(xlUp).Row
Range("B6:I" & a).AutoFilter field:=1, Criteria1:="b", Operator:=xlOr, _
Criteria2:="a"
ElseIf Target.Column = 7 Then
If Intersect(Target, Range("G2")) Is Nothing Then Exit Sub
a = Range("B" & Rows.Count).End(xlUp).Row
Range("B6:I" & a).AutoFilter field:=1, Criteria1:="c"
End If
End Sub

Dosyanız Ekte

 

[Husgvarna]

Değerli arkadaşlar ekteki örnekte her müşteriye ait 3 satır vardır.
konulacak butonlarla ;istendiğinde ilgili satırların 3 ü 2 si veya bir tanesi görülebilmesi istenmektedir.Ben bunu süzme ile yapıyorum ama fonksiyonla ve butonla olabiliyorsa
yardımlarınızı rica ederim.

Alternatif olarak eki inceleyiniz.

 

[ertuer]

Sayın asi kral 1967 ve Husgvarna ! Her ikinize de içten teşekkürler.
her ikinizin çözümü de benim için son derece kullanışlı ve faydalı oldu.

 

[asi_kral]

Sayın asi kral 1967 ve Husgvarna ! Her ikinize de içten teşekkürler.
her ikinizin çözümü de benim için son derece kullanışlı ve faydalı oldu.

Kolay Gelsin.