TreeView, Combobox1 ve 2 seçimine göre liste hazırlamak!

[ocamsul]

Arkadaşlar merhabalar; herkese iyi çalışmalar.
yardımlarınızı beklediğim konu

TreeView, Combobox1 ve 2 seçimine göre liste hazırlamak!

Yani Combobox1 ve 2 den yıl ve ay'ı seçeceğiz, ayrıca girilen muhasebe ve birim koduna göre de listeleme kriterimiz olacak. Bu Kriterlerden sonrasında TreeView nesnesinden istediğimiz rapor türünü seçerek oluşturmasını sağlayacağız. Bu konu hallında öneri ve örneklerinizi bekliyorum arkadaşlar. İyi çalışmalar dilerim.

 

[Ferhat Pazarçevirdi]

Mesaj ekindeki dosya, tarafımdan kaldırılmıştır.

Lütfen, bu dosyayı eklemeyiniz ..

Kullandığınız API'ler windows görev çubuğunda, istenmeyen penceler açılıp kapanmasına neden oluyor ... ve müdahale edilemiyor

Forumdaki, Treeview örneklerini inceleyiniz.

 

[ocamsul]

Kullandığınız API'ler windows görev çubuğunda, istenmeyen penceler açılıp kapanmasına neden oluyor ... ve müdahale edilemiyor

SN: Ferhat Pazarçevirdi; dosya üzerinde gerekli düzeltmeleri yaptım. içi boş yani

 

[Ferhat Pazarçevirdi]

Useform3 kod modülündeki tüm kodları silerek, aşağıdakileri kullanınız

Private Sub UserForm_Initialize()
    Dim imglst As New ImageList
 
    With imglst
        .ImageHeight = 16
        .ImageWidth = 16
        .ListImages.Add , "Res", Image1.Picture
    End With
 
    With TreeView1
        .ImageList = imglst
        .Nodes.Add(, , "RPR", "Raporlar", "Res").Expanded = True
        .Nodes.Add "RPR", tvwChild, "MBMC", "Muhasebe Bazında Masraf Cetveli", "Res"
        .Nodes.Add "RPR", tvwChild, "BBMC", "Birim Bazında Masraf Cetveli", "Res"
    End With
 
    ComboBox3.RowSource = "sayfa3!F4:F6"
    ComboBox1.RowSource = "sayfa3!B4:B13"
    ComboBox2.RowSource = "sayfa3!E4:E16"
End Sub
'--------------------------------------
Private Sub CommandButton1_Click()
    Dim rngBul As Range
    Dim rngParca1 As Range
    Dim rngParca2 As Range
    Dim strAdr As String
    Dim sh As Worksheet
    Dim shGL As Worksheet
    Dim iSatir As Integer
 
 
    iSatir = 7
 
    If TreeView1.SelectedItem Is Nothing Then GoTo Mesaj
    If TreeView1.SelectedItem.Index = 1 Then GoTo Mesaj
 
    Set shGL = Sheets("GENELLIST")
 
    If Len(Trim(ComboBox1)) = 0 Then
        MsgBox "Yıl seçimi yapılmadı", vbCritical, "Uyarı"
        ComboBox1.DropDown
        Exit Sub
    End If
 
    Set sh = Sheets(TreeView1.SelectedItem.Key)
 
    Set rngBul = shGL.Columns(1).Find(ComboBox1, lookat:=xlWhole)
 
    If rngBul Is Nothing Then
        MsgBox "Belirtilen yıl için herhangi bir kayda rastlanmadı", vbCritical, "Uyarı"
        Exit Sub
    Else
        sh.Rows("7:500").ClearContents
        strAdr = rngBul.Address
        Do
            If rngBul.Offset(0, 1) = ComboBox2 Or Len(Trim(ComboBox2)) = 0 Then
                If rngBul.Offset(0, 2) = TextBox1 Or Len(Trim(TextBox1)) = 0 Then
                    With shGL
                        Set rngParca1 = .Range(.Cells(rngBul.Row, "A"), .Cells(rngBul.Row, "Q"))
                        rngParca1.Copy sh.Cells(iSatir, "A")
                        Set rngParca2 = .Range(.Cells(rngBul.Row, "R"), .Cells(rngBul.Row, "W"))
                        rngParca2.Copy sh.Cells(iSatir, "T")
                    End With
                    iSatir = iSatir + 1
                End If
            End If
            Set rngBul = shGL.Columns(1).FindNext(rngBul)
 
        Loop While Not rngBul Is Nothing And rngBul.Address <> strAdr
    End If
 
    sh.Select
 
    Set shGL = Nothing
    Set sh = Nothing
    Set rngBul = Nothing
    Set rngParca1 = Nothing
    Set rngParca2 = Nothing
    Exit Sub
Mesaj:
    MsgBox "Bir rapor t&#252;r&#252; se&#231;iniz", vbCritical, "Uyar&#305;"
    TreeView1.SetFocus
End Sub

 

[ocamsul]

SN: Ferhat Pazarçevirdi; üsdat emeğinize sağlık çok teşekkür ederim. kod tam anlamı ile anlatmak istediğimin cevabı olmuş. Ufak bir prüz de var oda şu ki;
1 - Rapor sayfalarına aktarma yaparken "TERTİP" ayrıntı kodları 7.93......... şeklinde sıralanması gerekirken başlangıç kodunu 93........ olarak alıyor.
2 - Birde rakamsal değerlerin "ÖDENEK GÖNDERME" bölümünden itibaren işlenmesi gerekli.

İyi çalışmalar dilerim.

 

[Ferhat Pazarçevirdi]

1 - Rapor sayfalarına aktarma yaparken "TERTİP" ayrıntı kodları 7.93......... şeklinde sıralanması gerekirken başlangıç kodunu 93........ olarak alıyor.

Rapor sayfalarında "E" sütunu gizlemişsiniz. Ben de yeni farkettim. Bu sütunun başlığında "Birim" yazıyor ... Yani, normalde istediğiniz gibi, 7, 93 .... gibi gidiyor ... Gizli sütunu görünür yapınız, göreceksiniz.

2 - Birde rakamsal değerlerin "ÖDENEK GÖNDERME" bölümünden itibaren işlenmesi gerekli.

Yani, zaten Parasal değer olarak tahmin ettiğim tüm rakamlar, dediğiniz bölümden itibaren işlenmiyor mu? "Rakamsal değer" derken neyi kastediyorsunuz ? Bilmece gibisiniz valla ...

 

[ocamsul]

Yani, zaten Parasal değer olarak tahmin ettiğim tüm rakamlar, dediğiniz bölümden itibaren işlenmiyor mu? "Rakamsal değer" derken neyi kastediyorsunuz ? Bilmece gibisiniz valla ...

SN: Ferhat Pazarçevirdi; üsdadım, ekli resimde de görülebileceği üzre rakamsal değerler R sütunundan itibaren aktarılması gerekirken S sütunundan itibaren aktarılıyor. Birde dediğiniz gibi ben gizli sütunu tamamen unutmuşum ve bu bilmecenin cevabını bul bulabilirsen olmuş. Kusuruma bakmayın iyi çalışmalar üsdat.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz. Noktasına virgülüne dokunmadım. Sadece, kodları kopyaladım ... Ama, en son mesajınızda belirttiğiniz hata (kayma) ile karşılaşmadım

 

[ocamsul]

SN: Ferhat Pazarçevirdi; üstad, mevzu tamamdır. Ben ilgili sayfalarda S sütununu sildiğim için kayma oluyormuş. Emeğin ve sabrın için teşekkür ederim.