Tabloda istediğim herhangi bir veri için arama yapma

[onuraltintop]

Merhaba arkadaşlar excel tablomda yüzlerce müşteri listesi var, müşterilerin ad-soyad-şirket adı-telefon num. vs.. gibi bilgileri var ben arama yapmak istiyorum ama sadece ada veya şirket adına göre değil adamın adı aklımdadır ona göre veya şirket adı aklımdadır ona göre yapmak istiyorum. ( ctrl+f önermeyelim patron bunu istemiyor) yardımcı olursanız sevinirim şimdiden teşekkürler..

 

[Murat OSMA]

Aman patron kızmasın..

A1 hücresine bir veri girerek arama yapabilirsiniz...
Sayfanın kod kısmına yazıp bir deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim evn As Range
    If Target.Address(0, 0) = "A1" Then
        Set evn = Cells.Find(Target.Value)
            If Not evn Is Nothing Then
                evn.Select
            End If
    End If
    Set evn = Nothing
End Sub

Yeterli değildir ama şimdilik işinizi görür...

 

[onuraltintop]

İşte yeniyim patronu ilk isteğinde hayal kırıklığına uğratmayalım

Yazdığınız kodu yeni macro yaratıp yapıştırdım değişen hiçbirşey olmadı.

Bu arada ilginize teşekkürler..

 

[Murat OSMA]

İşe girerken Excel'in kitabını yazdım mı dediniz ?

Yeni bir makro oluşturun demedim ki, sayfanın kod kısmına yazın dedim.

VBE Penceresinin sol tarafında;
■ Sayfa1(Sayfa1)
■ Sayfa2(Sayfa2)
■ Sayfa3(Sayfa3)
■ ThisWorkbook
vardır.

Verdiğim kodları hangi sayfada arama yapacaksanız, o sayfayı çift tıklayın ve açılan boş beyaz alana yapıştırın...

 

[onuraltintop]

Aynen söylediğinizi yaptım ama değişen hiçbirşey olmadı sayfa eskisi gibi

Hiç excel bilgim yok sorsada yok derdim Cumadan beri birşeyler öğrenmeye çalışıyorum

 

[onuraltintop]

Murat bey listemin deneme kısmını eke koydum yazdığınız kodu içini atıp deneyebilirmisiniz ben beceremedim

 

[ermankoyluoglu]

Merhaba sadece hücrede yazan kelimenin bir kısmı yazıldığında da arama yapması için ne yapabiliriz?

 

[ermankoyluoglu]

İşe girerken Excel'in kitabını yazdım mı dediniz ?

Yeni bir makro oluşturun demedim ki, sayfanın kod kısmına yazın dedim.

VBE Penceresinin sol tarafında;
■ Sayfa1(Sayfa1)
■ Sayfa2(Sayfa2)
■ Sayfa3(Sayfa3)
■ ThisWorkbook
vardır.

Verdiğim kodları hangi sayfada arama yapacaksanız, o sayfayı çift tıklayın ve açılan boş beyaz alana yapıştırın...

Merhaba sadece hücrede yazan kelimenin bir kısmı yazıldığında da arama yapması için ne yapabiliriz?

 

[cems]

dosyaıyı farklı kaydet / dosya adı / alt seceneklerde makro kaydedilen dosya secin ve save edin. Dosya .xlsm olur ve Sayın Osma nın kodları çalışır

 

[ermankoyluoglu]

dosyaıyı farklı kaydet / dosya adı / alt seceneklerde makro kaydedilen dosya secin ve save edin. Dosya .xlsm olur ve Sayın Osma nın kodları çalışır

teşekkür ederim.

 

[ermankoyluoglu]

dosyaıyı farklı kaydet / dosya adı / alt seceneklerde makro kaydedilen dosya secin ve save edin. Dosya .xlsm olur ve Sayın Osma nın kodları çalışır

Kod çalışıyor. sıkıntı yok ama hücrede yazan metni tam yazdığında çalışıyor. benim isteğim mesela ad soyad var. sadece adı yazdığımızda da arama yapması

 

[Korhan Ayhan]

Bu satırı;

Set evn = Cells.Find(Target.Value)

Aşağıdaki gibi değiştirip deneyiniz..

Set evn = Set evn = Cells.Find(Target.Value, , , xlPart)

 

[ermankoyluoglu]

Bu satırı;

Set evn = Cells.Find(Target.Value)

Aşağıdaki gibi değiştirip deneyiniz..

Set evn = Set evn = Cells.Find(Target.Value, , , xlPart)

TEŞEKKÜRLER SORUNSUZ ÇALIŞTI.

 

[cems]

....