Çözüldü Listboxta İki Tarih Arası Verileri Gösterme

[OğuzTürkyılmaz]

Herkese sağlıklı günler dilerim.

Nette izlediğim derslerden birindeki kodları kendi uygulamama uyarladım fakat garip bir durumla karşılaşıyorum. Uygulamayı Kod ekranından çalıştırdığımda ekranda Muayene Tarihi sütunundaki tarihe göre filtreleme sonuçlarını alıyorum. ( Tarih Görünümü Amerikan formatına göre Bunu türkçe ye formatlamam gerekiyor.)



Fakat kod ekranını kapatıp uygulamayı normal başlatarak formu çalıştırıp filtreleme yapmak istediğimde sonuç aşağıdaki resimde görüldüğü gibi ekrana geliyor.
Bu durumu nasıl düzeltebilirim. Yardımlarınız için teşekkür ederim.

 

[excelcan]

1) X sütununda hiç veri yok.
For XR = 1 To Range("X1048576").End(xlUp).row
Bu satırın daha önce çalışmasının sebebi verilerinizin
tablo2 ye kayıtlı olması. Bu konuda size açıklama yapmıştım.
Karışıklığa müsait bir konu olduğunu yazmıştım. İlgili soruya bakarsınız.
Aşağıdaki gibi düzelttim.

For XR = 1 To Range("A1048576").End(xlUp).row

2) ReDim Veri(1 To XR, 1 To 24)
XR değişkeni buraya kadar tanımlı değil.
ReDim Veri(1 To 24, 1 To 1) olarak düzelttim

3) For i = 0 To ListBox1.ListCount yerine
For i = 0 To ListBox1.ListCount - 1

Özetle;
On Error Resume Next satırını pasife alın hata nerde görün.

 

[userx]

HTML:

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

Üstteki kodu alttaki şekilde değiştirerek dener misiniz?

HTML:

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

 

[Alicimri]

Alternatif:
HTML:

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

 

[OğuzTürkyılmaz]

HTML:

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

Üstteki kodu alttaki şekilde değiştirerek dener misiniz?

HTML:

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

Sn@userx hocam typemitsmatch hatası veriyor Muayene tarihi 23.sütunda tutuluyor

 

[OğuzTürkyılmaz]

1) X sütununda hiç veri yok.
For XR = 1 To Range("X1048576").End(xlUp).row
Bu satırın daha önce çalışmasının sebebi verilerinizin
tablo2 ye kayıtlı olması. Bu konuda size açıklama yapmıştım.
Karışıklığa müsait bir konu olduğunu yazmıştım. İlgili soruya bakarsınız.
Aşağıdaki gibi düzelttim.

For XR = 1 To Range("A1048576").End(xlUp).row

2) ReDim Veri(1 To XR, 1 To 24)
XR değişkeni buraya kadar tanımlı değil.
ReDim Veri(1 To 24, 1 To 1) olarak düzelttim

3) For i = 0 To ListBox1.ListCount yerine
For i = 0 To ListBox1.ListCount - 1

Özetle;
On Error Resume Next satırını pasife alın hata nerde görün.

Sn@excelcan öncelikle çok teşekkür ederim. Anladığım kadarıyla ben bu tablo olayından çok sıkıntı yaşayacağım. Tablo yapmamın sebebi pivottablo yaratmaktı ama biraz kurcalayınca pivot tablo yapmak için sayfayı illa tablo olarak adlandırmak şart değilmiş aralık olarak da seçilip pivot tablo yaratılabiliyormuş. Ders 2 sütunluk bir veride üzerinden ayrıntıya fazla girilmediğinden ben de kodları çok anlamlandıramadım kafamda. Kod doğru sonucu veriyor fakat 23. sütundaki Muayene Tarihini bir türlü formatlayamıyorum. 10.06.2022 yapamadım bir türlü 06.10.2022 olarak gösteriyor tarihi.

 

