Çözüldü Listbox verilerinin Sayfadan çekilmesi ve Buton ile kapalı sayfaya kaydı

[Hunkar50]

1 aşama : Hocalarım , AnaSayfa ( userform ) da Bakım Sekmesindeki Listbox5 e (tarih seçildikten senra ) sadece B.Bakım Sayfasındaki müşterilerin çıkması 1 aşama

2 aşama : Listbox5 den seçilen müşterilere de Listbox170 + Combobox6 Seçilip Commandbuton 17 ile Kapalı Müşteri sayfalarına Bakım borcu ekletme durumumuz nedir ?

Teşekkür ediyorum.

 

[Hunkar50]

Refaz Hocam nasıl bir kod yazımıdır bu,
İnsan Bir Kod değişemeye çekinir mi..

Hiç anlam veremiyorum sizin kodlara ama, çok işe yaradığı kesin

 

[Refaz]

Akşam felan bakacağım abey.
5 senedir daha with nedir for döngülerini öğrenemeyenler daha doğrusu öğrenmek istemeyip hep hazır bekleyenler var abey
Bu gidişle inşAllah onlardanolmazsınız
Yazdığım kodlar klasik kodlar zaten.

 

[Hunkar50]

Akşam felan bakacağım abey.
5 senedir daha with nedir for döngülerini öğrenemeyenler daha doğrusu öğrenmek istemeyip hep hazır bekleyenler var abey
Bu gidişle inşAllah onlardanolmazsınız
Yazdığım kodlar klasik kodlar zaten.

Private Sub UserForm_Initialize()
Dim i As Byte
ADOWithAllFilesAllSheets

TextBox170 = FormatDateTime(Now, vbShortDate) ' Menü deki tarih
TextBox171 = FormatDateTime(Now, vbShortDate) ' Menü deki tarih
TextBox172 = FormatDateTime(Now, vbShortDate) ' Menü deki tarih
TextBox173 = FormatDateTime(Now, vbShortDate) ' Menü deki tarih


For i = 12 To 23
Me.ComboBox13.AddItem Format(CDate(ThisWorkbook.Worksheets("SA").Cells(i, "B").Value), "dd.mm.yyyy")
Next


End Sub

Yukarıdaki kodlarda listbox5 arıyorum ...

Sub ADOWithAllFilesAllSheets()

Dim con As Object, rs As Object, Fso As Object, FilesS As Object, k As Long, say As Long, kayitExcelAd As String

Set con = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.RecordSet")
Set Fso = CreateObject("Scripting.FileSystemObject")
say = 0
Const ListboxColumnAdet As Byte = 4
ReDim arrListbox1(1 To ListboxColumnAdet, 1 To 1)


Buradan çıkıyor..
Listbox5 i B.bakım a baglayım dedim. oradan silmem lazım..
Hadi sildim listbox5 i B. bakımdan çektim. Birde kayıt ( bakım ) borçlandırma işi var..

Tabiri Caizse biz harfleri ögrenmeye çalşıyoruz. siz el yazısına geçmişsiniz

 

[Refaz]

b.Bakım sayfasına alınan kodlar yanlış olmuş 3.ay seçilince müşreri6 gelmemesi gerekiyor onu düzeltmeliyim.
Ayrıca bu konuda isteğinizden dolayı bir sürü kod değişecek yine.
Zaman bulabilirsem ilgilenirim.

 

[Refaz]

Yapılanalar:
b.bakım sayafası için I sütunununa dosya yolu başlık ve J sütununada SAYFA K sütununa Musteri&Uzanti başlık ekledim.

Hata felan varsa yazın yarın akşama doğru ilgilenebilirim.

 

[Hunkar50]

Yapılanalar:
b.bakım sayafası için I sütunununa dosya yolu başlık ve J sütununada SAYFA K sütununa Musteri&Uzanti başlık ekledim.

Hata felan varsa yazın yarın akşama doğru ilgilenebilirim.

Hocam, Kusura bakmayın sizede eziyet veriyorum..

Eklediğim dosya sizin son yaptııgınız dosya, Müşteri1 i (1.aya bakım işledim) + Müşteri2 ye ( 2.aya Bakım İşledim) +Müşteri3 ye ( 3.aya Bakım İşledim) vs.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

<<<< Videoda daha iyi anlattım heralde hocam .. Hayırlı akşamlar.

 

[Refaz]

Abey videoyu az izledim akşama doğru tam izlerim.
Yolladığım dosyada 3.ay seçildiyse müşteri1,4,5 çıkması ,4.ayda müşteri7 diğerlerinde ise tüm müşteriler çıkıyordu.Acaba yanlış dosyamı ekledim bilmiyorum.Akşama doğru hepsine badarım.Birde meşhur ADO ile denerim.
Yani dosya karışık bir sürü şart var.

 

[Hunkar50]

