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: 21
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: 21
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, 14 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: 985
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.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.

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: 214
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: 21
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: 985
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, 23 Görüntülenme)
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-08-2017, 08:18   #7
mrtergi66
Altın Üye
 
Giriş: 25/12/2014
Şehir: amasya
Mesaj: 21
Excel Vers. ve Dili:
2007
Varsayılan

antonio ellerine saglık ..
fakat yardım istediğim konu bu degildi.
sorunum su textboxu koydugunuz yerlerde arama yapıp personeli seçmem lazım
alt kısımda bilgi çıkması önemli degil yani excelde veri dogrulama deyip liste seçip aşagı açılır pencere yapıyoruz ya...
ben bu açılır pencere yerine personel sayfasından verileri çekmek suretiyle
yazdıgım zaman direk açılır buton seklinde personel seçmemdi.
mrtergi66 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-09-2017, 13:05   #8
mrtergi66
Altın Üye
 
Giriş: 25/12/2014
Şehir: amasya
Mesaj: 21
Excel Vers. ve Dili:
2007
Varsayılan harfe göre arama

Güncell
konuu
mrtergi66 Ç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 13:12


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- 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 Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden