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

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

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.

Refaz' Alıntı:

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.

Genişletmek için tıkla...

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

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.

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.

Refaz' Alıntı:

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.

Genişletmek için tıkla...

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.

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

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.

Refaz' Alıntı:

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.

Genişletmek için tıkla...

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

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:

Refaz' Alıntı:

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:

Rich (BB code): Kodları Kopyala

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

Genişletmek için tıkla...

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

Refaz' Alıntı:

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:

Rich (BB code): Kodları Kopyala

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

Genişletmek için tıkla...

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

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

Refaz' Alıntı:

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

Genişletmek için tıkla...

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

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.

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..

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

Rica ederim abey.