Kapalı dosyadan istenilen veriyi çekme ve listeleme

[uyrdkl]

Ekteki dosyada sorunumu anlatmaya çalıştım. Yardım edebilirseniz sevinirim. Şimdiden çok teşekkür ederim

 

[Orion1]

Dosyanız ektedir.
O metin kutuları ile seçenek düğmeleri yapamazsınız.
Forumlardan option önce grup kutusunu seçin bir grup yapın ve onların üzerine seçenek butonlarını koyup denetim biçimlendirmesi ile J sütunu ile ilişkilendirin ve k sütunununada benim yazdığım formülleri girin.
Ben listelenen ilk dosya için bu işlemleri yaptım.
Diğerlerini siz yapın.
Aslında bunlarala bizim uğraşmamız lazım.Bunları sizin yapıp hazır durumda dosayayı eklemniz lazım.
Sadece çözeceğimiz soru ile uğraşmamız lazım ama böyle durumlarda çıkıyor karşımıza.

Sub Deneme_59()
Dim Dosya As String, yol As String, sprt As String
Dim i As Long, veri As String, otomatik As Byte
Range("a2:A65536").ClearContents
sprt = Application.PathSeparator
yol = ThisWorkbook.Path & sprt & "SIPARIS" & sprt
Dosya = Dir(yol & "*.xls", vbDirectory)
Do While Dosya <> ""
Cells(i + 2, 1) = Dosya
veri = "'" & ThisWorkbook.Path & "\SIPARIS\[" & Dosya & "]" & "Sayfa1'!R"
Cells(i + 2, 2).Value = Application.ExecuteExcel4Macro(veri & 5 & "C2")
Cells(i + 2, 3).Value = Application.ExecuteExcel4Macro(veri & 6 & "C2")
Cells(i + 2, 8).Value = Application.ExecuteExcel4Macro(veri & 12 & "C11")
Cells(i + 2, 9).Value = Application.ExecuteExcel4Macro(veri & 14 & "C11")
Cells(i + 2, 10).Value = Application.ExecuteExcel4Macro(veri & 15 & "C11")
i = i + 1
Dosya = Dir
Loop
End Sub

 

[uyrdkl]

Sayın evren
Çok teşekkür ediyorum. İnşallah diğer sutunlarıda ben yapmayı başarırım. Başaramazsam tekrar yardımınızı rica edecegim. Tekrar teşekkürler

 

[Orion1]

Sayın evren
Çok teşekkür ediyorum. İnşallah diğer sutunlarıda ben yapmayı başarırım. Başaramazsam tekrar yardımınızı rica edecegim. Tekrar teşekkürler

Rica ederim.
İyi çalışmalar.

 

[uyrdkl]

teşekkürler

Teşekkürler

 

[uyrdkl]

Sayın Evren
Yardımlarınız için tekrar teşekkür ediyorum ve bir yardımınızı daha bekliyorum. dosya ektedir. Teşekkür ederim

 

[Orion1]

Sayın Evren
Yardımlarınız için tekrar teşekkür ediyorum ve bir yardımınızı daha bekliyorum. dosya ektedir. Teşekkür ederim

Dosyanız ektedir.
Bir tane master klasörü yaptım.
Master dosyası orada olamalı
onda copy save yapıyoruz kodlarala.İçinede x koyduğunuz satırdaki verileri atıyoruz.

 

[uyrdkl]

Sayın Evren
Yardımınız için teşekkür ediyorum.Bir sorun var " x " işareti koydugumu kopyalıyor ama sıparıs klasöründen komple silmem lazımki tekrar aktar dediğimde listede çıkmasın . Onu nasıl yapabilirim

 

[Orion1]

Sayın Evren
Yardımınız için teşekkür ediyorum.Bir sorun var " x " işareti koydugumu kopyalıyor ama sıparıs klasöründen komple silmem lazımki tekrar aktar dediğimde listede çıkmasın . Onu nasıl yapabilirim

İstediğiniz düzenlemeyi yaptım.
7 numaralı mesajdan dosyayı indirebilirisniz.

 

[uyrdkl]

Sayın Evren teşekkür ediyorum yardımlarınız için ama listelerken 7 -8 sayfayı listeliyor birde a sutununa güçleri listeleyemedim. Tekrar yardımcı olabilirseniz. Teşekkür ederim

 

[Orion1]

