Kategorileri sağ tarafta listeleme

[bafralifatih55]

Merhaba arkadaşlar.
ekteki dosyada sol tarafa alt alta kategorileri isimlerini ve türlerini giriyorum. Sağ tarafında ise sol tarafa yazdığım kategori türlerine göre listelenmesini istiyorum. Böyle bir çalışmayı nasıl yapabilirim acaba?
Teşekkürler.

Dosya

 

[Mahir64]

Merhaba,
deneyiniz.
E3 hücresine,
DİZİ Formülüdür.

=EĞERHATA(İNDİS($A$3:$A$100;KÜÇÜK(EĞER($C$3:$C$100="Gelir";SATIR($C$3:$C$100)-SATIR($C$3)+1);SATIRSAY(E$2:E2)));"")

F3 hücresine,

=+DÜŞEYARA(E3;A:C;2;0)

Gider kısmını buna göre uyarlayabilirsiniz.

 

[bafralifatih55]

Merhaba
hocam çok teşekkür ederim. Ancak dosyada bazı değişiklikler oldu. Dosya içerisine açıklamaları koydum gerçi ama.
İşlem sayfasında İşlem Türü seçildiğinde yan tarafındaki Ana Kategori açılır listesine gelir seçilmişse Kategoriler Listesindeki Gelir Kaategorileri, gider seçilmişse gider Kategorileri listelensin istiyorum. Bu konuda da bana yardımcı olabilir misiniz?
Teşekkürler.

Kitap1.xlsx

drive.google.com

 

[YUSUF44]

Aşağıdaki kodları İşlemler sayfasını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ırsanız D sütununda seçtiğiniz hücrelerde istediğiniz veri doğrulama oluşur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = Sheets("Kategori Listesi")
sonC = Cells(Rows.Count, "C").End(3).Row
son = s1.Cells(Rows.Count, "C").End(3).Row

If Intersect(Target, Range("D4:D" & sonC)) Is Nothing Then Exit Sub
    If Target.Offset(0, -1) <> "" Then
        If WorksheetFunction.CountIf(s1.Range("C3:C" & son), Target.Offset(0, -1)) = 0 Then
            MsgBox "Önce İşlem türü seçiniz", vbExclamation
            Target.Offset(0, -1).Select
            Exit Sub
        Else
            Set con = VBA.CreateObject("adodb.Connection")
            con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
            ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=NO"""
            Application.ScreenUpdating = False
                sorgu = "select distinct F1 from[" & s1.Name & "$A3:C" & son & "] where F3='" & Target.Offset(0, -1).Value & "'"
                Set rs = con.Execute(sorgu)
                ary = Application.Transpose(Application.Transpose(rs.getrows))
                With Target.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:=Join(ary, ",")
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With
            Application.ScreenUpdating = True
        End If
    End If
End Sub

 

[bafralifatih55]

Merhaba
Mkaro kullanmadan formüllerle bu işi yapmak istiyorum.

 

[YUSUF44]

Onu ben yapamıyorum maalesef.

 

[Mahir64]

Merhaba,

Farklı iki uygulama ekledim, inceleyin ve kendinize göre uyarlayın.
bafralifatih55 link silinebilir. Harici yükleme sitesidir.

 

[bafralifatih55]

Merhaba
hocam işlemler sayfasında d4 hücresinde ana kategoriler güzel çalışıyor. ancak e4 hücresinde de ana kategoriler görüntüleniyor. ben alt kategorileri görüntüleyemedim. e4 hücresinde d4 hücresinde seçilen ana kategorinin alt kategorileri görünsün hocam.
Teşekkürler.

 

[Mahir64]

e4 hücresinde d4 hücresinde seçilen ana kategorinin alt kategorileri görünsün

Bunu şimdi diyorsunuz. Eklediğiniz dosyada ve sorunuzda bundan bahsetmediniz.
Ben iki örneğide ana katagori için ekledim.

 

[bafralifatih55]

Merhaba
Hocam unutmuşum kusura bakmayın. Başım biraz kalabalık. Gözden kaçmış.

 

[Mahir64]

Forumda ikili veya üçlü veri doğrulama diye arama yapabilirsiniz.
Kolay gelsin.
İyi çalışmalar.

 

[bafralifatih55]

Merhaba
Hocam aramayı yaptım. Benim kullandığım sitil farklı olduğu için alt kategorileri getirtemedim bir türlü.