• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

arama butonu ARA-BUL

mekist' Alıntı:
Evren Bey,
dosyalar sanırım silinmiş, hücrede bulunan kelimelerin bir kısmınıda aratailceğimiz ve sayfa seçimli veya tümünü seçebildiğimiz dosyayı tekrar ekleyebilir misiniz.
Genişletmek için tıkla ...

Mesajından bir önceki mesajda link var oraya tıkla. Orada 2 farklı versiyonu var senin aradığın sonu 59 la biten.
 
Yeni üyeyim

Yeni üyeyim ve burda yayınlana hiç bir dosyayı indiremiyorum neden acaba?
 
ARA_BUL2.xls

ARA_BUL2.xls dosyasını indiremiyorum. Excell de arabul butonu yaparak arama yaptırmanın yöntemini detaylı anlatabilirmisiniz?
 
Mesaj #49 da ARA BUL 59 Dosyası Mevcut
 
Black Lord kardeşim neden bu dosyayı ben bulamıyorum mesaj Mesaj #49 diye de arama butonuyla arattım bulamadım bu Mesaj #49 a nasıl gideceğim hiç bir türlü bulamıyorum baştan sona kadar tüm linkleri kontrol ettim bana burdan linkini yazarsanız sevinirim.
 
conquistatore' Alıntı:
Black Lord kardeşim neden bu dosyayı ben bulamıyorum mesaj Mesaj #49 diye de arama butonuyla arattım bulamadım bu Mesaj #49 a nasıl gideceğim hiç bir türlü bulamıyorum baştan sona kadar tüm linkleri kontrol ettim bana burdan linkini yazarsanız sevinirim.
Genişletmek için tıkla ...

Bu başlıktaki Mesaj #49
Ben elimde olanı ekleyeyim. Çalışma Evren beyindir.
 

Ekli dosyalar

Çok teşekkür ederim çalışan bir link bu sitede bulmama yardımcı olduğunuz için... Çok faydalı oldu...
 
Syn Evren Gizlen'e teşekür ederim.Güzel bir çalışma olmuş.Çok işime yaradı.
 
Iyi çalışmalar arkadaşlar
ekdeki oluşturmuş oldugum tabloda 26 tane sekme var ben ana sayfa die oluşturdugum pencerede arama yaptıgım zaman bütün sekmelerdeki listelerde olan malzemeyi bana göstersin tüm sekme ve tüm sekmelerdeki hücrelerde,
yani ana sayfa sekmesinde arama yaptıgım zaman diger sekmeleride arasın ve malzemeyi göstersin
örnek: Anasayfa sekmesinde arama motorunda speed sensör dedigim zaman 1-26 e kadar diger tüm sekmelerin içeriginide arasın
ekledigim çalışmamda yapacagım
teşekkürler
 
tetik_23' Alıntı:
Iyi çalışmalar arkadaşlar
ekdeki oluşturmuş oldugum tabloda 26 tane sekme var ben ana sayfa die oluşturdugum pencerede arama yaptıgım zaman bütün sekmelerdeki listelerde olan malzemeyi bana göstersin tüm sekme ve tüm sekmelerdeki hücrelerde,
yani ana sayfa sekmesinde arama yaptıgım zaman diger sekmeleride arasın ve malzemeyi göstersin
örnek: Anasayfa sekmesinde arama motorunda speed sensör dedigim zaman 1-26 e kadar diger tüm sekmelerin içeriginide arasın
ekledigim çalışmamda yapacagım
teşekkürler
Genişletmek için tıkla ...

Evren GİZLEN'in bir önceki sayfada ara-bul-5 isimli dosyası var.Ondan faydalanabilrsiniz.Çünkü bütün sekmelerde arıyor.
 
Son düzenleme:
tetik_23' Alıntı:
Iyi çalışmalar arkadaşlar
ekdeki oluşturmuş oldugum tabloda 26 tane sekme var ben ana sayfa die oluşturdugum pencerede arama yaptıgım zaman bütün sekmelerdeki listelerde olan malzemeyi bana göstersin tüm sekme ve tüm sekmelerdeki hücrelerde,
yani ana sayfa sekmesinde arama yaptıgım zaman diger sekmeleride arasın ve malzemeyi göstersin
örnek: Anasayfa sekmesinde arama motorunda speed sensör dedigim zaman 1-26 e kadar diger tüm sekmelerin içeriginide arasın
ekledigim çalışmamda yapacagım
teşekkürler
Genişletmek için tıkla ...
Örnek dosyanızı ekleyerek dosya üzerinde gerekli açıklamaları yapınız.:cool:
 