Sayın Evren teşekkür ediyorum yardımlarınız için ama listelerken 7 -8 sayfayı listeliyor birde a sutununa güçleri listeleyemedim. Tekrar yardımcı olabilirseniz. Teşekkür ederim

Nasıl 7-8 sayfayı listeliyor.
A sütununda klasörün içindeki dosya adları listeleniyor.
Daha önce listeleniyordu.Bende denedim listeleniyor.
Benim yolladığım dosyalar üzerinden gidelim.Neler olmuyor.Onlarda detaylı açıklarsanız deneyeyim.Bende problerm yoktu.
Evet şimdi yine dedenedim.Sorun gözükmüyor.

 

[uyrdkl]

Evren bey
siz a sutununa yazdığım güçleri altta listelemişsiniz.Ben altta güç yazan yerdeki yazan güçleri yukarda listeleyip yanına kaç adet olduğunu listelemek istemiştim. sizen yukarıya (a sutunu üstüne)güç yazan sütündakileri filtrelemenizi istemiştim ama galiba anlatamadım.aşagıdaki güçleri a sutununa filtreleyip listeleyi yanınada formülle kaç adet olduklarını yazacağım. sanırım anlatabilmisimdir.

 

[Orion1]

Evren bey
siz a sutununa yazdığım güçleri altta listelemişsiniz.Ben altta güç yazan yerdeki yazan güçleri yukarda listeleyip yanına kaç adet olduğunu listelemek istemiştim. sizen yukarıya (a sutunu üstüne)güç yazan sütündakileri filtrelemenizi istemiştim ama galiba anlatamadım.aşagıdaki güçleri a sutununa filtreleyip listeleyi yanınada formülle kaç adet olduklarını yazacağım. sanırım anlatabilmisimdir.

Ben yaptıktan sonra nasıl bir durum oluşacak koyu mavi ile hücrelere manuel olarak verileri giriniz.Bende ondan kendime bir önerme yapayım.Yine konuyu tam anlamdım.
Baştan tam istediğim gibi oldu demiştiniz.
Şimdi ise böyle değil diyorsunuz.Bir şey anlamadım.

 

[uyrdkl]

Ekte dosyada örnekleme yaptım bir bakabilirseniz. Teşekkürler

 

[Orion1]

Ekte dosyada örnekleme yaptım bir bakabilirseniz. Teşekkürler

Dosyayı istediğiniz gibi güncelledim.
Dosya 7 numaralı mesajdadır.

 

[uyrdkl]

Evren bey h sutunundaki güç bilgilerini a2 den itibaren filtreleyip listeleme nasıl yapabilirim

 

[Orion1]

Evren bey h sutunundaki güç bilgilerini a2 den itibaren filtreleyip listeleme nasıl yapabilirim

H sütunundaki bilgileri tekrasız olacak şekilde a2 den itibarenmi listelemek istiyorsunuz?

 

[uyrdkl]

Evet H sutunundaki Güç Bilgilerini Mükerrer kayıt olmaksızın A2 den itibaren listelemek istiyorum.
A2 ila A10 arsı açabilirim Yani A2 ila A20 olabilir.

 

[Orion1]

Evet H sutunundaki Güç Bilgilerini Mükerrer kayıt olmaksızın A2 den itibaren listelemek istiyorum.
A2 ila A10 arsı açabilirim Yani A2 ila A20 olabilir.

İşte orada sıkıntı var.
Biz kapalı dosyaları 10ncu satırdan sonra listeliyoruz.
Onların üzerine yazack a2.A20 olursa
sıpariş klasöründe 20 dosya olabilir.
Hadi diğer makroyu 20 ye ayarladık.
Bu sefer 21 dosya olursa siprişte yine sorun olacak.
O yüzden tasarlaken olyı 10 kere düşünüp yaparkende 1 kerde yapmak lazım.
VBA'da ve diğer Programlama dillerinde olay böyle çalışıyor.
Excel deki gibi düşünmemek lazım VBA'yı.
Excelde uydur kaydır bir şeyler hemen yapıyorsunuz.Ama iş vba ya dönünce böyle olmuyor.Sil baştan bütün kodları tekrar elden geçirmek lazım oluyor.Bence onları orada değilde başka bir sayfada yada yan tarftaki hücrelerde yapmak daha doğru olurdu.
Bu gün geç oldu.Artık yarın yaparım.

 

[uyrdkl]

Sayın Evren
Rahatsız ediyorum ama kusuruma bakmayın.Dosyaya bakabildinizmi?