Çözüldü Textboxta Ay Yıl Yazarak Tarih Süzme

mertatakan3838 · 26 Nis 2021

Değerli arkadaşlar combobox ile tablo başlıklarına göre listboxa veri getirtiyorum. Yapmak istediğim listemdeki tarihleri combobox ile listboxa getirdiğimde, textboxa ay ve yıl yazarak verileri süzdürüp saydırmak. Bu işlemi sistem dili Türkçe ve İngilizce olan bilgisayarlarda çalışacak şekilde nasıl uyarlayabiliriz. Yardımlarınız için şimdiden teşekkürler. Not: Çalışmadaki veri sayfası gizli konumdadır.

Ömer BARAN · 27 Nis 2021

Merhaba @mertatakan_3838 .
Umarım yanlış düşünmedim.

-- Text1_Change kodunda kırmızı satırların arasına yeşil oan satırları ekleyin.
-- Aşağıdaki ikinci kodu da UserForma ait kod bölümüne ekleyin.

Combobox'ta, Başlama veya Kimlik Tarihi seçeneği seçiliyken Text1'in içine
7 karakter olarak, 08.2023 veya 05/2019 gibi AY-YIL bilgisini yazdığınızda istenilen işlem gerçekleşir.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(26 satır)

mertatakan3838 · 27 Nis 2021

Ömer BARAN' Alıntı:
Merhaba @mertatakan_3838 .
Umarım yanlış düşünmedim.

-- Text1_Change kodunda kırmızı satırların arasına yeşil oan satırları ekleyin.
-- Aşağıdaki ikinci kodu da UserForma ait kod bölümüne ekleyin.

Combobox'ta, Başlama veya Kimlik Tarihi seçeneği seçiliyken Text1'in içine
7 karakter olarak, 08.2023 veya 05/2019 gibi AY-YIL bilgisini yazdığınızda istenilen işlem gerçekleşir.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir. (9 satır)

VBA:

Görüntülemek için giriş yapmanız gerekmektedir. (26 satır)

Ömer hocam sistem dili Türkçe olan bilgisayarda denedim tam istediğim gibi çalışıyor. Sistem dili İngilizce olan bilgisayarda deneme şansım olmadı inşallah orda da aynı sonucu alırım. Tekrardan çok teşekkür ederim

mertatakan3838 · 2 May 2021

Ömer BARAN' Alıntı:
Merhaba @mertatakan_3838 .
Umarım yanlış düşünmedim.

-- Text1_Change kodunda kırmızı satırların arasına yeşil oan satırları ekleyin.
-- Aşağıdaki ikinci kodu da UserForma ait kod bölümüne ekleyin.

Combobox'ta, Başlama veya Kimlik Tarihi seçeneği seçiliyken Text1'in içine
7 karakter olarak, 08.2023 veya 05/2019 gibi AY-YIL bilgisini yazdığınızda istenilen işlem gerçekleşir.

VBA:

Görüntülemek için giriş yapmanız gerekmektedir. (9 satır)

VBA:

Görüntülemek için giriş yapmanız gerekmektedir. (26 satır)

Ömer hocam makro gayet güzel çalışıyor tekrardan çok teşekkür ederim. Yalnız şöyle bir sorunla karşılaştım. Verileri ay ve yıl olarak süzdürdükten sonra listbox3 ün click olayı çalışmıyor ve bu sebeple verileri süzdürdükten sonra textboxlara ilgili verileri aktaramıyorum. Buna bir çözüm bulabilirsek çok iyi olacak hocam. Saygılar

Ömer BARAN · 2 May 2021

@mertatakan_3838
Bu konu sayfasındaki örnek belgenizde UserForm'un kod bölümünde zaten ListBox3_Click kodları yok.
Hangi kodları kullandığınızı da bilemiyorum.

Tarih arama kodlarının uygulandığı, içerisinde Listbox_Click kodlarının da olduğu örnek belgenizin son halini eklerseniz iyi olur.
Belki de tüm kodların yeniden ele alınması gerekir, bilemiyorum.

.

mertatakan3838 · 2 May 2021

Ömer BARAN' Alıntı:
@mertatakan_3838
Bu konu sayfasındaki örnek belgenizde UserForm'un kod bölümünde zaten ListBox3_Click kodları yok.
Hangi kodları kullandığınızı da bilemiyorum.

