Kayıt silince yada düzeltince liste yenilensin

  • Konuyu başlatan Konuyu başlatan Cengizhan
  • Başlangıç tarihi Başlangıç tarihi

Cengizhan

Kısa Açıklama

Kayıt silince yada düzeltince liste yenilensin isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Ömer BARAN' Alıntı:
Tekrar merhaba.

Mevcut kodlara şöyle bir göz attım.
Neleri değiştirdiğimden emin olmadığım için tüm kodları vereyim.
Userform kodlarının tamamını silip, yerine aşağıdakileri yapıştırarak denemeler yapın.

Tek farklı durum; Listview'den seçilen bir ürün, Listboxtaki kategorinin ilk elemanı ise,
soldaki Listbox'ta yer alan sıralama değişiyor ve bu da UserForm_Initalize kodu devreye girdiği için kaçınılmaz.
Tabi, silme öncesi seçili olan kategori yine seçili hale geliyor ama sadece Listbox1'deki sıralama değişmiş oluyor.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(208 satır)
Genişletmek için tıklayın ...
hocam tüm liste göster deyince ordan seçince hata veriyor lb = ListBox1.List(ListBox1.ListIndex) burda ama listobxdan seçince siliyor
günceller ile değiştirince seçince bir alttaki kayıtı değiştiriyor seçilen aynı kalıyor bir seferde en üst süton başlığı değişti
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
t1 = CLng(CDate([d2])):
t2 = CLng(CDate([e2]))

sorgu = "select [PN], [TNZM], "
sorgu = sorgu & "sum([BP]) "
sorgu = sorgu & "from [DATA$]"
sorgu = sorgu & "where CLng(cdate(TNZM)) >=" & t1 & " and CLng(cdate(TNZM)) <=" & t2 & " "
sorgu = sorgu & "group by [PN]"

Yukarıdaki kod ile 2 tarih arası sorgulama yapabilirsiniz.
Kendi dosyanıza uyarlayınız.
Günlük dosya indirme limitim 1 olduğu için dosyanızı indiremedim.
 
Oyla 0 Olumsuz oyla
MESKO' Alıntı:
t1 = CLng(CDate([d2])):
t2 = CLng(CDate([e2]))

sorgu = "select [PN], [TNZM], "
sorgu = sorgu & "sum([BP]) "
sorgu = sorgu & "from [DATA$]"
sorgu = sorgu & "where CLng(cdate(TNZM)) >=" & t1 & " and CLng(cdate(TNZM)) <=" & t2 & " "
sorgu = sorgu & "group by [PN]"

Yukarıdaki kod ile 2 tarih arası sorgulama yapabilirsiniz.
Kendi dosyanıza uyarlayınız.
Günlük dosya indirme limitim 1 olduğu için dosyanızı indiremedim.
Genişletmek için tıklayın ...
Teşekkür ederim ama sizin kodlar ado ile sanırım olmayabilir kodları yazayım buraya isterseniz
 
Oyla 0 Olumsuz oyla
Cengizhan' Alıntı:
yedek parça dosyama şu ekteki arama tekniği olan daha basit anlaşılır olan dosya üzerinden gitmek istiyorum sizden ricam şimdi ekleyeceğim dosyaya 2 tarih arası textbox ekledim onları arama dahil edebilirmiyiz lütfen
Genişletmek için tıklayın ...
@Ömer BARAN hocam bu dosyadaki kodlara daha çok hakimim ben ve yedek parça dosyamı bunun üzerinden yapacam buna bi 2 tarih arası ekleyebilirmisiniz müsait olunca
 
Oyla 0 Olumsuz oyla
Belgenizde TARİH sütunu yok ki iki tarih arası diye bir işlem olsun.
Tarih sütunları ekleyecekseniz, sonradan konumunu (sütununu) değiştirmeyecek şekilde
sütun eklemesi/değişikliği neyse onu ve UserForm üzerine kriter tarihlerin yazılacağı nesne eklemesini de
yaptıktan sonra belgenizin son halini eklerseniz iyi olur.

Zaten bendeki dosyalar biraz birbirine girmiş durumda idi.
Böylece son hali üzerinden devam edilebilir. Rastladığınız hata filan varsa onu da net belirtirsiniz.

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Belgenizde TARİH sütunu yok ki iki tarih arası diye bir işlem olsun.
Tarih sütunları ekleyecekseniz, sonradan konumunu (sütununu) değiştirmeyecek şekilde
sütun eklemesi/değişikliği neyse onu ve UserForm üzerine kriter tarihlerin yazılacağı nesne eklemesini de
yaptıktan sonra belgenizin son halini eklerseniz iyi olur.

Zaten bendeki dosyalar biraz birbirine girmiş durumda idi.
Böylece son hali üzerinden devam edilebilir. Rastladığınız hata filan varsa onu da net belirtirsiniz.

.
Genişletmek için tıklayın ...
24 bolu mesajımda bi dosya eklemiştim ondali kodlara daha çok hakimim onun üzerinden devam etmek istiyorum o dosyada var tarih sütünü felan
 
Oyla 0 Olumsuz oyla
@Ömer BARAN hocam 1 .ilk formu açınca yine tüm listeyi göstersin 2.eğer tarih kısımları boş ise yine isim ile arama yapsın egerki ilk tarih dolu ise ikinci boş ise ilk tarihten sonra olanları göstersin yada ilk tarih boş son tarih dolu ise son tarihe olanları göstersin yada iki tarihte dolu ise ikisinin arasını göstersin size zahmet
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Cengizhan' Alıntı:
hocam tüm liste göster deyince ordan seçince hata veriyor lb = ListBox1.List(ListBox1.ListIndex) burda ama listobxdan seçince siliyor
günceller ile değiştirince seçince bir alttaki kayıtı değiştiriyor seçilen aynı kalıyor bir seferde en üst süton başlığı değişti
Genişletmek için tıklayın ...
Alıntıladığım mesaj ekindeki belgede düzenleme yaptım.
Bu mesaja eklediğim dosyayı her türle (Listview de tümü görünüyorken, solda Listbox üzerinden seçim yapılmışken),
DEĞİŞTİR/SİL işlemlerini kontrol ediniz.

Son mesajınızdaki belgeyle, konu açılış mesajındaki ve konunun başından beri üzerinde çalışılan
belge/userform vs arasında bir bağlantı yok. Bu nedenle, konu bütünlüğü bakımından
son cevabınız ekindeki belgede yapmayı düşündüğünüz işlemle ilgili olarak yeni bir konu açansanız iyi olur.

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Alıntıladığım mesaj ekindeki belgede düzenleme yaptım.
Bu mesaja eklediğim dosyayı her türle (Listview de tümü görünüyorken, solda Listbox üzerinden seçim yapılmışken),
DEĞİŞTİR/SİL işlemlerini kontrol ediniz.

Son mesajınızdaki belgeyle, konu açılış mesajındaki ve konunun başından beri üzerinde çalışılan
belge/userform vs arasında bir bağlantı yok. Bu nedenle, konu bütünlüğü bakımından
son cevabınız ekindeki belgede yapmayı düşündüğünüz işlemle ilgili olarak yeni bir konu açansanız iyi olur.

.
Genişletmek için tıklayın ...
Teşekkür ederim Ömer hocam
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst