Listelemek

[mustafakoker]

Merhaba arkadaşlar örnek liste ismi altında bir dosya gönderiyorum
bu dosyada bır form oluşturdum amacım excel sayfamdaki bilgileri bu formda
başlıklar altında listelemek bu konu hakkında yardımcı olurmusunuz?

bir sürü örnklere baktım ama kodları yazamadım kusura bakmayın yenı konu açtım

 

[mustafakoker]

Merhaba arkadaşlar yardımcı olabilirmisiniz acaba

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
Dim sat, s As Integer
ListBox1.Clear
ListBox1.ColumnCount = 7
For sat = 2 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") Like ComboBox1 Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
ListBox1.List(s, 1) = Cells(sat, "b")
ListBox1.List(s, 2) = Cells(sat, "c")
ListBox1.List(s, 3) = Cells(sat, "d")
ListBox1.List(s, 4) = Cells(sat, "e")
ListBox1.List(s, 5) = Cells(sat, "f")
ListBox1.List(s, 6) = Cells(sat, "g")
s = s + 1
End If: Next
End Sub
Private Sub CommandButton1_Click()
Dim sat, s As Integer
ListBox1.Clear
ListBox1.ColumnCount = 7
For sat = 2 To Cells(65536, "a").End(xlUp).Row
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
ListBox1.List(s, 1) = Cells(sat, "b")
ListBox1.List(s, 2) = Cells(sat, "c")
ListBox1.List(s, 3) = Cells(sat, "d")
ListBox1.List(s, 4) = Cells(sat, "e")
ListBox1.List(s, 5) = Cells(sat, "f")
ListBox1.List(s, 6) = Cells(sat, "g")
s = s + 1
Next
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a2:a" & Cells(65536, "a").End(xlUp).Row
End Sub

 

[mustafakoker]

Sub UserForm_Initialize()
With ListView1
    .View = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayı lvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
     .ColumnHeaders.Add , , "Firma ", 125 ' Burda ListView nesnemize Sıra No adında bir kolon ekliyoruz ve  100 sütun genişliğini belirtiyor.
     .ColumnHeaders.Add , , "Adı Soyadı  ", 150 'İkinci kolonumuzu ekledik.
     .ColumnHeaders.Add , , "Telefon ", 100 ' Üçüncü kolunda burdan ekledik..
     .ColumnHeaders.Add , , "Fax No ", 100 ' 4. sütun ekleniyor
     .ColumnHeaders.Add , , "Satır No ", 43 ' Son sutunumuzda eklendi ...
   .FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
   .Gridlines = True 'Listeyi çizgili yapar.
End With
ComboyaVeriler
End Sub

Sayın Ziya Hocam yardımlarınız için teşekkurler vermiş olduğunuz koda yukardaki örnek gibi son sütüna satır no nasıl eklerim veya veya verdiğiniz kodun neresine yazmalıyım

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanıza ekledim

 

[mustafakoker]

Sayın Ziya Hocam Elleriniz dert görmesin Çok Teşekkür ederim Tam İstediğim gibi olmuş sağolun

 

[N.Ziya Hiçdurmaz]

Birşey değil.Sayın mustafakoker

 

[mustafakoker]

Teşekkürler

Birşey değil.Sayın mustafakoker

Teşekkür ederim ziya bey yıllar önce
Formda sorduğum sorulara bakıyorum da genelde su anki bu forumdan öğrendiklerime göre çok basit veya gereksiz sorularima hep yardımcı olmuşsunuz
Tekrar tekrar teşekkür ederim saygılar