Çözüldü Kapalı olan Excel çalışma sayfalarını listboxda görmek

[Hunkar50]

Öncelikle Tekrar MRB. ark.lar

Eklediğim çlışma şablonunda ilk kapalı sayfaları, Açık olan excel sayfasında Ana_sayfa ( userform) da listbox1 de isimlerini Görmek ve tıkladıgım cari isminin cari islemini Listbox2 de görebilmek mümkün oldugunu

excelcan Hocam bildirdi. benimde ilk adımda yapmak istediğim bu.. Yardımlarınızı bekliyorum inş.

CüMleten kolay gelsin ve teşekkürler.​

​

 

[excelcan]

Sayın Hunkar50 kişileri etiketlemeden sorunuzu sormanız
daha iyi. Aşağıdaki kodları bir modüle yapıştırın.
Mümkün olduğunca modüllerle çalışın. Butonlarda da
modül kombinasyonları yaparsınız. Sonra Ana_Sayfa Userformunuzun
initialize olayına Call dosya_listele yazın. Formu çalıştırın.
Dosya listesi listbox1 de. Burada dikkat etmeniz gereken husus şu :
Ben HUNKAR50 diye bir klasör oluşturdum ve sizin zipli dosyalarınızı
oraya çıkardım. Kodlardaki adres şu :
Set Klasor = dos.getfolder("C:\Users\User\Downloads\HUNKAR50\CARİLER")
Bu adres sizin çalışmanızda haliyle değişecek. Adresi doğru yazarsanız
sıkıntı çıkmaz. Kendi çalışmanızda değiştirmeniz gereken yer de şu :
C:\Users\User\Downloads\HUNKAR50\CARİLER
Bunun yerine dosyanızdaki CARİLER klasörünün adresini yazmalısınız.
ListBox2 yi görebilseydim onun kodlarını da yazabilirdim belki.
Ama formda listbox2 yi bulamadım. Listbox6 yerine yanlışlıkla ListBox2
yazmış olabilir misiniz ?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Merhaba.
Doğru anladıysam gifteki gibi yaptım.
Kapalı excel adı vs..Tr karakter olunca hata veriyordu denemek için mesela ş yerine s yaptım.
istediğiniz böyle ise halledilebilinir.Textboxlara devam edebilirsiniz geri kalanını açıklama mevcut alttaki kodda.
Ayrıca Listboxun genişliklerini ve görünmesini istemediğiz sütunun genişliğini sıfır yapın.




HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hunkar50]

Sayın Hunkar50 kişileri etiketlemeden sorunuzu sormanız
daha iyi. Aşağıdaki kodları bir modüle yapıştırın.
Mümkün olduğunca modüllerle çalışın. Butonlarda da
modül kombinasyonları yaparsınız. Sonra Ana_Sayfa Userformunuzun
initialize olayına Call dosya_listele yazın. Formu çalıştırın.
Dosya listesi listbox1 de. Burada dikkat etmeniz gereken husus şu :
Ben HUNKAR50 diye bir klasör oluşturdum ve sizin zipli dosyalarınızı
oraya çıkardım. Kodlardaki adres şu :
Set Klasor = dos.getfolder("C:\Users\User\Downloads\HUNKAR50\CARİLER")
Bu adres sizin çalışmanızda haliyle değişecek. Adresi doğru yazarsanız
sıkıntı çıkmaz. Kendi çalışmanızda değiştirmeniz gereken yer de şu :
C:\Users\User\Downloads\HUNKAR50\CARİLER
Bunun yerine dosyanızdaki CARİLER klasörünün adresini yazmalısınız.
ListBox2 yi görebilseydim onun kodlarını da yazabilirdim belki.
Ama formda listbox2 yi bulamadım. Listbox6 yerine yanlışlıkla ListBox2
yazmış olabilir misiniz ?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Sayın Hunkar50 kişileri etiketlemeden sorunuzu sormanız
daha iyi. Aşağıdaki kodları bir modüle yapıştırın.
Mümkün olduğunca modüllerle çalışın. Butonlarda da
modül kombinasyonları yaparsınız. Sonra Ana_Sayfa Userformunuzun
initialize olayına Call dosya_listele yazın. Formu çalıştırın.
Dosya listesi listbox1 de. Burada dikkat etmeniz gereken husus şu :
Ben HUNKAR50 diye bir klasör oluşturdum ve sizin zipli dosyalarınızı
oraya çıkardım. Kodlardaki adres şu :
Set Klasor = dos.getfolder("C:\Users\User\Downloads\HUNKAR50\CARİLER")
Bu adres sizin çalışmanızda haliyle değişecek. Adresi doğru yazarsanız
sıkıntı çıkmaz. Kendi çalışmanızda değiştirmeniz gereken yer de şu :
C:\Users\User\Downloads\HUNKAR50\CARİLER
Bunun yerine dosyanızdaki CARİLER klasörünün adresini yazmalısınız.
ListBox2 yi görebilseydim onun kodlarını da yazabilirdim belki.
Ama formda listbox2 yi bulamadım. Listbox6 yerine yanlışlıkla ListBox2
yazmış olabilir misiniz ?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Öncelikle Etiketlediğim için kusura bakmayın Hocam, Emeginize saglık

