Listview'da klasör içeriğini listelemek istiyorum.

[s.savas]

İyi geceler arkadaşlar.
Ekte sunduğum çalışmamda kitap2 de bulunan buton (CommandButton4) yardımı ile istenilen herhangi bir klasördeki excell belgelerini listview2 de listelemek istiyorum.
Halit beyin sitede örnek çalışmasını buldum, ancak Halit bey çalışmasında listbox kullanmış ve çalışması oldukçada karmaşık geldi benim için.

 

[Orion1]

rar dosyanızın içine bir kaç tanede verilerin alınacağı dosyalardan örnekler koysaydınız bari.

 

[s.savas]

Ekledim üstat.

 

[Orion1]

eklediğin dosyalarda excele dönmek için şifre istiyor.
Birde o dosyalarda bir sürü sayfa var hangi sayfa çekilecek.
Birde tüm dosyalarmı birdençekilecek yoksa bir tamnesinimi çekilecek listviewe.

 

[s.savas]

Üstat benim istediğim şu aşama için kitap2 deki listview2 ye klasörde bulunan diğer belgelerin isimlerini listelemek.
Excele dönmek için şifre:1234

A istasyonu
B istasyonu
C istasyonu
D istasyonu
...
gibi

 

[Orion1]

Üstat benim istediğim şu aşama için kitap2 deki listview2 ye klasörde bulunan diğer belgelerin isimlerini listelemek.
Excele dönmek için şifre:1234

A istasyonu
B istasyonu
C istasyonu
D istasyonu
...
gibi

Buyurun.
yarın görüşmek üzere ,iyi geceler.
Dosyalarınız ektedir.

 

[s.savas]

Buyurun.
yarın görüşmek üzere ,iyi geceler.
Dosyalarınız ektedir.

Evren hocam çok teşekkür ederim ilginize.

Kitap2 de checkbox'ların işaret durumuna göre;
1-) CheckBox1 ve CheckBox2 işaretli değilse
- ComboBox1 de gösterilen istasyona ait
- ComboBox3 de gösterilen sayfada bulunan ve
- ComboBox2 de gösterilen malzemeye ait D,E,AN ve AO sütunlarında bulunan bilgileri Sayfa1 deki aynı malzemeye ait (ComboBox2 de gösterilen) C,D,E ve F sütunlarına aktarılması gerekmektedir.
Örnek:
Kitap2 deki userformda
CheckBox1 ve CheckBox2 işaretli değildir.
ComboBox1 de A istasyonu seçilidir.
ComboBox3 de Ocak ayı seçilidir.
ComboBox2 de ise Aldolan Ampul isimli malzeme seçilidir.
Görüntüle (CommandButton2) tıklandığı zaman;
İstasyonlar isimli klasörde bulunan A İstasyonu isimli belgenin Ocak isimli sekmesindeki Aldolan Ampul isimli malzemeye ait D, E, AN ve AO sütunlarındaki verileri Kitap2 deki Sayfa1 isimli sayfada aynı malzemeye ait C,D,E ve F sütunlarına aktarılması.

 

[Orion1]

Dosyanız 6 numaralı mesajdadır.

 

[s.savas]

Dosyanız 6 numaralı mesajdadır.

Üstat çok teşekkür ederim.
Bir düzeltme rica edebilirmiyim.
Aktarma yapılırken Kitap2 de Sayfa1 deki A6:F65536 arası siliniyor. Sadece C6:F65536 arası silinsin ve B sütunundaki liste silinmesin. Alınan veriler malzemenin bulunduğu B sütunundaki karşılığına denk gelen hücrelere yazılsın.

 

[Orion1]

Üstat çok teşekkür ederim.
Bir düzeltme rica edebilirmiyim.
Aktarma yapılırken Kitap2 de Sayfa1 deki A6:F65536 arası siliniyor. Sadece C6:F65536 arası silinsin ve B sütunundaki liste silinmesin. Alınan veriler malzemenin bulunduğu B sütunundaki karşılığına denk gelen hücrelere yazılsın.

O şekilde olursa program çok yavaşlar.
Birde hepsi şeklinde çekboxları seçeresen belkide yarım saat bekleyebilirsin liste için.
Ama isterseniz onuda yaparım.Siz bilirsiniz.

 

