Merhaba.
Kendime excelde bir sözlük yapmaya başladım.
A sütununda ingilizce kelime ya da cümleler, C sütununda ise Türkçe anlamları ya da açıklamalar mevcut.
Excel sayfası içersine bir metin kutusu koydum bu sayede ctrl+f kullanmadan bu kutuya kelimeyi yazmaya başladığımda sütün içersindeki hücrelerde geçen o kelimeler süzülerek karşıma çıkıyor.
Ancak iki sorunum var.
1 - Metin kutusunu ekranın sağ alt köşesine koyuyorum, yazarken ise bu metin kutusu aşağı yukarı haraket ediyor ve sayfayı yukarı aşağı kaydırınca bu metin kutusu sabit kalmıyor. Sayfayı kaydırdıktan sonra arama yapmak için en yukarıya çıkıp metin kutusunu bulup arama yapmam gerekiyor.
İstediğim şey metin kutusunun sayfayı kaydırırken ya da arama yaparken haraket etmemesi ve aynı yerde sabit kalması.
2 - Filtreleme (süzme) şeklinde arama yaparken aşağıda yazdığım kod ile ancak tek bir sütunda arama yapılıyor, ben ise hem A hem de C sütununda arama yapmasını istiyorum bu mümkün müdür?
3 - Böyle bir sözlüğü bir form olarak hazırlama şansım var mıdır? Varsa sorularımın devamı gelecek demektir
)
Şimdiden çok teşekkür ediyorum.
Kendime excelde bir sözlük yapmaya başladım.
A sütununda ingilizce kelime ya da cümleler, C sütununda ise Türkçe anlamları ya da açıklamalar mevcut.
Excel sayfası içersine bir metin kutusu koydum bu sayede ctrl+f kullanmadan bu kutuya kelimeyi yazmaya başladığımda sütün içersindeki hücrelerde geçen o kelimeler süzülerek karşıma çıkıyor.
Ancak iki sorunum var.
1 - Metin kutusunu ekranın sağ alt köşesine koyuyorum, yazarken ise bu metin kutusu aşağı yukarı haraket ediyor ve sayfayı yukarı aşağı kaydırınca bu metin kutusu sabit kalmıyor. Sayfayı kaydırdıktan sonra arama yapmak için en yukarıya çıkıp metin kutusunu bulup arama yapmam gerekiyor.
İstediğim şey metin kutusunun sayfayı kaydırırken ya da arama yaparken haraket etmemesi ve aynı yerde sabit kalması.
2 - Filtreleme (süzme) şeklinde arama yaparken aşağıda yazdığım kod ile ancak tek bir sütunda arama yapılıyor, ben ise hem A hem de C sütununda arama yapmasını istiyorum bu mümkün müdür?
3 - Böyle bir sözlüğü bir form olarak hazırlama şansım var mıdır? Varsa sorularımın devamı gelecek demektir
)Şimdiden çok teşekkür ediyorum.
Kod:
Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A2:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub
Son düzenleme:
