İsim Arama

[dexter_07]

Kusurabakmayın arkadaşlar aynı konuyu açmayım diye site içinde çok dolaştım ama anlayabildiğim bir sonuç göremedim.
Benim sorum şu; Elimde ad,soyad,tc.kimlik no,meslek,telefon başlıkları olan bir liste var ve ben bu listenin başına bir hücre eklemek istiyorum.Ad soyad bölümüne örneğin ''hücreye ''hasan'' yazdığımda hasan ile başlayan satırları sıralasın bana.
Örnek uygulamaları site içerisinde gördüm fakat nasıl yapıldığı anlatılmamış ya da ben anlamadım.
Bir formül mü yazılmalı ya da başka yolu var mı?
Birisi açıklarsa sevinirim çok acil.Yeni işe girsim ve böyle bir liste oluşturmam lazım.
Teşekkürler.
Not:Bana nasıl yapıldığını anlatırsanız sevinirim.Çünkü sitede aynı sorular sorulmuş fakat cevaplar nasıl yapıldığıyla ilgili değil.Sorun ilgili dosya üstünde çözülüp ekleniyor.Nasıl yapıldığı yok.

 

[Ömer]

Merhaba,

Konuyla ilgili bir örnek, linki incelemenizi tavsiye ederim.

Metin Kutusu (Textbox) ile bazı veri türlerini süzme
.

 

[dexter_07]

Saol dostum ama tablo yapılmış ama.O arama kutularının oraya nasıl eklendiğini yazarsan sevinirim.Kusurabakma ama çok iyi bilmiyorum excel'i.Nereye ne yazıyoruz bunu açıklarsan iyi olur.
Sende çok oluyorsun deme öğrenmeye çalışıyorum.
Teşekkür ederim.

 

[dexter_07]

Bu site anladığım kadarıyla hep bilenlere yönelik.Bütün başlıkları dolaştım hepsinde ya bir kod verilmiş ya da bir link verrilmiş.Sorunun cevabını biz yeni başlayanlar için anlatacak kimse yok.
Neyse yinede teşekkürler.

 

[Vedat Özer]

Selamlar,


Konunuzla alakalı dosya ekleyebilirmisiniz.

 

[dexter_07]

Soru işareti olan kısma isim yazdığım zaman o isme ait satırlar sıralansın istiyorum.Ama nasıl yapıldığını öğrenmek istiyorum.Yardımcı olursanız sevinirim.
Bir çok örnek gördüm sitede ama yapılmış ve nasıl yapıldığını anlamadım.

 

[Vedat Özer]

Selam,


Bende bildiğim kadarıyla anlatmaya çalışayım,


Adımları teker teker beraber yapalım,



* Dosyanızı açın,


* Menülerin altında Araç Çubuklarında Metin Kutusu isminde bir simge var üzerinde geldiğinde ismi yazar,

Ona tıklayıp kendimize göre ayarlalım uzunlugunu ve genişliğini,

Araç çubukları kısmıdan Tasarla İsmindeki İmleçe tıklayıp.



* Üzerinde sağ Tuş yapıp Kod Görünteleye tıklayalım,


* Karşımıza Vb Ekranı çıkacak otomatik olarak

Private Sub TextBox1_Change()
 
End Sub

Bu kodlar çıkacaktır,

* Ömer Abinin vermiş oldugu linkteki dosyadan aldıgım kod,

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("B7:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

Kodları yapıştıralım,


*

Range("B7:J65000")

Kod Hangi sütunda aralıgında sıralama yapacagınız,

B sütununda arama yapacagınız B yaptık eğerki c olsaydı C sütunun yazmamız lazımdı.

*

Selection.AutoFilter Field:=2

B sütunu oldugu için 2 C sütunu olsaydı 3 ... diye devam edebilir,

*

"*" & TextBox1.Value & "*"

Burdada hücrelerde başa ve sonun içinde istenilen değeri arar,


Benim bilgim bu kadar,


Dosya ekdedir.,

 

[dexter_07]

Kod'u dediğin yere yapıştırdım.Sonra metin kutusu ile nasıl ilişkilendireceğimizi bulamadım.Kod'u yapıştırıp çıkıyorum hiç bir değişiklik olmuyor.Dostum kusurabakma ama son bir kez daha yardımcı ol.Yoksa ben bu işi bırakayım.
Tekrar teşekkürler.

 

[Vedat Özer]

Selam,


Kendi yapmış oldugunuz dosyayı yükleyebilirmisiniz.

 

[dexter_07]

Bu işlem illa ki makro biçimiylemi oluyor başka yolu yokmu?

 

[Vedat Özer]

Selamlar,


Kodu dosyanıza ekledim,


Başka bir yol var ama biraz uzun,

En iyisi ve serisi bu .

 

[stackbyte]

bunları numara nasıl arattırabiliriz mesela barkod numarası isim değil de numara