Değerli hocamız Evren Bey..! yeni konu açmıyorum. Ekte kullandığım ara-bul örneği tek sütunda sondan başa doğru son satırdan (son güncel veriden) başlayarak arama yapıyor. Bu ilaveyi zamanın birinde sizden almıştım..Ancak; o zaman size ifade etmediğim bir noksanlık varr..
cümlenin tamamını yazınca ancak buluyor. Örneğin iki kelimelik bir cümlenin tek kelimesini yazarsan bulamıyor. Bunu düzeltirsek daha kullanışlı olacak..
 

Ekli dosyalar

Mrb. arkadaşlar,Syn Evren GİZLEN'in yaptığı eserde (Arabul 5_59),istediğimiz 2 sayfayı hariç tutamazmıyız.Daha detaylı anlatayım.Benim 40-50 sayfam var.Ama içlerinde 2 sayfayı("ANA SAYFA" ve "VERİ") hiç aramasın istiyorum.Hepsini seç tik'ini işaretlediğim zaman diğer bütün sayfalarda arasın.O 2 sayfada aramasın vede listelemede göstermesin.Sayfaları tek tek seçsem 40-50 sayfayı seçmek zaman alır.
 
Syn Evren GİZLEN'in userform kodlarının olduğu yere ............................................................................................................................................If Worksheets(syf).Name = "Sayfa1" Or Worksheets(syf).Name = "VERİ" Or Worksheets(syf).Name = "KOPYA" Then GoTo ATLA
.........................................................................................................................
........................................................................................................................
ATLA:
..........................................................................................................
..........................................................................................................
kodlarını ekledim.Veri ve KOPYA sayfalaroda arama yapmıyor.
 
Son düzenleme:
herkese merhaba,

çalışma çok faydalı çok teşekür ederiz,

fakat ben bu verilen dosya üzerinde değişiklik yapamıyorum,
mesela arama ekranındaki bilgiler; evren gizlen vs.
(önceki mesajlarda belirtilenleri uygulamaya çalıştım fakat bahsedilen şeyler bende görünmüyor.

excel 2007 kullanıyorum
saygılar
 
Mrb,Sayfanın kod kısmını açın.Sol tarafataki UsrForm1 üzerine tıklayın.F4 tuşuna basın.Sol taraftaki pencere açılacak.Orada Caption yazan yere istediğinizi yazın.Örneğin;BUL,ARA BUL vs).Değişecektir.
 
Merhaba Arkadaşlar,

b2 hücresinden başlayacak şekilde arama yaptırmak istiyorum aşağıdaki kodu buna göre nasıl ayarlarız.

Private Sub textbox2_change()
For z = 1 To 3 'Sayfa sayısı kadar
For i = 2 To 200 'satır sayısı kadar
If (TextBox2.Text) = Sheets(z).Cells(i, 1) Then
TextBox1.Text = Sheets(z).Cells(i, 1).Offset(0, 1)
TextBox3.Text = Sheets(z).Cells(i, 1).Offset(0, 2)
TextBox4.Text = Sheets(z).Cells(i, 1).Offset(0, 3)
TextBox5.Text = Sheets(z).Cells(i, 1).Offset(0, 4)
TextBox6.Text = Sheets(z).Cells(i, 1).Offset(0, 5)
TextBox7.Text = Sheets(z).Cells(i, 1).Offset(0, 6)
TextBox8.Text = Sheets(z).Cells(i, 1).Offset(0, 7)
TextBox9.Text = Sheets(z).Cells(i, 1).Offset(0, 8)
TextBox10.Text = Sheets(z).Cells(i, 1).Offset(0, 9)
TextBox11.Text = Sheets(z).Cells(i, 1).Offset(0, 10)
TextBox12.Text = Sheets(z).Cells(i, 1).Offset(0, 11)
TextBox13.Text = Sheets(z).Cells(i, 1).Offset(0, 12)
TextBox14.Text = Sheets(z).Cells(i, 1).Offset(0, 13)
TextBox15.Text = Sheets(z).Cells(i, 1).Offset(0, 14)
TextBox16.Text = Sheets(z).Cells(i, 1).Offset(0, 15)

End If
Next i
Next z
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst