Şartlı Listeleme

[iplikci_80]

Arkadaşlar çalışmada I sütunundaki "KAYITLI OLDUĞU SGK" değerine çift tıkladığımızda o değere ait tüm bilgileri LİSTE sayfasının B3 hücresinden başlayarak listeleyen bir kod mevcut. Benim yapmak istediğim şey listeleme yapan kodu revize ederek K sütunundaki gibi "OSMANİYE - MUHASEBECİ" gibi şartlı olarak da listeleyebilen hale getirmek istiyorum. Yani hem I sütunundaki değerleri çift tıklayıp o değere ait tüm bilgileri, hem de K sütununa çift tıklayıp sadece o değere ait bilgileri listeleyebilir miyim.

 

[vardar07]

Yanlış anlamadıysam aşağıdaki kodu sizdeki ile değiştirip deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address Like "*:*" Then Exit Sub
If Intersect(Target, Range("I:I,K:K")) Is Nothing Then Exit Sub
    Dim erb As Range
   Sayfa2.Range("B3:K65536").ClearContents
    With Sayfa1
    If Target.Column = 9 Then Set alan = .Range("I5:I" & .Range("I65536").End(3).Row)
    If Target.Column = 11 Then Set alan = .Range("K5:K" & .Range("K65536").End(3).Row)
    For Each erb In alan
          If Target.Value = erb.Value Then
                Sayfa2.Range("C65536").End(3)(2, 1) = .Cells(erb.Row, "B")
                Sayfa2.Range("D65536").End(3)(2, 1) = .Cells(erb.Row, "E")
                Sayfa2.Range("E65536").End(3)(2, 1) = .Cells(erb.Row, "F")
                Sayfa2.Range("F65536").End(3)(2, 1) = .Cells(erb.Row, "I")
                Sayfa2.Range("G65536").End(3)(2, 1) = .Cells(erb.Row, "C")
                Sayfa2.Range("H65536").End(3)(2, 1) = .Cells(erb.Row, "D")
                Sayfa2.Range("I65536").End(3)(2, 1) = .Cells(erb.Row, "N")
        End If
        Next erb
        End With
    Set erb = Nothing
    Set s1 = ThisWorkbook.Worksheets("liste")
For i = 3 To s1.Range("c65536").End(xlUp).Row
s1.Cells(i, 2) = i - 2
Next i
    With Sheets("LİSTE").PageSetup
        If Target.Text = "OSMANİYE" Then
        .CenterHeader = "&""-,Kalın""&24OSMANİYE PERSONEL LİSTESİ" & Chr(10) & ""
        ElseIf Target.Text = "ISPARTA" Then
       .CenterHeader = "&""-,Kalın""&24ISPARTA PERSONEL LİSTESİ" & Chr(10) & ""
       End If
    End With
End Sub

 

[iplikci_80]

Sayın vardar07 ilginize çok teşekkür ederim. İstediğim şey gönderdiğiniz cevabla uyuşuyor ama I ve K sütunlarına çift tıklama olmuyor.

 

[vardar07]

K Sütunundaki veri formullü olduğu için hataya yer vermemek adına hücreyi seçince verileri aktarıyor.

 

[iplikci_80]

Sayın vardar07 her şey için çok teşekkür ederim.

 

[iplikci_80]

Sayın vardar07 yukarıdaki kodda sizden yardım almıştım. I ve K sütununa çift tıkladığımızda o değere ait tüm bilgileri LİSTE sayfasına listeliyor. Fakat boş olan K8 hücresinde formüller olduğundan tıkladığımızda listeleme yaparcasına saymaya başlıyor. Sizden ricam boş olan hücrelerde formülde olsa listeleme yapılasını engellemek.