ipucu butonu yaratıp ilgili verileri sıralamak

[burj_11]

Merhabalar,

18.000 data nın oldugu bir dosya var. bu dosyada şirket unvanları üzerinden arama yapılıyor ama şirket unvanları hep doğru girilmemiş. örnek olarak "sarıyıldız" kelimesini girdiğimde sarıyıldız ltd., sarıyıldız anonim şti. sıralanmasını istıorum.

ekte dosya yollayamıyorum. bir türlü dosya yı yukleyemedım.

 

[burj_11]

Herkese merhabalar,

ekte dosyayı yolluyorum. İsteğimi tekrar anlatayım:

bir arama motoru olmalı ve bir ipucu mesela "11.05.1988" tarihi ya da "sarıyıldız " gibi kelimeler yazılmalı ve bu yazılan kelimenin var oldugu tum satırlar alt alta sıralanmalı.

Umarım biri cevaplar,

Herkese iyi çalışmalar,

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub TextBox1_Change()
On Error Resume Next
If TextBox1 = "" Then
Selection.AutoFilter FIELD:=4
Exit Sub: End If
Selection.AutoFilter FIELD:=4, Criteria1:=CDate(TextBox1.Value)
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
If TextBox2 = "" Then
Selection.AutoFilter FIELD:=3
Exit Sub: End If
Selection.AutoFilter FIELD:=3, Criteria1:="*" & TextBox2 & "*"
End Sub
Private Sub TextBox3_Change()
On Error Resume Next
If TextBox3 = "" Then
Selection.AutoFilter FIELD:=2
Exit Sub: End If
Selection.AutoFilter FIELD:=2, Criteria1:="*" & TextBox3 & "*"
End Sub

 

[burj_11]

Ziya Bey,

çok tesekkurler, çok işime yarayacak bu kod.

dosyadakı text box ları nasıl yarattınız?

 

[N.Ziya Hiçdurmaz]

Görünüm,Araç çubukları,Denetim araç kutusundan oluşturabilirsiniz

 

[burj_11]

Herkese Gunaydın,

yukarda bir textboxla giriş yaparak sorun çözüldü ama şimdi takıldığım şöyle bir nokta var:

Kirası 3 ile 5 arasında olanların listelenmesini istersem nasıl yapabilirim?

ekte örnek dosya var.

 

[N.Ziya Hiçdurmaz]

Yanıt

Özel süz ile deneyiniz

 

[burj_11]

Ziya Bey,

ben ingilizce excel kullanıyorum, sanırsam advanced filter dan yapıyorum bu işlemi. advanced filter da 2. satırda bir kriter istiyor . oraya mı yazmalıyım aralığı?

sizin gosterdiğiniz gibi bir aralık çıkmıyor.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub RAPORAL()
Dim SV, SR As Worksheet
Dim SAT As Integer
On Error Resume Next
Set SV = Sheets("Veri")
Set SR = Sheets("Rapor")
SR.[A2:B1000] = ""
S = 1
For SAT = 2 To SV.Cells(65536, "B").End(xlUp).Row
If SV.Cells(SAT, "B").Value >= SV.Range("C1").Value And _
SV.Cells(SAT, "B").Value <= SV.Range("D1").Value Then
S = S + 1
Range(SV.Cells(SAT, "A"), SV.Cells(SAT, "B")).Copy Range(SR.Cells(S, "A"), SR.Cells(S, "B"))
End If
Next
MsgBox "İşlem Tamam", vbInformation
End Sub

 

[burj_11]

Ziya Bey,

çok sağolun. yazdığınız kodu kendı örneğimde kullanabildim.
son bir noktada daha sorum var. istediğim aralıktaki kiraları gorebiliyorum ama bazen mukerrer kayıtlar olabılıyor. bu mukerrer kayıtlardan kurtulmak ve sadece en son tarihli kirayı gorebilmek için ne yapabilirim.

numaralar benim mükerrer kayıtları bulabileceğim tek nokta.

örnek dosyayı ekte yolluyorum umarım çözülebilen bir noktadır.

şimdiden teşekkur ederim.

 

[burj_11]

Arkadaşlar yardım edecek biri var mı?