[s.savas]

O şekilde olursa program çok yavaşlar.
Birde hepsi şeklinde çekboxları seçeresen belkide yarım saat bekleyebilirsin liste için.
Ama isterseniz onuda yaparım.Siz bilirsiniz.

Üstat öneriniz için teşekkür ederim.
Şu şekilde olursa daha stabil olur diye düşündüm.
Hiç bir checkbox koşulu olmadan seçilen istasyon, ay ve bütün malzemeler ve malzemelere ait D,E,AN ve AO sütunlarındaki veriler aktarılsa.

 

[Orion1]

Tekrarlanan kayıtlar ne olacak?üst üste toplanacakmı?
B sütunundan sonrası silinecek sanırım.

 

[s.savas]

Tekrarlanan kayıtlar ne olacak?üst üste toplanacakmı?
B sütunundan sonrası silinecek sanırım.

Daha önce düzenlediğiniz gibi Sayfa1 e veriler aktarılırken A6:F65536 arası silinebilir.

 

[Orion1]

istediğiniz şekilde yaptım.
Önce C:F aralığı siliniyor sonra:
mükerrer kayıtlar var ise üstüne toplayarak kaydediyor..

 

[s.savas]

istediğiniz şekilde yaptım.
Önce C:F aralığı siliniyor sonra:
mükerrer kayıtlar var ise üstüne toplayarak kaydediyor..

Üstadım çok teşekkür ederim. Harika oldu.

 

[s.savas]

Kitap2 Sayfa1 de A1 hücresine;
A istasyonu Ocak Ayı Stok Durumu şeklinde yazması için koda aşağıdaki satırı ekledim.

Private Sub CommandButton2_Click()
Dim x As Long
Application.ScreenUpdating = False
[COLOR="Red"]Range("a1").Value = ComboBox1.Value & " " & ComboBox3.Value & " Ayı Stok Durumu"[/COLOR]
Range("C6:F65536").ClearContents
Call listelw2(ComboBox1.Value)
Application.ScreenUpdating = True
End Sub

A istasyonu.xls Ocak Ayı Stok Durumu cümlesinden .xls kısmını çıkaramıyorım.

 

[Orion1]

Gerekli düzenlemeyi yaptım.
14 nolu mesajdan dosyayı indirebilirsiniz.

Kitap2 Sayfa1 de A1 hücresine;
A istasyonu Ocak Ayı Stok Durumu şeklinde yazması için koda aşağıdaki satırı ekledim.

Private Sub CommandButton2_Click()
Dim x As Long
Application.ScreenUpdating = False
[COLOR="Red"]Range("a1").Value = ComboBox1.Value & " " & ComboBox3.Value & " Ayı Stok Durumu"[/COLOR]
Range("C6:F65536").ClearContents
Call listelw2(ComboBox1.Value)
Application.ScreenUpdating = True
End Sub

A istasyonu.xls Ocak Ayı Stok Durumu cümlesinden .xls kısmını çıkaramıyorım.

 

[s.savas]

Çok teşekkür ederim Evren hocam.:hihoho:
Sağlıcakla kalın.

 

[s.savas]

istediğiniz şekilde yaptım.
Önce C:F aralığı siliniyor sonra:
mükerrer kayıtlar var ise üstüne toplayarak kaydediyor..

Üstat istasyonlardan ilgili ay'lara ait veriler alınırken AO sütunundan gelen veriler hatalı geliyor.
Rica etsem bir daha kontrol edermisiniz.

 

[s.savas]

Aşağıdaki kodda renklendirilen kısmı 4 yapınca sorun çözüldü.

If Not k Is Nothing Then
             If Not IsNull(rs(1)) Then k.Offset(0, 1).Value = CDate(rs(1))
             If Not IsNull(rs(2)) Then k.Offset(0, 2).Value = CDbl(k.Offset(0, 2).Value) + CDbl(rs(2))
             If Not IsNull(rs(3)) Then k.Offset(0, 3).Value = CDbl(k.Offset(0, 3).Value) + CDbl(rs(3))
             If Not IsNull(rs(4)) Then k.Offset(0, 4).Value = CDbl(k.Offset(0, [COLOR="Red"]2[/COLOR]).Value) + CDbl(rs(4))
         End If