Textbox ile arama yapılması

[mustafa7691]

sn dostlar aslında sorunumun asıl çözümü sanırım sn Evren Gizlen'de çünki bu dosyanın ilk yapımcısı kendisi olması ve benim bu dosyayı o şekilde indirmem nedeniyle bunu belirtmek istedim.tabiki yardım alma konusunda bütün uzanan ellere ihtiyacım var ve şu ana kadarki yardımlarınıza müteşekkirim.
Ekte hem asıl dosyayı hem kendi dosyamı yolladım.textbox üzerindeki arama kodlarını kendime uyarlayamadım yada yaptığım kadarıyla doğru çalışmıyor.yardımcı olmanız dileklerimle.Saygılar.

 

[Orion1]

Dosyanız hazır.

 

[mustafa7691]

sn Evren Gizlen teşekkür ederim ilginize ama sanırım bir yanlışlık var.aslen aşı dosyamdı istediğim ama sizden başka bir dosya geldi bi bakarsanız memnun olurum.

 

[mustafa7691]

sanırım arama dosyasındaki kodları değiştirmişsiniz ben tekrar kendi dosyama uyarlamayı deniyeyim.teşekkürler.

 

[Orion1]

Yooo ben sizin yolladığınız dosya üzerinde değişiklik yaptım.
İsterseniz eklediğiniz dosyayı indirip bakın.
Aşı dosyası değil.
Yapamazsanız doğru dosyayı ekleyip yollayın.

 

[Orion1]

Baştan söyleseydiniz deneme1 dosyası diye hallederdik.Neyse hallderiz.

 

[mustafa7691]

arama

sn hocam aslında ilk mesajımda belirtmiştim ama sanırım yoğunluktan gözünüzden kaçtı.yinede sağolun özürlerimle.

 

[mustafa7691]

sn hocam asıl dosyamı ekledim şimdi.Dediğim gibi ilk dosyada deneme1 ve arama adlı iki dosya vardı hata benim gerekli vurguyu iyi yapamamışım.teşekkürler.

 

[Orion1]

Buyurun dosyanız hazır.

 

[mustafa7691]

sizi uğraştırdım gerçekten sağolun iyiki varsınız.saygılarımla.

 

[Orion1]

sizi uğraştırdım gerçekten sağolun iyiki varsınız.saygılarımla.

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Bu eklediğim dosyayı kullanın bu dağa hızlı çalışıyor.Bir tek tarih biraz yavaş çalışıyor.Diğer 2 seçenek öteki dosaydan dağa hızlı çalışıyor.Textboxa yıldız koyduğunuzda hepsini göstermesi için tarihe 2 ölçüt koydum ondan diğer seçeneklerden dağa yavaş çalışıyor.
Doxya ekte.

 

[mustafa7691]

sn Evren gizlen mükemmel emeğinize sağlık..bir şey daha sormak istedim mümkün olur ve cevaplarsanız sevinirim.bu çalışmada veri ve arama sayfası iki ayrı sayfa şeklinde düzenlenmiş.Acaba ayrı bir arama sayfası yerine sadece veri sayfası üzerine texbox ları koysak ve orada bu işi yaptırsak buda mümkün olabilirmi kodlarınızda.

