12 Ayrı sayfadaki isimleri Listview'e almak

[M.ACAR]

12 Ayrı sayfa'da bulunan isimlerin listviev'e getirilmesini istiyorum,bu konuda yardımcı olursanız,sevinirim

 

[M.ACAR]

İyi geceler herkese;
Gidişatı hakkında biraz bilgi verseniz,çözmeye çalışırım,Yardım edermisiniz.

 

[Zeki Gürsoy]

Tüm sayfalarda personel isimleri aynı ve eşit satır sayısında görünüyor. Listeyi herhangi birinden alsanız probleminizi çözmez mi?

(Airfel' e selamlar... :hey

 

[Orion1]

Dosyanız ektedir.

Sub listele()
Dim lw As ListView, ay(), k As Range, adr As String, x As Long
Dim i As Byte, sat As Long, j As Byte
Set lw = ListView1
lw.ListItems.Clear
ay = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", _
"TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
For i = 1 To 12
    sat = Sheets(ay(i)).Cells(65536, "B").End(xlUp).Row
    Set k = Sheets(ay(i)).Range("B4:B" & sat).Find(TextBox2.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            x = x + 1
            lw.ListItems.Add , , k.Row
            lw.ListItems(x).SubItems(1) = ay(i)
            lw.ListItems(x).SubItems(2) = k.Value
            For j = 1 To 31
                lw.ListItems(x).SubItems(j + 2) = k.Offset(0, j).Value
            Next j
            Set k = Sheets(ay(i)).Range("B4:B" & sat).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
Next i

End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.ColumnHeaders.Add , , "ID", 0
ListView1.ColumnHeaders.Add , , "SAYFA"
ListView1.ColumnHeaders.Add , , "ADI"
For i = 1 To 31
    ListView1.ColumnHeaders.Add , , i & ".GÜN", 40
Next i
Call listele
End Sub

 

[M.ACAR]

Kodlar hata verdi

Sayın :Evren GİZLEN Ekli olan fotoğraftada görüldüğü gibi hata verdi butona bastığımda formu açamıyorum.

 

[M.ACAR]

Tüm sayfalarda personel isimleri aynı ve eşit satır sayısında görünüyor. Listeyi herhangi birinden alsanız probleminizi çözmez mi?

(Airfel' e selamlar... :hey

Sayın :Zeki GÜRSOY örnek olarak hazırladığım dosyada ay içindeki personel sayısı sabit olmuştur,fakat normal çalışmalarımızda personel sayısında eksiklik yada fazla olabiliyor; Selamınızı ileteceğim.

 

[Orion1]

Sayın :Evren GİZLEN Ekli olan fotoğraftada görüldüğü gibi hata verdi butona bastığımda formu açamıyorum.

VBE'de Tools==>Referance den missing yazan satırın tikini kaldırıp tekrar deneyin.

 

[Orion1]

VBE'de Tools==>Referance den missing yazan satırın tikini kaldırıp tekrar deneyin.

Yinede çalışmazsa aşağıdaki dosyayı kullanınız.

 

[Orion1]

Yinede çalışmazsa aşağıdaki dosyayı kullanınız.

Yinde çalışmazsa ne yapacağız.
Atalım gitsin dosyayı .

 

[Zeki Gürsoy]

Merhaba,

Evren Bey'in verdiği kodda:

Set lw = ListView1

kısmını aşağıdakilerden herhangi birisiyle değiştirin.

Set lw = CreateObject("MSComctlLib.ListViewCtrl.2")

Set lw = CreateObject("COMCTL.ListViewCtrl.1")

Eğer hata devam ederse bilgisyarınızda ilgili .ocx mevcut olmayabilir.

 

[M.ACAR]

Sayın :Evren GİZLEN yardımınız için çok teşekkür ederim,kodları çalıştıramadım,
Sayın :Zeki GÜRSOY verdiğiniz kod değişikliğini uyguladığım halde yinede çalışmadı, Evren hocanın söylediği gibi dosyayı atmam lazım diye düşünüyorum,

Bunu yapmamdaki amaç listviev'de kişileri ayırmak,sonra kişinin yıllık bordrosunu çıkartmaktı,ama olmayacak galiba çok teşekkürler

 

[M.ACAR]

Yinde çalışmazsa ne yapacağız.
Atalım gitsin dosyayı .

Sayın Evren GİZLEN dosya'yı atmayıp,Çorlu'ya geldiğim bir gün siz de müsait olduğunuzda bir baksanız sonra olmaz ise imha etmiş olsam;Şu an istanbul'da olduğum için olmuyor;Pazartesi Çorlu'dayım.

 

[Orion1]

Sayın Evren GİZLEN dosya'yı atmayıp,Çorlu'ya geldiğim bir gün siz de müsait olduğunuzda bir baksanız sonra olmaz ise imha etmiş olsam;Şu an istanbul'da olduğum için olmuyor;Pazartesi Çorlu'dayım.

8nci mesajdaki dosyayı indirip çalıştırın.Onun çalışması lazım.

 

[Orion1]

Sanırım forma koyduğunuz saatten dolayı veya Listviewden ocx dosyası yok sizde.
Referanslardan :
Microsoft Windows Common Controls 6.0(SP6) Yı seçin.Yoksa.
Mscomctl2.ocx dosyasını bulup windows/system32 klasörüne atın ve regstra edin

 

[M.ACAR]

Referanslardan :
Microsoft Windows Common Controls 6.0(SP6) Yı seçin.Yoksa.
Mscomctl2.ocx dosyasını bulup windows/system32 klasörüne atın ve regstra edin

Sayın:Evren GİZLEN söylediklerinizi uyguladım,şimdi form üzerindeki listview'e sayfadaki veriler geliyor,fakat Listview1'e Tarih'ten sonra AH-AL-AM-AN-AO-AP-AQ sütunlarının gelmesi gerekiyor,nasıl bir değişikl,ik yapmak lazım,Kolay gelsin.

 

[Orion1]

Sayın:Evren GİZLEN söylediklerinizi uyguladım,şimdi form üzerindeki listview'e sayfadaki veriler geliyor,fakat Listview1'e Tarih'ten sonra AH-AL-AM-AN-AO-AP-AQ sütunlarının gelmesi gerekiyor,nasıl bir değişikl,ik yapmak lazım,Kolay gelsin.

Hangi tarihten sonra?31nci günden sonramı?
Benim yazdığım kodlarda tarih listelenmiyor,Günler ve isimler listeleniyor.

 

[M.ACAR]

Sayın Evren bey İyi günler :
Listviev1'de ilk sütundaki ay isimlerinden sonra AH-AL-AM-AN-AO-AP-AQ sütunlarının gelmesi lazım

 

[Orion1]

Sayın Evren bey İyi günler :
Listviev1'de ilk sütundaki ay isimlerinden sonra AH-AL-AM-AN-AO-AP-AQ sütunlarının gelmesi lazım

Dosyanız ektedir.

 

[M.ACAR]

Sayın:Evren Hocam verdiğiniz cevap ve yardımlarınız için çok teşekkürler.

 

[Orion1]

Sayın:Evren Hocam verdiğiniz cevap ve yardımlarınız için çok teşekkürler.

Rica ederim.
İyi çalışmalar.