Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 10-08-2017, 11:14   #1
mrtergi66
Altın Üye
 
Giriş: 25/12/2014
Şehir: amasya
Mesaj: 19
Excel Vers. ve Dili:
2007
Lightbulb harfe göre arama yapmak



excel sayfasında rapor bölümünde bulunan yere a yazınca a ile ilgili kaç kişi varsa çıkmasını istiyorum..

yada ali yazınca ali ile ilgili kişilerin aşagıya dogru çıkmasını istiyorum..
mrtergi66 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 11:25   #2
mrtergi66
Altın Üye
 
Giriş: 25/12/2014
Şehir: amasya
Mesaj: 19
Excel Vers. ve Dili:
2007
Lightbulb harfe göre arama

user form üzerinden aktif arama yapmam gerekiyor. yani Herhangi bir harfe bastığım zaman Veri Sayfasındaki bilgileri süzüp seçimime sunmasını istıyorum..

basit telefon rehberi exceli gibi arama yapmak istiyorum.

eklentideki excelde bulunan arama sayfasının üstünde arama bölümüne

a yazdıgımda personel sayfasında bulunan a içerikli kelimelerin seçilmesini istiyorum

a yazdık

ali altay
ali ay
ahmet erdal
akın malatyalı

yada ali yazdık

ali altay
ali ay
ali sayın
ali malik
ali dümen
ali bilmem ne

gibi arama yapmak istiyorum.

ve

TARİH ŞANTİYE PERSONEL GÖREVİ
gibi secenekler var excelde bunların hepsınde arama yapmak istiyorum telefon rehberi gibi yardımcı olurmusunuz.
Eklenmiş Dosyalar
Dosya Türü: xlsm MONTAJ_PLANI_2017.xlsm (121.9 KB, 5 Görüntülenme)
mrtergi66 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 20:47   #3
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 584
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Belirttiğiniz şekilde hızlı sonuç almak için excel hücresine yazmak yerine, excel hücresine yerleştirilmiş bir textboxa yazmak ve "Textbox_Change" olayı içine arama kodlarını yazmak gerekir diye düşünüyorum. Bunun sebebi; textbox change olayı bir harf yazılır yazılmaz gerçekleşirken, hücrelerin change olayı ancak yazma işlemi sonrası enter veya tab tuşuna tıklayınca gerçekleşir.
__________________
Özel mesaj sistemini devre dışı bıraktım.

Bu mesaj en son " 10-08-2017 " tarihinde saat 20:50 itibariyle antonio tarafından düzenlenmiştir.... Neden: ifadeye açıklık kazandırmak için düzenlendi.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 20:58   #4
ADER_34
 
Giriş: 02/06/2015
Şehir: İstanbul
Mesaj: 205
Excel Vers. ve Dili:
2010
Varsayılan

Merhaba ben bu kodları kullanıyorum sizde çalışma sayfanıza texbox kutusu ekleyip bu kodları kullanabilirsiniz kolay gelsin

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

End Sub
ADER_34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-08-2017, 08:09   #5
mrtergi66
Altın Üye
 
Giriş: 25/12/2014
Şehir: amasya
Mesaj: 19
Excel Vers. ve Dili:
2007
Varsayılan

Alıntı:
ader_34 tarafından gönderildi Mesajı Görüntüle
merhaba ben bu kodları kullanıyorum sizde çalışma sayfanıza texbox kutusu ekleyip bu kodları kullanabilirsiniz kolay gelsin

private sub textbox1_change()
dim metin1 as string, fc2 as range
on error resume next
metin1 = textbox1.value
set fc2 = range("a2:e65000").find(what:=metin1)
application.goto reference:=range(fc2.address), _
scroll:=false
selection.autofilter field:=4, criteria1:="*" & textbox1.value & "*"
ıf metin1 = "" then
selection.autofilter field:=4
end ıf

end sub


denedim ama olamadı
mrtergi66 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-08-2017, 10:07   #6
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 584
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Örnek dosyanız ektedir.
Eklenmiş Dosyalar
Dosya Türü: xlsm MONTAJ_PLANI_2017-antonio.xlsm (133.9 KB, 4 Görüntülenme)
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 03:06


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Kamera- Çorlu Fiber- Çorlu Araç Takip-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden