listview ile yapılan dosyaya yardım rica.

[yesilcan]

Saygı değer hocalarım,değerli arkadaşlarım ;
başım gene dertde yardımlarınızı esirgemeyeceğini düşünüyorum.
dilimin döndüğünce anlatmaya çalışıyım
Amacım ;
Hazırladığım dosyada illere yapılan ürün adetleri ve fiyatlarının listesini çıkardım.
bu dosyada listview uygulamasının daha iyi olacağını düşündüm(alternatiflere açığım)yaptım.anasayfa üzerindeki iller listview ekranında görünsün(Adet ve tutarlarıda) üzerine 1 kere tıkladığımda userformun sağ tarafda bulunan ilçe texboxlara otomatik olarak adetleri ve tutarları getirsin .tabiki en aşağıdaki genel toplamıda ..,
Eğer o ilin ilçelerinde herhangi bir veri yoksa bu ile sevkiyat yapılmamıştır ibaresi gelebilir


bu mümkünmü ?
yardımlarınız ve göstereceğiz ilgi alaka için şimdiden çok teşekkür ederim.
En derin saygılarımla.
Serdar.

 

[Ferhat Pazarçevirdi]

Kullanılan kodlar aşağıda verildiği gibidir. (Userform kod modülüne)

NOT : Kodlamanın daha kolay yapılabilmesi için, TextBox yerleşiminde revizyon yapıldı. Bu nedenle, örnek dosyadaki UF tasarımını kullanınız. Tasarımınızda görsel olarak bir değişiklik yapılmadı.

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Dim wks As Worksheet
    Dim iSonStr As Integer
    Dim oCtrl As Control
    
    Set wks = Sheets(Item.Text)
    
    For Each oCtrl In UserForm1.Controls
        If TypeOf oCtrl Is MSForms.TextBox Then
            oCtrl.Text = Empty
        End If
    Next
    
    iSonStr = wks.Cells(65536, 1).End(xlUp).Row
    
    
    If iSonStr > 1 Then
        
        For i = 2 To iSonStr
            Controls("TextBox" & i - 1) = wks.Cells(i, "A")
            Controls("TextBox" & i + 20 - 1) = wks.Cells(i, "C")
            If i > 21 Then Exit For
        Next i
    
    End If
    
    TextBox41 = Item.ListSubItems(2)
    
    ListView1.DropHighlight = Item
    
    Set wks = Nothing
End Sub
'--------------------------------------
 
Private Sub UserForm_Initialize()
    Dim wks As Worksheet
    Dim iSonStr As Integer
    
    With ListView1
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        With .ColumnHeaders
            .Add , , "İl"
            .Add , , "Adet", , 1
            .Add , , "Tutar", , 1
        End With
    
        On Error Resume Next
        
        For Each wks In ThisWorkbook.Worksheets
            
            If wks.Name <> "ANASAYFA" Then
                .ListItems.Add , , wks.Name
                
                iSonStr = wks.Cells(65536, 1).End(xlUp).Row
                
                With .ListItems(.ListItems.Count).ListSubItems
                    If iSonStr > 1 Then
                        .Add , , Application.WorksheetFunction.Sum(wks.Range("B2:B" & iSonStr))
                        .Add , , Application.WorksheetFunction.Sum(wks.Range("C2:C" & iSonStr))
                    Else
                        .Add , , 0
                        .Add , , 0
                    End If
    
                End With
            End If
            
        Next
        
        With ListView1
            If .ListItems.Count > 0 Then
                .ListItems(1).Selected = True
                .DropHighlight = .SelectedItem
                Call ListView1_ItemClick(.SelectedItem)
            End If
        End With
                    
        On Error GoTo 0
        
    End With
    
End Sub

 

[yesilcan]

Değerli hocam ilgin için çok teşekkür ederim fakat anlamadım

 

[yesilcan]

listview çalışması

hocam birde userformda ilçeler olan bölüme adet texboxu koymayı unumuşum.
ilave edep tekrar gönderiyorum
saygılarımla

 

[yesilcan]

Arkadaşlar ferhat hocamın hazırladığı dosyada aşağıdaki kodda hata veriyor ne yapmam lazım?

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

 

[hamitcan]

"Missing" ile başlayan referansları kaldırın. Zannedersem hata bundan kaynaklanıyor.

 

[yesilcan]

Hamitcan hocam dosyadaki hata veren yeri düzeltip gönderebilirmisiniz ?
çok rica edicem

 

[hamitcan]

Bunu sizin yapmanız gerekiyor. Çok kolay. Vba içinde Tools > References içinden kaldırın.

 

[yesilcan]

çok çok teşekkür ederim ..
sağolun.
ferhat hocam ve hamitcan hocam sonsuz teşekkürler
süper oldu

 

[yesilcan]

değerli hocalarım bir eksik tespit ettim.
bu ilçe bölümünde adet yazmayı unutmuşum sonraki eklediğim dosyada var.
bunu nasıl yapacağım ?
kodlarda hangi düzenlemeyi yapmam gerekiyor.
yardımlarınız rica ediyorum

saygılarımla
serdar.

 

[yesilcan]

listview

Değerli hocalarım ve arkadaşlar daha önceki soruma cevap vermiş sağolsun.
fakat ben dosyayı gönderirken adet kısmını unutmuşum
şimdi adet kısmını nasıl çıkartacağımı bilmiyorum.
yardımlarınıza ihtiyacım var.lütfen

 

[Ferhat Pazarçevirdi]

Lvw'ye tıkladığınızda, ilgili şehre ait detayların; illa TextBox'larda mı görünmesi gerekiyor ?

Eğer bu gerekli değilse, tüm TextBoxlar silinip sadece iki adet Listview veya ListBox nesnesi ile bu kolayca halledilebilir.

Ama TextBox'lar vasıtasıyla ben verileri editlemem gerekiyor diyorsanız, isteğiniz üzere "adet" ler için de; başka TextBoxlar ilave edilebilir ve bunlar kodlanabilir.

Karar sizin ...

 

[yesilcan]

Lvw'ye tıkladığınızda, ilgili şehre ait detayların; illa TextBox'larda mı görünmesi gerekiyor ?

Eğer bu gerekli değilse, tüm TextBoxlar silinip sadece iki adet Listview veya ListBox nesnesi ile bu kolayca halledilebilir.

Ama TextBox'lar vasıtasıyla ben verileri editlemem gerekiyor diyorsanız, isteğiniz üzere "adet" ler için de; başka TextBoxlar ilave edilebilir ve bunlar kodlanabilir.

Karar sizin ...

Değerli ferhat hocam,öncelikle ilginiz için çok teşekkür ederim.
ilgili şehre ait detayların illa ki texbotlarda görmek önemli değil.önemli olan sadece il'e tıkladığımda ilçe detaylarını görebileceğim bir oluşumun olması.bu en kolay nasıl yapılırsa öğle yapılabilir.örnek bir dosya hazırlarsanız çok minnettar olurum.
Saygılarımla.

 

[meslan]

Sn. yesilcan ekteki dosyayı inceleyiniz. Sınırsız sayıda ilçeleri görüntüler.
Kolay gelsin.

 

[yesilcan]

melan hocam süper olmuş
çok teşekkür ederim.
elinize sağlık.