Kayıt silince yada düzeltince liste yenilensin

[Cengizhan]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

merhaba
userformda kayıt silince yada düzeltince listvivewda liste yenilensin yardımcı olurmusunuz lütfen

 

ComboBox ile filitreleme yapmak

Outlook makro ile mail gönderme

[MESKO]

Akşama kadar çözüm bulamazsanız ancak o zaman kapsamlıca bakabilirim.

Kolaylıklar dilerim.

Bence tam Access & ADO luk bir dosya.

 

[Cengizhan]

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.

İndirmek için giriş yapmanız gerekmektedir.
(208 satır)

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

 

[Cengizhan]

Bence tam Access & ADO luk bir dosya.

access ve ado için çok acemiyim

 

[Cengizhan]

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

 

[MESKO]

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.

 

[Cengizhan]

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.

Teşekkür ederim ama sizin kodlar ado ile sanırım olmayabilir kodları yazayım buraya isterseniz

 

[Cengizhan]

Teşekkür ederim ama sizin kodlar ado ile sanırım olmayabilir kodları yazayım buraya isterseniz

İndirmek için giriş yapmanız gerekmektedir.
(72 satır)

tarih g sütünunda ve iki textbox ekledim textbox2 ilk tarih textbox3 son tarih

 

[Cengizhan]

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

@Ö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

 

[Ömer BARAN]

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.

.

 

[Cengizhan]

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.

.

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

 

[Cengizhan]

@Ö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

 

[Ömer BARAN]

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

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.

.

 

[Cengizhan]

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.

.

Teşekkür ederim Ömer hocam