Sizin Sıralama Listeniz Ama Refaz Hocamızın mantıgı ile çalışan liste güzel olacak, yani listbox1_click Tıkladığım zaman yandaki bina bilgieri Textboxlarına yansıması ( alta buton ile oradan da bilgileri Güncelleme yapma mantıgına gidiyorum.
Dediğiniz gibi Listbox2 yi Yanlış Yazmışım Listbox6 Ya secilen sayfadaki verilet başlık alyına dizili gelmesi ve Listbox6 dan sectiğim veriyi Listbox6 üzerinde bulunan textboxlara yazmasını ve değişiklik yapabilmeyi umut ediyorum.

Elinize Emeğinize saglık.

 

[Hunkar50]

Merhaba.
Doğru anladıysam gifteki gibi yaptım.
Kapalı excel adı vs..Tr karakter olunca hata veriyordu denemek için mesela ş yerine s yaptım.
istediğiniz böyle ise halledilebilinir.Textboxlara devam edebilirsiniz geri kalanını açıklama mevcut alttaki kodda.
Ayrıca Listboxun genişliklerini ve görünmesini istemediğiz sütunun genişliğini sıfır yapın.


Ekli dosyayı görüntüle 6375

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam elinize saglık. İstediğime yakın olmuş tek fazlalık Listbox1deki Dosya yolu çıkmaması sadece dosya adleri görünmesi daha guzel olacak. tabi üstteki Texbox dan da içerisinde geçen harfe göre arama yapabilme mantıgı güzel olur...

Emekleriniz için Çok Teşekkür ederim. Zaten excelcan hocama da yapmak istediğim kriterlerden ufak bir kesit belirttim ..

( Yapmak istediğim ama yapamadıgım )

 

[Hunkar50]

biraz düzenledim..

Sizlerin yaptıgı cevaplara ve çalışmalara bakıyorum ve emin olun hayran kalıyorum..

Gördüğüm kadarıyla bu excel vba düşüncelerimin üzerinde bir program !! sizde

 

[Refaz]

Listbox1deki Dosya yolu çıkmaması sadece dosya adleri görünmesi daha guzel olacak. tabi üstteki Texbox dan da içerisinde geçen harfe göre arama yapabilme mantıgı güzel olur

Rica ederiz abey.
Acele ile birşeyler yaptım gif ekledim.
Textbox1 arama ekledim.
Ayrıca Listbox1 özelliklerden sütun genişliğini sıfır(0) yapın hangisi görükmeyecekse.
Birde Listbox2 içinde aynı mantıkla Listbox2 ye veri alınabilinir Listbox1e tıklayınca.Application.ExecuteExcel4Macro bu uygulanır ondada.
Dosyayı deneyin doğru ise akşam Listbox2 içinde ayarlarım.
Birde koda hata yakalama kodları eklemedim hata verebilir belki.

 

[Refaz]

Dediğiniz gibi Listbox2 yi Yanlış Yazmışım Listbox6 Ya secilen sayfadaki verilet başlık alyına dizili gelmesi ve Listbox6 dan sectiğim veriyi Listbox6 üzerinde bulunan textboxlara yazmasını ve değişiklik yapabilmeyi umut ediyorum.

Listbox6 da başlık çıksın istiyorsanız bir adet syfa ekleyin.Oraya başlıkları ekleyin.O sayfadan veri çekilir.
Extra sayfa eklemezseniz bu durumda Listbox6 nın üstüne Labeller eklenmeli başlık içn tabii başlık çoksa sığmayabilir.Birde yaklaşık kaç kapalı excel olacak belki hız için kod değiştirilir.

 

[Hunkar50]

Listbox6 da başlık çıksın istiyorsanız bir adet syfa ekleyin.Oraya başlıkları ekleyin.O sayfadan veri çekilir.
Extra sayfa eklemezseniz bu durumda Listbox6 nın üstüne Labeller eklenmeli başlık içn tabii başlık çoksa sığmayabilir.Birde yaklaşık kaç kapalı excel olacak belki hız için kod değiştirilir.

Hocam çok teşekkür ederim. istediğim gibi olmuş..
Listbox6 verileri kapalı olan (mesela ; Müşteri1 ) sayfasından alacak, listbox6 nın üzerinde bulunan kutucuklar ise ; Listbox6 den tıkladıgım veri için yapıldı... Listbox6 dan tıkladıgım veriyi hemen üzerindeki Textboxlara yansıması ve oradan değiştir butonu ile kapalı olan sayfadaki veriyi güncelleme yapabilmem gerekiyor..

Ayrıca Ana çalışma kitabında Extra diye bir sayfa var Listbox1 den tıkladıgımda verilerin orayada aktarılıp( yazdır butonu ile ) yazdır dediğimde extra sayfasındaki aktarılmış veriyi direk yazcıya göndermesi daha iyi olur gibi geliyor .

Ortalama kapalı olan kitap sayısı 300 civarında olacak Hocam..

Affınıza sıgınarak ; Şahsım adına Program yapımı, çalışma mantıgı ve program oluşturmadaki hayal gücüm anladıgım kadarıyla biraz az
o yüzden uzun yolları yardım edebilmeniz amaçlı talep etmem mümkün olabilir bu gibi durumlarda bilginiz tercihimdir..


Ayrıca Bu ana_sayfa formunda Combobox oluşturamıyorum Belirsiz ad uyarısı veriyor .. anlayamadım
isterseniz bu konuyu noktalayıp program devamı için yeni başlık açabilirim. ?

Teşekkür ederim.

 

[Refaz]

Hocam çok teşekkür ederim. istediğim gibi olmuş..
Listbox6 verileri kapalı olan (mesela ; Müşteri1 ) sayfasından alacak, listbox6 nın üzerinde bulunan kutucuklar ise ; Listbox6 den tıkladıgım veri için yapıldı... Listbox6 dan tıkladıgım veriyi hemen üzerindeki Textboxlara yansıması ve oradan değiştir butonu ile kapalı olan sayfadaki veriyi güncelleme yapabilmem gerekiyor..

Ayrıca Ana çalışma kitabında Extra diye bir sayfa var Listbox1 den tıkladıgımda verilerin orayada aktarılıp( yazdır butonu ile ) yazdır dediğimde extra sayfasındaki aktarılmış veriyi direk yazcıya göndermesi daha iyi olur gibi geliyor .

Ortalama kapalı olan kitap sayısı 300 civarında olacak Hocam..

Affınıza sıgınarak ; Şahsım adına Program yapımı, çalışma mantıgı ve program oluşturmadaki hayal gücüm anladıgım kadarıyla biraz az
o yüzden uzun yolları yardım edebilmeniz amaçlı talep etmem mümkün olabilir bu gibi durumlarda bilginiz tercihimdir..


Ayrıca Bu ana_sayfa formunda Combobox oluşturamıyorum Belirsiz ad uyarısı veriyor .. anlayamadım
isterseniz bu konuyu noktalayıp program devamı için yeni başlık açabilirim. ?

Teşekkür ederim.

Rica ederim abey,bugün listbox6 olayını halledip ekleyeyim.

 

[Refaz]

Listbox6 ya veri getirmeyi yaptım textboxları iptal ettim.
Extra sayfasına başlıkları eklerseniz oraya ekletmeyi ve ordan veri çekmeyi yapabiliriz Listbox6 için vs...
Onlar için yeni konu açarsanız daha iyi olur.

Kolay gelsin.

 

[Hunkar50]

Listbox6 ya veri getirmeyi yaptım textboxları iptal ettim.
Extra sayfasına başlıkları eklerseniz oraya ekletmeyi ve ordan veri çekmeyi yapabiliriz Listbox6 için vs...
Onlar için yeni konu açarsanız daha iyi olur.

Kolay gelsin.

Hocam kusura bakmayın sanırım kendimi yanlış ifade ettim ..

Gerekli açıklamaları İndireceğiniz dosyaya belirttim.. Tekrar kusura bakmayın sizi boşa ugraştırmış oldum.

Müşteri1 Sayfasını açarsanız gerekli açıklamalar orada mevcut.

Teşekkürler Hayırlı Akşamlar

 

[Refaz]

Estağfirullah abey.
Yarın akşama bir bakayım dosyaya.

 

[Refaz]

Merhaba.Zaman bulmuşken dosyayı bitirdim.

Sadece Listbox6 ya veri getirmeyi yaptım.
Extra sayfasına verileri çektirdim ve ordan başlıklarla birlikte veri çektirdim.
Anasayfa kapanınca Extra syfası B17:I son satır temizlenir.

.Range("C4").Value = Application.ExecuteExcel4Macro(yol1 & 4 & "C" & 3)
Yukardaki gibi devam edin alttaki koda textboxlara veri alma kodlarını silip onları pasif yaptım.
Mesela TextBox9 yerine .Range("C5") yazın.

Ado ile veri çekildiği için veritabanına uygun olası gerek dosyanın denemelerimde eksik yada yanlış veri gelmedi.
Eğer hatalı olursa dosya aç kapat mantığını uygulayabiliriz.
Diğer sorularınız için yeni konu açın abey.



HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Birde kapalı dosyadaki veri 65536dan fazla olursa hepsi gelmez bunun için bildiğim Başlık 1.satırda olacak.
Ayrıca With syfExtra bunun alına .Range("C4").Value =Empty gibi eklerseniz dah iyide olabilir kısaca Extra syfasına B14:K14 aralığına hangi veriler eklenecekse o satırları temizletin.Hücre birleştirmeden dolayı Empty hata verirse ekleyin ""(iki adet çift tırnak) empty yi silip.

 

[Hunkar50]

Hocam teşekkür ederim..

Şu an ki sizden gelenleri tasarladığım şekilde kalması kalması tercihim.

Mevcut dosyamız ( ekleyeceğim ) üzerinde ilerlemek daha güzel olacak sanırım..

resimde işaretlediğim ;
1(NOLU )- Kapalı sayfadaki veriler yansıyacak ve orada bulunan textboxlardan birini değiştirdikten sonra 2 numarası ile işaretlediğim ( Bilgileri Güncelle ) butonunu tıkladığımda, kapalı sayfadaki verileri mevcut verileri güncellemesi gerekiyor..
3-(Nolu ) belirttiğim yer ise carilerden secilen müşterinin sayfasından ( kapalı sayfadan ) veriler gelmesi, Listbox6 dan veriyi tıkladığımda 4 numarası ile belirttiğim yere yansıması, yine 4 no ile belirttiğim yerden veri değişip 5 ile belirttiğim ( Kaydı Güncelle ) dediğimde kapalı sayfadaki mevcut veriyi değiştirmesi ( güncellemesi ) daha guzel olacaktır.


Yani Kapalı sayfayı açmadan verileri görebilme verilerde oynama yapabilme ve extra sayfası ile cari döküm alabilme işlemleri işlerimizi kolaylaştıracak gibi geliyor...


Elleriniz dert görmesin.. Teşekkür ederim şimdiden ..

 

[Hunkar50]

Bu arada hocam 5 nolu yerdeki k.d.v silinecek

 

[Hunkar50]

Bu arada hocam 5 nolu yerdeki k.d.v silinecek

Hocam Şu an Bazı düzenlemeler yapıyorum Lütfen İşlem Yapmayın yeni dosya atacagım ..

 

[Refaz]

Yeni konu açın abey.....