Tarih arama kodlarının uygulandığı, içerisinde Listbox_Click kodlarının da olduğu örnek belgenizin son halini eklerseniz iyi olur.
Belki de tüm kodların yeniden ele alınması gerekir, bilemiyorum.

.

Örnek Dosya

Ömer BARAN · 2 May 2021

TARIH_ARA makro kodunda, yeşil renklendirdiğim kısmı ekleyerek bir dener misiniz @mertatakan_3838

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

mertatakan3838 · 2 May 2021

Ömer BARAN' Alıntı:
TARIH_ARA makro kodunda, yeşil renklendirdiğim kısmı ekleyerek bir dener misiniz @mertatakan_3838

VBA:

Görüntülemek için giriş yapmanız gerekmektedir. (3 satır)

Çok teşekkür ederim Ömer hocam istenilen sonucu verdi

mertatakan3838 · 12 May 2021

mertatakan_3838' Alıntı:
Ömer hocam sistem dili Türkçe olan bilgisayarda denedim tam istediğim gibi çalışıyor. Sistem dili İngilizce olan bilgisayarda deneme şansım olmadı inşallah orda da aynı sonucu alırım. Tekrardan çok teşekkür ederim

Ömer hocam sistem dili İngilizce olan bilgisayarda deneme yaptığımda bu hatayı aldım. Buma bir çözüm bulabilirmiyiz acaba(Hata satırı:bas = DateValue("01." & Text1.Text))

Ömer BARAN · 12 May 2021

@mertatakan_3838

bas = DateValue(Format"01." & Text1.Text))
satırını, aşağıdaki gibi değiştirerek deneyin (deneme şansım olmadı)
bas = DateValue(Format(Replace(Replace(Text1.Text."/","\/"),".","\/"),"dd\/mm\/yyyy"))

.

mertatakan3838 · 12 May 2021

Ömer BARAN' Alıntı:
@mertatakan_3838

bas = DateValue(Format"01." & Text1.Text))
satırını, aşağıdaki gibi değiştirerek deneyin (deneme şansım olmadı)
bas = DateValue(Format(Replace(Replace(Text.Text."/","\/"),".","\/"),"dd\/mm\/yyyy"))

.

Hata verdi Ömer hocam

Ömer BARAN · 12 May 2021

Text.Text yazmışım Text1.Text olarak değiştirin.

mertatakan3838 · 12 May 2021

Ömer BARAN' Alıntı:
Text.Text yazmışım Text1.Text olarak değiştirin.

Yine aynı hatayı verdi Ömer hocam Bende text1.text in sonundaki noktayı virgül yaptım bu seferde type mismatch hatası verdi

Ömer BARAN · 12 May 2021

Belirttiğim gibi deneme şansım yok. Bir de şöyle deneyin.

bas = DateValue(Format(Replace(Text1.Text,"/","."),"dd\/mm\/yyyy"))

.

mertatakan3838 · 12 May 2021

Ömer BARAN' Alıntı:
Belirttiğim gibi deneme şansım yok. Bir de şöyle deneyin.

bas = DateValue(Format(Replace(Text1.Text,"/","."),"dd\/mm\/yyyy"))

.

En kısa zamanda deneyip dönüş yapacağım Ömer hocam

Çözüldü Textboxta Ay Yıl Yazarak Tarih Süzme

mertatakan3838

Normal Üye

Ekli dosyalar

Ömer BARAN

Forum Kurucusu

mertatakan3838

Normal Üye

mertatakan3838

Normal Üye

Ömer BARAN

Forum Kurucusu

mertatakan3838

Normal Üye

Ekli dosyalar

Ömer BARAN

Forum Kurucusu

mertatakan3838

Normal Üye

mertatakan3838

Normal Üye

Ekli dosyalar

Ömer BARAN

Forum Kurucusu

mertatakan3838

Normal Üye

Ekli dosyalar

Ömer BARAN

Forum Kurucusu

mertatakan3838

Normal Üye

Ömer BARAN

Forum Kurucusu

mertatakan3838

Normal Üye

Gizliliğinize önem veriyoruz,