[Çözüldü] Harf sırası

[voleclub]

Selam bana yardımcı olabilirmisiniz ekte dosya gönderdim

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Dosyanız ektedir.
2nci sorunuz için ben excel vba da böyle bir nesne olduğunu sanmıyorum.
Ama textbox ve listbox yardımı ile bir şeyler yaptım.:cool:

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

çok teşekkür ederim sağolun

[voleclub]

Daha önce yaptığımız bu a sutunundaki liste  calışıyor.Ancak ben listeyi c sutuna koydum makronun a1 olan yerini c1 yaptım ama çalışmıyor.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Problem yok.Çalışıyor.
Sanırım siz tasarım modundan çıkmamışsınız.
Hani VBA barında Üçgen var ya onu pasif hale getirmelisiniz.O zman tasarım modundan çıkar.
Tasarım modunda da iken hiç bir makroyu çalıştıramazsınız.

[voleclub]

benim bir öğrenci listem var isimler c de ona uydurmaya calışıyorum.Ama hep a sutunu görüyor ve a sutun da o ismi bulamadığı için hep toplanıyor.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

C kolunu 3ncü alanda yani Field:=3 te
1nci alan filterin başladığı ilk alandır.
Dosyanız ektedir.

Kod: [Seç]

Private Sub TextBox1_Change()
Range("c1").AutoFilter field:=[color=blue][b]3[/b][/color], Criteria1:=TextBox1.Text & "*"
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

teşekkürler,ellerinize sağlık

[voleclub]

Abi bu konuyu biraz daha değişik yapabilrimiyiz.Yani c,d ve e sutunlarında arayabilirmiyiz.Yani mustafa yazınca hem c,hem d,hemde e sutunundaki mustafaları bulabilrimi

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Bunun için süz sayfası yaptım.
Yalnı d ve e sütunlarında isim yok.
Dosyanız ektedir.

Kod: [Seç]

Private Sub TextBox1_Change()
Dim sh As Worksheet, var As Boolean
Dim conn As Object, rs As Object
TextBox1.Text = UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ"))
Range("A2:AH65536").ClearContents
Set sh = Sheets("ÖĞRENCİ BİLGİLERİ")
If sh.AutoFilterMode = True Then
    var = True
    sh.Range("A1").AutoFilter
End If
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=Microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no;imex=1"";"
rs.Open "select * from [ÖĞRENCİ BİLGİLERİ$A2:AH65536] where F3 like '" & _
TextBox1.Text & "%' or F4 like '" & TextBox1.Text & "%' or F5 like '" & _
TextBox1.Text & "%';", conn, 1, 1
If rs.RecordCount > 0 Then Range("A2").CopyFromRecordset rs
rs.Close: conn.Close
Set rs = Nothing
Set conn = Nothing
Set rs = Nothing
If var = True Then sh.Range("A1").AutoFilter
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

bu dosyada nasıl uygulanır

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Dosyanız ektedir.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

teşekkürler

[Orion1]

Rica ederim.

[voleclub]

Selam Abi bunu süz kullanmadan nasıl bu tabloda yapabiliriz

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]