[OğuzTürkyılmaz]

Alternatif:
HTML:

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

Sn@Alicimri ilginiz için çok teşekkür ederim. Kodunuzu baştan sona anladım sadece .SpecialCells(xlCellTypeVisible).Address) ne işe yarıyor kısaca anlatabilirseniz. Dersde anlatılan koddan çok daha kullanışlı geldi bana. Sadece muyene tarihini amerikan sistemine göre veriyor onu bir türlü formatlayamadım.

 

[Alicimri]

O satır ile Süzme işlemi yapılan satırlar içinde, görünen hücrelerin adresini alıyoruz.

 

[Alicimri]

Liste kutusunda normal tarihlerin Hücre biçimi "GENEL", W sütunun Hücre biçimi ise "TARİH"
Veriler nereden ve nasıl alıyorsun,

 

[OğuzTürkyılmaz]

Sn@Alicimri Bu formdan Policeler sayfasına kaydediyorum.

Liste kutusunda normal tarihlerin Hücre biçimi "GENEL", W sütunun Hücre biçimi ise "TARİH"
Veriler nereden ve nasıl alıyorsun,

 

[excelcan]

Sayın OğuzTürkyılmaz
Kodlamalarınızda format gereken yerlere dikkat edin.
Sanırım sorun aşağıdaki bloktan (LoadData makrosu) kaynaklanıyor.
Dener misiniz.

'TextBox_MuayeneBitisTarihi.Value = .Cells(1, 23).Value
TextBox_MuayeneBitisTarihi.Value = Format((.Cells(1, 23).Value), "dd.mm.yyyy")

GÜNCELE BUTONU İÇİN
'.Cells(1, 23).Value = TextBox_MuayeneBitisTarihi.Value
.Cells(1, 23).Value = Format((TextBox_MuayeneBitisTarihi.Value), "dd.mm.yyyy")

 

[Alicimri]

Deneyin
HTML:

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

 

[userx]

Sn@userx hocam typemitsmatch hatası veriyor Muayene tarihi 23.sütunda tutuluyorEkli dosyayı görüntüle 8767

Bize siteye yüklediğiniz dosyada Listbox1' in 22. sütununda, sizde 23. sütundaysa 23 olarak değiştirin.

 

[Alicimri]

ListBoxlar List özelliğinin indexleri 0 (sıfır) dan başlar.

 

[OğuzTürkyılmaz]

Sayın OğuzTürkyılmaz
Kodlamalarınızda format gereken yerlere dikkat edin.
Sanırım sorun aşağıdaki bloktan (LoadData makrosu) kaynaklanıyor.
Dener misiniz.

'TextBox_MuayeneBitisTarihi.Value = .Cells(1, 23).Value
TextBox_MuayeneBitisTarihi.Value = Format((.Cells(1, 23).Value), "dd.mm.yyyy")

GÜNCELE BUTONU İÇİN
'.Cells(1, 23).Value = TextBox_MuayeneBitisTarihi.Value
.Cells(1, 23).Value = Format((TextBox_MuayeneBitisTarihi.Value), "dd.mm.yyyy")

excelcan LoadData ile ilgili kodları yabancı bir kaynaktan izleyip uygulamaya çalışmıştım. Dersi tekrar izleyip ilgili kodlarda söylediğiniz değişiklikleri yapacağım. Çok teşekkür ederim.

 

[OğuzTürkyılmaz]

Bize siteye yüklediğiniz dosyada Listbox1' in 22. sütununda, sizde 23. sütundaysa 23 olarak değiştirin.Ekli dosyayı görüntüle 8772

Sn userx uyguladım dediğiniz gibi formatlandı. Çok teşekkür ederim. Sağolun.

 

[OğuzTürkyılmaz]

Deneyin
HTML:

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

Sn Alicimri Yardımlarınız için çok teşekkür ederim. Bu formda tek bir sorunum kaldı. Onun içinde yeni bir konu açacağım.