• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listelemek

Katılım
20 Haziran 2008
Mesajlar
697
Excel Vers. ve Dili
Microsoft Office ev ve iş 2019
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
 

Ekli dosyalar

Merhaba arkadaşlar yardımcı olabilirmisiniz acaba
 
yanıt

Kod:
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
 

Ekli dosyalar

Kod:
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
 
Sayın Ziya Hocam Elleriniz dert görmesin Çok Teşekkür ederim Tam İstediğim gibi olmuş sağolun
 
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
 
Geri
Üst