Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 21-06-2017, 17:58   #1
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan textbox ile 2 tarih arası filtreleme

arkadaşlar merhaba. bir uygulama yapmaya çalışıyorum ancak bir konuda yardımlarınızı rica edeceğim. userformda tarih ve firma kriterlerine göre arama yaptırıp onu başka bir excel sayfasına yazdırmak istiyorum. firma kriterini işlevsel olarak kullanabiliyorum ancak 2 tarih arasını filtrelemeyi maalesef başaramadık.
Eklenmiş Dosyalar
Dosya Türü: xls PROGRAM (2).xls (244.0 KB, 8 Görüntülenme)
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 11:24   #2
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

arkadaşlar forumdan ve başka forumlardan bir sürü araştırma yapıp uygulamaya çalıştım ancak enteresan bir şekilde uygulama hata da vermiyor ama işlem de yapmıyor. desteklerinizi rica ediyorum
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 11:58   #3
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 219
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

merhaba

Private Sub CommandButton1_Click()
Worksheets("Sayfa1").Range("A1").AutoFilter Field:=1, Criteria1:=">=" & CLng(CDate(TextBox1.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox2.Value))
End Sub
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 12:23   #4
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

Alıntı:
hoguz2 tarafından gönderildi Mesajı Görüntüle
merhaba

Private Sub CommandButton1_Click()
Worksheets("Sayfa1").Range("A1").AutoFilter Field:=1, Criteria1:=">=" & CLng(CDate(TextBox1.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox2.Value))
End Sub
bu kodu uyarlayıp deniyorum ekteki dosyada da bu var ancak çalışmıyor maalesef
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 12:27   #5
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 219
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

ekli dosyanızı altin uye olmadigim icin goremiyorum. fakat bu kodda hata yok . sayfa1 in A stunundan baslayarak textboxlardaki degere gore yine A kolonuna filtre yapıyor. Sayfa isimleri ya da sütün duzeltmesi yaptiniz mi field1 dedigi kısım A sutunudur. field2 B field3 C diye gider.

google ya da yandex drive yukleyin isterseniz. hucrelerdeki degerleri tarih formatina ceviren bir satir da ekleyebilirsiniz oradan da sorun cikiyor olabilir..
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 14:03   #6
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

buraya yükledim dosyayı değerlendirme şansınız varsa sevinirim

https://drive.google.com/open?id=0B5...2l2TGNIbXpDY0E
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 14:37   #7
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 219
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

ben kodlarınızı su sekilde denedim filtreleme yapti. L2:L yazmissiniz ya orda bir sıkıntı var. otomatik filtreyi a1 den baslatin.


s1.Range("A1").AutoFilter Field:=12, Criteria1:=">=" & CLng(CDate(TextBox5.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox6.Value))
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 20:59   #8
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

Alıntı:
hoguz2 tarafından gönderildi Mesajı Görüntüle
ben kodlarınızı su sekilde denedim filtreleme yapti. L2:L yazmissiniz ya orda bir sıkıntı var. otomatik filtreyi a1 den baslatin.


s1.Range("A1").AutoFilter Field:=12, Criteria1:=">=" & CLng(CDate(TextBox5.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox6.Value))
Teşekkür ederim. dediğiniz gibi yapınca süper çalıştı. elinize sağlık
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:11


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden