Soru Matris tablolar

[orcunkurtar]

Excelde birimler ve alması gereken eğitimlerin olduğu matris tablom var Ben yan tarafta birimleri liste ile birimleri seçtiğim zaman " x" lerin karşısındaki eğitimleri yazdırmak istiyorum nasıl yapabilirim ?Exceli yükleyemedim forumdaki ilk mesajım

 

[YUSUF44]

Foruma hoş geldiniz.

Lütfen örnek dosya paylaşınız. Dosyanızda ilk hali ve olmasını istediğiniz hali bulunursa iyi olur.

Dosya paylaşım bilgisi imzamda mevcuttur.

 

[orcunkurtar]

excel dosyası linki

 

[YUSUF44]

Dosyayı erişime açmamışsınız.

 

[orcunkurtar]

excel dosyası linki

 

[YUSUF44]

Aşağıdaki kodları sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz. AS6 hücresini değiştirdiğinizde istediğiniz listelemeyi yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AS6]) Is Nothing Then Exit Sub
eski = WorksheetFunction.Max(6, Cells(Rows.Count, "AT").End(3).Row)
sonA = WorksheetFunction.Max(5, Cells(Rows.Count, "A").End(3).Row)
sonS = WorksheetFunction.Max(2, Cells(2, Columns.Count).End(xlToLeft).Column)
Range("AT6:AT" & eski).ClearContents
If Target <> "" Then
    If WorksheetFunction.CountIf(Range("A5:A" & sonA), Target) = 0 Then
        MsgBox Target & " Birimi bulunamadı!", vbInformation
        Target.Select
        Exit Sub
    Else
        a = 6
        sat = WorksheetFunction.Match(Target, Range("A1:A" & sonA), 0)
        Application.ScreenUpdating = False
            For sut = 2 To sonS
                If Cells(sat, sut) = "X" Then
                    Cells(a, "AT") = Cells(2, sut)
                    a = a + 1
                End If
            Next
        Application.ScreenUpdating = True
    End If
End If
End Sub

 

[orcunkurtar]

Çok teşekkür ederim Elinize sağlık