Private Sub TextBox1_Change()
Set s1 = Sheets("Arama")
Set s2 = Sheets("Veriler")
s1.Range("A10:R65536").Clear
s1.Range("T2").Value = TextBox1.Value
If TextBox1.Value = "" Then Exit Sub
s2.Range("A5:R65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=s1.Range("T1:T2"), CopyToRange:=s1.Range("A10"), Unique:=False
End Sub

Private Sub TextBox2_Change()
Set s1 = Sheets("Arama")
Set s2 = Sheets("Veriler")
s1.Range("A10:R65536").Clear
s1.Range("U2").Value = TextBox2.Value
If TextBox2.Value = "" Then Exit Sub
s2.Range("A5:R65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=s1.Range("U1:U2"), CopyToRange:=s1.Range("A10"), Unique:=False
End Sub

Private Sub TextBox3_Change()
Set s1 = Sheets("Arama")
Set s2 = Sheets("Veriler")
s1.Range("A10:R65536").Clear
On Error Resume Next
If IsDate(s1.TextBox3.Value) Then
s1.Range("V2").Value = CDate(TextBox3.Value)
s1.Range("V2").NumberFormat = "dd.mm.yyyy"
s1.Range("V3").Value = CDate(TextBox3.Value)
s1.Range("V3").NumberFormat = "dd.mm.yyyy"
ElseIf TextBox3.Value = "*" Then
s1.Range("V2").Value = CDate(Date)
s1.Range("V3").Value = "<>" & CDate(Date)
Else
s1.Range("V2").Value = TextBox3.Value
s1.Range("V3").Value = TextBox3.Value
End If
If TextBox3.Value = "" Then Exit Sub
s2.Range("A5:R65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=s1.Range("V1:V3"), CopyToRange:=s1.Range("A10"), Unique:=False

End Sub


san&#305;r&#305;m bu s1 c&#252;mlesindeki ko&#351;ullar&#305; s2 i&#231;in d&#252;zenlersek kod &#231;al&#305;&#351;&#305;rm&#305;.

 

[Orion1]

olur tabiiki siz textboxları koyun dosyayı yollayın ben yapayım.
Yalnız bu sefer kodlarda bir küçük değişiklik yapacağız.
Veriler olduğu yerde süzülecek .Dağa önce süzülüp başak bir sayfaya (arama sayfasına ) aktrılıyordu.

 

[mustafa7691]

sn Evren Gizlen size çok yük oldum sanırım ama size dosyamı gönderiyorum.inanın hakkınız ödenmez .saygılarımla.

 

[Orion1]

Dosyanız hazır.
Eh artık banada bir aşı yaparsınız.İstemem istemem şaka.şaka .

 

[mustafa7691]

say&#305;n Evren Gizlen &#231;ok &#231;ok sa&#287;olun.umar&#305;m a&#351;&#305;l&#305;k bir i&#351;iniz olmaz ama velevki oldu ba&#351;&#305;m&#305;z &#252;st&#252;ne m&#252;mk&#252;n olan ne varsa yapar&#305;z.sayg&#305;lar&#305;mla.

 

[Orion1]

sayın Evren Gizlen çok çok sağolun.umarım aşılık bir işiniz olmaz ama velevki oldu başımız üstüne mümkün olan ne varsa yaparız.saygılarımla.

Teşekkür ederim.
İyi çalışmalar.

 

[mustafa7691]

sn Evren hocam affınıza sığınarak kullanımda doğan bir karmaşa nedeniyle tekrar mesaj yazıyorum.vaktiniz olur cevaplarsanız sevinirim.

ben bu aramadaki text3 ve text 4 (doğum ve aşı tarihi) gereksiz bularak kaldırmak istedim ve kaldırdım aslıda.arama ve süzmede bir sorun oluşmadı doğal olarak ama sayfayı tekrar tam sayfa haline döndürmek için kodu bir yere yerleştiremedim.

Application.ScreenUpdating = True
End Sub

Private Sub TextBox2_Change()
Range("U2").Value = TextBox2.Value
If TextBox2.Value = "" Then Exit Sub
Application.ScreenUpdating = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A6:R" & Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("U1:U2"), Unique:=False
Application.ScreenUpdating = True
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
Range("V2").Value = TextBox2.Value
If TextBox3.Value = "" Then Exit Sub
Application.ScreenUpdating = False
If TextBox3.Value = "*" Then
Range("V2").Value = CDate(Date)
Range("V3").Value = "<>" & CDate(Date)
Else
Range("V2").Value = CDate(TextBox3.Value)
Range("V3").Value = CDate(TextBox3.Value)
End If
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A6:R" & Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("V1:V3"), Unique:=False
Application.ScreenUpdating = True
End Sub

Private Sub TextBox4_Change()
On Error Resume Next
Range("V2").Value = TextBox2.Value
If TextBox4.Value = "" Then Exit Sub
Application.ScreenUpdating = False
If TextBox4.Value = "*" Then
Range("W2").Value = CDate(Date)
Range("W3").Value = "<>" & CDate(Date)
Else
Range("W2").Value = CDate(TextBox4.Value)
Range("W3").Value = CDate(TextBox4.Value)
End If
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A6:R" & Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("W1:W3"), Unique:=False
Application.ScreenUpdating = True
End Sub


yardımcı olurmusunuz lütfen saygılarımla.(sanırım bu ama.....
If TextBox4.Value = "*" Then
az bilince malesef olmuyor=

 

[Orion1]

Tetxbox2'ye veya textbox1'e * karakterini girerseniz tüm sayfayı gösterir.