[Yardım]  Excel içindeki isim ve tarih aralığına göre filtreleme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel içindeki isim ve tarih aralığına göre filtreleme

İleti#1)  devileye007 » 23 Mar 2021 10:01

İyi günler örnek olsun dıye ufak bir excel dosyası hazırladım. Bu dosyada isim yerine örneğin bilgi yazdım ilk tarih kısmına 18.03.2021 ve son tarih kısmına 22.03.2021 yazdım ismi bilgi içeren girdiğim iki tarih arasındaki verileri tablomdan filtreleyip bana göstersin istiyorum2, ama bir türlü yapamadım. Tablom A6:D11 aralıgında. Filtre için isim girdiğim hucre A2 ilk tarih girdigim hucre B2 ve son tarih girdiğim hücre C2 hucresidir. İsterseniz örnek dosyasını yuklerim.
Kullanıcı avatarı
devileye007
 
Kayıt: 23 Mar 2021 09:52
Meslek: Mühendis
Yaş: 27
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

Cevap: Excel içindeki isim ve tarih aralığına göre filtrelem

İleti#2)  devileye007 » 23 Mar 2021 12:01

Biraz aciliyeti var konunun , eger dedigim olay mümkün degilse soylerseniz sevinirim. Simdiden herkese tesekkurler.
Kullanıcı avatarı
devileye007
 
Kayıt: 23 Mar 2021 09:52
Meslek: Mühendis
Yaş: 27
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

Cevap: Excel içindeki isim ve tarih aralığına göre filtrelem

İleti#3)  okutkan » 24 Mar 2021 20:41

Elinizde varsa örnek dosya yükleyin.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 969
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Excel içindeki isim ve tarih aralığına göre filtrelem

İleti#4)  şahin » 24 Mar 2021 22:49

Örnek ekte
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 32
İleti: 1203
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Excel içindeki isim ve tarih aralığına göre filtrelem

İleti#5)  devileye007 » 27 Nis 2021 13:08

Teşekkürler
Kullanıcı avatarı
devileye007
 
Kayıt: 23 Mar 2021 09:52
Meslek: Mühendis
Yaş: 27
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

Cevap: Cevap: Excel içindeki isim ve tarih aralığına göre fi

İleti#6)  geronimo82 » 02 May 2021 12:03

şahin yazdı:Örnek ekte

şahin bey merhaba.. bunu vba da yapılmış bir örneği var mı elinizde.. varsa paylaşırmısınız.. teşekkürler
Kullanıcı avatarı
geronimo82
 
Kayıt: 01 May 2021 15:53
Meslek: Devlet Memuru
Yaş: 38
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Cevap: Excel içindeki isim ve tarih aralığına

İleti#7)  şahin » 02 Haz 2021 21:43

geronimo82 yazdı:
şahin yazdı:Örnek ekte

şahin bey merhaba.. bunu vba da yapılmış bir örneği var mı elinizde.. varsa paylaşırmısınız.. teşekkürler


Bu örnek VBA (makro) ile yapılı zaten, gelişmiş filtre makro VBA ile çalışıyor.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 32
İleti: 1203
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Excel içindeki isim ve tarih aralığına göre filtrelem

İleti#8)  Uygaroz » 09 Haz 2021 08:31

İsme bağlı olarak 2 tarih aralığına göre veri getiren örnek ektedir.
Umarım işinize yarar.

Not: Başka bir kod'dan uyarlanmıştır.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:C2")) Is Nothing Then Exit Sub

Dim v As Worksheet
Set v = ThisWorkbook.Sheets("Sayfa1") ' <-- Sayfa1 yerine kodun calışacağı sayfanın ismini yazın

If v.AutoFilterMode Then v.AutoFilterMode = False

vson = v.Cells(Rows.Count, 3).End(3).Row

If Range("b2") = "" Then bas = WorksheetFunction.Min(v.[B:B])
If Range("b2") <> "" Then bas = DateValue(Range("b2").Value)

If Range("c2") = "" Then bit = WorksheetFunction.Max(v.[C:C])
If Range("c2") <> "" Then bit = DateValue(Range("c2").Value)

veri = v.Range("a5:c" & vson).Value

       
v.Range("a5:c" & vson).AutoFilter Field:=2, Criteria1:=">=" & CLng(bas)
v.Range("a5:c" & vson).AutoFilter Field:=3, Criteria1:="<=" & CLng(bit)
v.Range("a5:c" & vson).AutoFilter Field:=1, Criteria1:=Range("a2").Value
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 272
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 0 misafir

Bumerang - Yazarkafe