Gelişmiş filtreleme hk.

[kemal turan]

Merhaba
Ustalarımızın yardımı ile revize ettiğim aşağıdaki kod eğer sutun metinse gelimiş filtreleme yapıyor.
Sutundaki veri rakam veya tarih ise yapmıyor.
Biraz deneme yaptım başarılı olamadım.
Tarih ve sayı filtreleme yapması için yardımlarınızı rica ediyorum.
Teşekkür ederim.
kod sayfası başı şu şekilde

Dim s1 As Worksheet, S2 As Worksheet, S3 As Worksheet, Veri As Range, Say As Long

Private Sub TextBox3_Change()
Application.ScreenUpdating = False
On Error Resume Next
Dim deg As String, sh As Worksheet, sat As Long
If TextBox3.Text = "" Then
Range("B5:n65536").Clear

Else
deg = TextBox3.Text
Sheets("ANASAYFA").Select

Range("B5:n65536").ClearContents
Set sh = Sheets("VERİ TABANI")
sh.Range("M1").AutoFilter
sat = sh.Cells(65536, "M").End(xlUp).Row
sh.Range("M1").AutoFilter field:=13, Criteria1:=deg & "*"

sh.Range("L1:L" & sat).SpecialCells(xlCellTypeVisible).Copy Range("C6")
sh.Range("M1:M" & sat).SpecialCells(xlCellTypeVisible).Copy Range("D6")
sh.Range("B1:B" & sat).SpecialCells(xlCellTypeVisible).Copy Range("E6")
sh.Range("C1:C" & sat).SpecialCells(xlCellTypeVisible).Copy Range("F6")
sh.Range("D1:D" & sat).SpecialCells(xlCellTypeVisible).Copy Range("G6")
sh.Range("N1:N" & sat).SpecialCells(xlCellTypeVisible).Copy Range("H6")
sh.Range("O1:O" & sat).SpecialCells(xlCellTypeVisible).Copy Range("I6")
sh.Range("P1:P" & sat).SpecialCells(xlCellTypeVisible).Copy Range("J6")
sh.Range("M1").AutoFilter
Set sh = Nothing
End If
Application.ScreenUpdating = True

End Sub

 

[kemal turan]

merhaba
Konu günceldir.

 

[Ömer BARAN]

Merhaba.

Sadece kod yerine örnek belge paylaşırsanız; sonuca daha hızlı ulaşacağınızı düşünüyorum.
.

 

[kemal turan]

MERHABA
Örnek dosya ektedir.

 

[asi_kral]

Merhaba
Tam olarak ne yapmak istiyorsunuz. İçerisine örnek yazmamışsınız da

 

[kemal turan]

Merhaba
Veri tabanından gelişmiş filtre gibi veri çekiyorum
Şahsi sorgulamada olduğu gibi veri çekimindeki kriter sutun metin ise sıkıntı yok veri çekiyor.
Burada a1 hücresini krıter alıyor.Koddaki ilk işlemde oraya textboxdaki veriyi yazdırıyorum.
tarih veya sayı krıterli veri almak istediğimde veriyi çekmiyor.
userformlardaki kaydet butonundaki kodun
Dim deg As String, sh As Worksheet, sat As Long
kısmında bir değişiklik yapmak gerekiyor herhalde
teşekkür ederim.

 

[asi_kral]

Merhaba
Tamam ama alacağınız sütunlar neresi Tarih neresi sayı bunları tanıtmamız gerek hepsi aynı sütunda mı?

 

[kemal turan]

merhaba,
ben örnek osman karaçalının veri tabanı sahifesindeki g sutununa bakarak bütün hareketlerini çekebiliyorum.şahsi sorgulama butonuna basarak.
alacağımız veri tarih sutunu G sutununda, "ANASAYFA Sahifesi kriter a1 hücresi"
ben 16/11/2016 tarihinde ne yapmışım diye sorgulamak istediğimde "tarih sorgulaması" butonuna basıp textboxa tarih yazdıkdan sonra SORGULA butonu ile verileri çekmek istiyorum
veya yıl b sutununda
2016 yılında ne yapmışım diye sorgulamak istiyorum ( bu butonu daha oluşturmadım.
Kod sadece metin üzerine filtreleme yapıyor diye düşünüyorum.

 

[kemal turan]

Kodu revize ettiğim ilk aldığım soru linki
http://www.excel.web.tr/f48/hucre-v...hifeden-istenilen-sutun-verileri-t158941.html
Sağolsun Sn Orion bey yardımcı olmuş idi.

 

[asi_kral]

Merhaba
Dosyanız ekte o kadar kodu buraya yapıştırmayım

 

[kemal turan]

merhaba
tarih sorgusu veri çekmedi.
Müsait olduğunuzda bakarsanız sevinirim.
Teşekkür ederim.

 

[asi_kral]

Dosyanızı güncelledim.

 

[kemal turan]

merhaba,
indirdiğim dosya ekte
güncellemede mi bir sıkıntı var acaba.
zahmet olmazsa müsait olduğunuzda bakarsanız sevinirim.
size de zahmet verdim kusura bakmayın
teşekkür ederim.

 

[asi_kral]

Bir sıkıntı görünmüyor dosyada verileri aktarıyor.
Tarih girerken "17/11" Slash ( / ) şeklinde ayraç giriniz.

 

[askm]

 sh.Range("d1:d" & sat).AutoFilter 4, CDate(Range("A1"))

UserForm1 deki
kodu aşağıdaki ile değiştirin.

sh.Range("d1:d" & sat).AutoFilter 4, Format(Range("A1").Value, "dd.mm.yyyy")

 

[kemal turan]

Sn.Asi kral bey, Sn.Askm çok teşekkür ederim.
Emeğinize ve bilginize sağlık
Hakkınızı helal ediniz.
Selametle kalınız.