Abey videoyu az izledim akşama doğru tam izlerim.
Yolladığım dosyada 3.ay seçildiyse müşteri1,4,5 çıkması ,4.ayda müşteri7 diğerlerinde ise tüm müşteriler çıkıyordu.Acaba yanlış dosyamı ekledim bilmiyorum.Akşama doğru hepsine badarım.Birde meşhur ADO ile denerim.
Yani dosya karışık bir sürü şart var.

Evet Hocam Aynen dediğiniz gibi çıkıyordu..
Ama Müşteri7 de 4 ayda işlem var oldugu halde çıkıyor ( nedeni Tarih vardı, tutar yoktu) + müşteri1-2-3-4-5 de çıkması gerekiyordu çünki 4 ay bakımı onlarda da yoktu.

ADO neyse yarın ilk işim onun videosunu izlemek olacak .. Kimmiş bakalım

 

[Refaz]

Abey dünkü yolladığım dosyada çalıştı ekteki Ado ile yaptığımda.
Bir deneyin.
dahada olmazsa maliesef yardımcı olamayacağım çünkü yapapamış olmuşumdur





HTML:

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

 

[Hunkar50]

Abey dünkü yolladığım dosyada çalıştı ekteki Ado ile yaptığımda.
Bir deneyin.
dahada olmazsa maliesef yardımcı olamayacağım çünkü yapapamış olmuşumdur


Ekli dosyayı görüntüle 6987


HTML:

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

Hocam dosyayı şu an yine indirdim.. Müşteri sayfalarında bakım işlemleri yapacağım..
Şu an eklediğim dosyada Tüm Müşterilere ( müşteri1 1.ay) (Müşteri2 2.ay) Müşteri3 3.Ay ) 7 ye kadar tüm müşterilere son numaralarının ayına bakım borçlandırması yaptım...

Bizim sorunumuz şu hocam .. : Bakım işlemini her ay . her binaya yapmak zorundayım.
Örnek : Müşteri1 e 1. ayda bakım yapıldı. 1 ay seçilip Bekleyen bakımlar butonunu tıkladıgımda Müşter1 Hariç Geri kalan müşteriler Çıkması lazım..

2. ay tarihi seçip . Bekleyen bakımlar tıkladığımda Müşteri2 hariç diğerlerinin olması lazım.. Bu şekilde ay ay deneyebilirsiniz. Ve cari işlemlerine bakınız.. Teşekkür ediyorum

 

[Hunkar50]

Abey dünkü yolladığım dosyada çalıştı ekteki Ado ile yaptığımda.
Bir deneyin.
dahada olmazsa maliesef yardımcı olamayacağım çünkü yapapamış olmuşumdur


Ekli dosyayı görüntüle 6987


HTML:

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

Bende bir amel bozuklugu var sanırım derdimi anlatamıyorum İQ mu ölçtürsem mi

 

[Refaz]

Nezamandan beri kodlarla yada excel ile uğraşıyorsunuz abey sorması ayıp olmazsa.

 

[Hunkar50]

Nezamandan beri kodlarla yada excel ile uğraşıyorsunuz abey sorması ayıp olmazsa.

2 ay kadar oldu hocam.. Amacım Kod yazmak veya yazılımcı olmak gibi bir şey degil. işime hitap edecek bir çalışma kitabı yapmak..
önceki programın bazı alanlarını ben yapmıştım ama sizin kodları anlamıyorum.. kusura bakmayın

 

[Refaz]

Abey kodlarımı anlamanız için zaten öğrenmek istemeniz lazım.Zaten az çaba gösterseniz rahatlıkla anlarsınız.
Neyse ben yardımcı olamayacağım çünkü her yolu denedik ve enson yaptıklarımızdan başka kod aklıma gelmiyor.Belki mantıksal hata vardır.Yaptığım örnek müşter1 g sütununda 3.ay varsa ve o 3.ayın b sütunundaki karlılığı doluysa listboxa gelmeyecek anladım ve gelmiyorda 3. Ay için örneğin.
Yani bir tane bile şart oluşmazsa tüm müşteriler getiriliyordu lşstbox5 e.

 

[Hunkar50]

Anladım hocam. Peki O müşteri getirme işini.
Ana Sayfa çalışma kitabında .. Cari Sayfasında çözemezmiyiz.
Örnek : Müşteri1 / 1 ay bakım borçlandırması yaparken Cari Sayfası K4 Hücresine X
2. ay borçlandırması yaparken L4 Hüçresine X işareti koydurabilirmiyiz.

İlla yol bulunur hocam..

Olmaz diyorsanız Saglık olsun derim...

Şimdiye kadar bana gerçekten çok yardımcı oldunuz .. Elinize emeğinize saglık.. Allah Razı olsun..
Hakkınızı helal edin Hocam Tşk ler..

 

[Refaz]

Abey inanın yardım etmeyi çok istiyorum lakin devreler yandı
Neyse sonkez dosya ekledim buda olmadıysa yapacağım bişey kalmıyor.

 

[Hunkar50]

Tavatürden 4 Parmak yukarı şekilde güzel olmuş hocam
Nokta atışı yapmışsınız.. elleriniz dert görmesin..

 

[Refaz]

Rica ederim abey.