• DİKKAT

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

google gibi aramada yardım

  • Konbuyu başlatan Konbuyu başlatan restep
  • Başlangıç tarihi Başlangıç tarihi
R

restep

Katılım
18 Ekim 2011
Mesajlar
23
Excel Vers. ve Dili
microsoft office excel 2007 türkçe
Herkese merhaba ,:yardim:
umarım bu mesajı doğru konu başlığından göndermişimdir.

önce eklediğim çalışmayla ilgili kısa bilgi vereyim; çalışma açıldığında karşınıza gelen fiyat listeleri sayfası , ''ana sayfa'' dır.(kontrol panelidir.) Bu sayfadaki (1 yedek parça,2 tesisat,3 yedek parça) butonlardan köprü marifetiyle, butonlardaki adlarla aynı adı taşıyan sayfalara geçiş yapılır. Geçiş yapılan sayfalardan ana sayfaya dönüşü yine o sayfanın sağ üst köşesindeki açık kapı resmi köprüsü sağlar.
Not: ''fiyat listeleri , 1 yedek parça , 2 tesisat , 3 yedek parça'' çalışmaları aynı sayfa içindedir.
Kısa bilgiden sonra asıl konuya gireyim.
İstediğim fiyat listeleri dışındaki 3 adet listede Google gibi arama butonlarının ayrı ayrı arama yapabilmesi; öğrendiğim bilgilerle ancak 1 tanesinde arama yaptırabiliyorum. Çalışmam tek sayfada ve farklı sütunlarda olduğundan bir türlü çözemedim.
Yardımlarınızı rica ederim.
Not : ekin ebatlarını kendi monitörüme göre uyarladım; sizde açıldığında belki tamda monitöre uygun görünmeyebilir.
 

Ekli dosyalar

Son düzenleme:
Ekli dosyayı inceleyiniz.
 

Ekli dosyalar

Çok teşekkür ederim. Hem ilginize hem de emeğinize..
arama yapacağım her üç listenin karşılık gelen sütünların başına textbox ekleyerek kodlamayı da yine her üç listenin karşılık gelen sütun harflerini eklemeyi unutmayıp yazmıştım.
sanırım filtrelemede hatam oldu ve filtelemedeki bilgim eksik.
Bu çalışma kitabını başka bir çalışma kitabına taşıdığımda filtreleme ve texbox aktifliğini kaybedebiliyor.
Sayın Turist bu işin nasıl yapıldığına dair kısa bilgi geçrseniz sevinirim.Tekrar teşekkür ederim.
 
restep' Alıntı:
Çok teşekkür ederim. Hem ilginize hem de emeğinize..
arama yapacağım her üç listenin karşılık gelen sütünların başına textbox ekleyerek kodlamayı da yine her üç listenin karşılık gelen sütun harflerini eklemeyi unutmayıp yazmıştım.
sanırım filtrelemede hatam oldu ve filtelemedeki bilgim eksik.
Bu çalışma kitabını başka bir çalışma kitabına taşıdığımda filtreleme ve texbox aktifliğini kaybedebiliyor.
Sayın Turist bu işin nasıl yapıldığına dair kısa bilgi geçrseniz sevinirim.Tekrar teşekkür ederim.
Genişletmek için tıkla ...

Dosyanızda aynı çalışma sayfasında bulunan Listelere 3 adet TextBox eklenmiştir.Bu TextBox'lara yazılan verilere göre Kod sayfanızda belirlenen şekilde arama yapılmaktadır.
Filtrelemeler bu kodlara göre otomatik olarak yapılır.
Önceki dosyanıza göre bazı değişiklikler yapılmıştır.(Eklidir)
Dosyanızı başka dosyalara kopyaladığınızda KOD'ları da kopyalamanız gerekir. Aksi halde arama işlemi çalışmaz.
Kopyaladığınız sayfanın aranacak sütunlarına göre de kodlarda değişiklik yapılması gerekir.
Bilginize.
 

Ekli dosyalar

turist' Alıntı:
Dosyanızda aynı çalışma sayfasında bulunan Listelere 3 adet TextBox eklenmiştir.Bu TextBox'lara yazılan verilere göre Kod sayfanızda belirlenen şekilde arama yapılmaktadır.
Filtrelemeler bu kodlara göre otomatik olarak yapılır.
Önceki dosyanıza göre bazı değişiklikler yapılmıştır.(Eklidir)
Dosyanızı başka dosyalara kopyaladığınızda KOD'ları da kopyalamanız gerekir. Aksi halde arama işlemi çalışmaz.
Kopyaladığınız sayfanın aranacak sütunlarına göre de kodlarda değişiklik yapılması gerekir.
Bilginize.
Genişletmek için tıkla ...

Sayın Turist,
emeğinize çok teşekkür ederim.
sizin en son yapmış olduğunuz değişiklikte var olan ürünleri her üç sayfada da arayıp bulabiyorum.
Fakat her ne oluyorsa gerçek ürünlerimin sadece yazılarını eski kitabımdan sizin değişiklik yaptığınız kitaba kopyala yapıştır yaptıktan sonra ilk sayfada arama yapılıyor son iki sayfada arama yapılamıyor.
biliyorum başınızı ağrıttım belkide yoğunsunuz ama ne olur rica ediyorum istediğim gibi her 3 sayfada (benim kopyalamam (sadece ürünle alakalı yazılar)) sonunda nasıl arama yapılabilir.
NOT: İşlem yapılmış haliyle eki lütfen eki inceleyin
 

Ekli dosyalar

restep' Alıntı:
Sayın Turist,
emeğinize çok teşekkür ederim.
sizin en son yapmış olduğunuz değişiklikte var olan ürünleri her üç sayfada da arayıp bulabiyorum.
Fakat her ne oluyorsa gerçek ürünlerimin sadece yazılarını eski kitabımdan sizin değişiklik yaptığınız kitaba kopyala yapıştır yaptıktan sonra ilk sayfada arama yapılıyor son iki sayfada arama yapılamıyor.
biliyorum başınızı ağrıttım belkide yoğunsunuz ama ne olur rica ediyorum istediğim gibi her 3 sayfada (benim kopyalamam (sadece ürünle alakalı yazılar)) sonunda nasıl arama yapılabilir.
NOT: İşlem yapılmış haliyle eki lütfen eki inceleyin
Genişletmek için tıkla ...

Sayfanızın KOD bölümündeki kodları şu şekilde değiştirin.
Sadece kırmızılı bölümleri değiştirmeniz yeterli.

Kod: 
Private Sub TextBox1_Change()
On Error Resume Next
TextBox2 = ""
TextBox3 = ""
SONUC2 = TextBox1.Value
Set FC2 = Range("I5:I65500").Find(What:=SONUC2)
Application.Goto Reference:=Range("I6"), _
   Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
TextBox1 = ""
TextBox3 = ""
SONUC2 = TextBox2.Value
Set FC2 = Range("P5:P65500").Find(What:=SONUC2)
Application.Goto Reference:=Range("P6"), _
   Scroll:=False
Selection.AutoFilter Field:=[COLOR="Red"][B][SIZE="5"]10[/SIZE][/B][/COLOR], Criteria1:="*" & TextBox2.Value & "*"
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
TextBox1 = ""
TextBox2 = ""
SONUC2 = TextBox3.Value
Set FC2 = Range("W5:W65500").Find(What:=SONUC2)
Application.Goto Reference:=Range("W6"), _
   Scroll:=False
Selection.AutoFilter Field:=[COLOR="red"][B][SIZE="5"]17[/SIZE][/B][/COLOR], Criteria1:="*" & TextBox3.Value & "*"
End Sub
 
turist' Alıntı:
Sayfanızın KOD bölümündeki kodları şu şekilde değiştirin.
Sadece kırmızılı bölümleri değiştirmeniz yeterli.

Kod: 
Private Sub TextBox1_Change()
On Error Resume Next
TextBox2 = ""
TextBox3 = ""
SONUC2 = TextBox1.Value
Set FC2 = Range("I5:I65500").Find(What:=SONUC2)
Application.Goto Reference:=Range("I6"), _
   Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
TextBox1 = ""
TextBox3 = ""
SONUC2 = TextBox2.Value
Set FC2 = Range("P5:P65500").Find(What:=SONUC2)
Application.Goto Reference:=Range("P6"), _
   Scroll:=False
Selection.AutoFilter Field:=[COLOR="Red"][B][SIZE="5"]10[/SIZE][/B][/COLOR], Criteria1:="*" & TextBox2.Value & "*"
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
TextBox1 = ""
TextBox2 = ""
SONUC2 = TextBox3.Value
Set FC2 = Range("W5:W65500").Find(What:=SONUC2)
Application.Goto Reference:=Range("W6"), _
   Scroll:=False
Selection.AutoFilter Field:=[COLOR="red"][B][SIZE="5"]17[/SIZE][/B][/COLOR], Criteria1:="*" & TextBox3.Value & "*"
End Sub
Genişletmek için tıkla ...

Teşekkür ederim.
kodu değiştirdim. Şimdi arama yapıyor.
çok oldu ama, yalnız ufak bir detay kaldı ilk sayfa da arama yaptıktan ve boş bir yere tıkladıktan sonra filtre butoncuğu eşittir de kalıp 84. satırdan sonrasını göstermiyor.
vaktinizden kalan boşluğunuz varsa ilgilenirseniz çok makbule geçmiş olucak.
şimdiden teşekkür ederim.
not: ekin en son halidir.
 

Ekli dosyalar

restep' Alıntı:
Teşekkür ederim.
kodu değiştirdim. Şimdi arama yapıyor.
çok oldu ama, yalnız ufak bir detay kaldı ilk sayfa da arama yaptıktan ve boş bir yere tıkladıktan sonra filtre butoncuğu eşittir de kalıp 84. satırdan sonrasını göstermiyor.
vaktinizden kalan boşluğunuz varsa ilgilenirseniz çok makbule geçmiş olucak.
şimdiden teşekkür ederim.
not: ekin en son halidir.
Genişletmek için tıkla ...

Textbox'larda arama yapmak için bir veri girdiğinizde Kodlar otomatik olarak o ifadenin geçtiği satırlara göre SÜZME işlemi yapar.
Yani, sizin verilerinizin bulunduğu listede ilgisiz ve boş satırları gizler.
Listenizden aşağıdaki satırları gösterebilir.
Bu nedenle ; Textbox da arama işlemini yaptıktan sonra ve istediğiniz bilgileri elde ettikten sonra, başka bir sayfayaya gitmek veya başka bir işlem yapmak için Textbox'daki ifadeyi silmeniz gerekir.
KOD'lar zaten bu işlemi otomatik yapmaktadır.Ama, aynı sayfada iseniz (Örnek Liste 1) ve sadece bu sayfada başka bir işlem yapmak isterseniz; Textbox'daki ifadeyi silmeniz gerekir.
 
restep' Alıntı:
teşekkür ederim.
Kodu değiştirdim. şimdi arama yapıyor.
çok oldu ama, yalnız ufak bir detay kaldı ilk sayfa da arama yaptıktan ve boş bir yere tıkladıktan sonra filtre butoncuğu eşittir de kalıp 84. Satırdan sonrasını göstermiyor.
Vaktinizden kalan boşluğunuz varsa ilgilenirseniz çok makbule geçmiş olucak.
şimdiden teşekkür ederim.
Not: Ekin en son halidir.
Genişletmek için tıkla ...

yanlış eki göndermişim.
Doğrusunu gönderiyorum
 

Ekli dosyalar

restep' Alıntı:
yanlış eki göndermişim.
Doğrusunu gönderiyorum
Genişletmek için tıkla ...

Eski dosyanız bana biraz karışık geldi.
Alternatif olarak yeni şeklini ekliyorum.
Sorunsuz şekilde çalışıyor, deneyiniz.
 

Ekli dosyalar

Son düzenleme:
turist' Alıntı:
Eski dosyanız bana biraz karışık geldi.
Alternatif olarak yeni şeklini ekliyorum.
Sorunsuz şekilde çalışıyor, deneyiniz.
Genişletmek için tıkla ...


İlginize , alakanıza , çok çok teşekkür ederim.
yardımlarınız beni memnun etti
2011 yılında excel in '' e '' sini bilmezken başladığım yolculukta ; yapmak istediğim şuydu elimde kimi bu siteden uyarladığım kimi de uyarladıklarımdan öğrendiklerimle naçizane kendi çalışmalarımla yapmış olduğum 6 kitabı tek kitapta birleştirmekti. düşündüğüm oldu fakat bilgisayar fazla kasmaya başladı ne yapabilirim diye ararken kitaplardaki ayrı sayfaları tek sayfa içinde satırlara ve sütunlara yaymayı düşündüm. böylece bilgisayar kendini kasmaktan kurtuldu.
Ancak bu seferde bildiğiniz üzre arama da sorunlar çıktı.
eski haliyle bırakmış olsam en son eklediğiniz çalışma gibi elimde bir çalışma var
size bu çalışmamla ilgili ekte de bir örnek gönderdim. Görüşlerinizi bildiriniz lütfen
her şeye rağmen sizin görüşlerininiz benim için önemli hale geldi.
bu yolculukta sizler gibi ''üstad'' ların burada varlığı bizleri mutlu ediyor.
her şey için teşekkürler. Sayın Turist kalın sağlıcakla
 

Ekli dosyalar

restep' Alıntı:
İlginize , alakanıza , çok çok teşekkür ederim.
yardımlarınız beni memnun etti
2011 yılında excel in '' e '' sini bilmezken başladığım yolculukta ; yapmak istediğim şuydu elimde kimi bu siteden uyarladığım kimi de uyarladıklarımdan öğrendiklerimle naçizane kendi çalışmalarımla yapmış olduğum 6 kitabı tek kitapta birleştirmekti. düşündüğüm oldu fakat bilgisayar fazla kasmaya başladı ne yapabilirim diye ararken kitaplardaki ayrı sayfaları tek sayfa içinde satırlara ve sütunlara yaymayı düşündüm. böylece bilgisayar kendini kasmaktan kurtuldu.
Ancak bu seferde bildiğiniz üzre arama da sorunlar çıktı.
eski haliyle bırakmış olsam en son eklediğiniz çalışma gibi elimde bir çalışma var
size bu çalışmamla ilgili ekte de bir örnek gönderdim. Görüşlerinizi bildiriniz lütfen
her şeye rağmen sizin görüşlerininiz benim için önemli hale geldi.
bu yolculukta sizler gibi ''üstad'' ların burada varlığı bizleri mutlu ediyor.
her şey için teşekkürler. Sayın Turist kalın sağlıcakla
Genişletmek için tıkla ...

Güzel ve nazik görüşleriniz için teşekkür ederim.
Dosyanız sadece verilerden oluşuyorsa, bilgi girip bu bilgileri arama ile bulmakta kullanıyorsanız; bence doğru hazırlanmış.
Tabii ki, bundan başka birçok uygulama yapmak da mümkün, siz yeterli görüyorsanız kullanmaya devam edebilirsiniz.
Eğer bu dosya işlevsel ve başka verilerle ve formüllerle ilişkili ise , o takdirde diğer dosyaların yapısını da dikkate almak gerekebilir.

Tavsiyem; dosyanızda sayfanızda gerekli olmayan alanları renklendirmeyin, biçimlendirmeyin.Bu durum dosya boyutunun gereksiz büyümesine neden olur.
Görsel olmasından ziyade işlevsel olmasına dikkat etmelisiniz.
Mümkün olduğu kadar sade ve anlaşılır olmasına özen gösterin yeter.

İyi günlerde kullanınız.

Not: Ayrıca forumdaki şu konuyu da inceleyiniz.
http://www.excel.web.tr/f60/optimal-bir-excel-dosyasy-icin-altyn-kurallar-t74806.html
 
turist' Alıntı:
Güzel ve nazik görüşleriniz için teşekkür ederim.
Dosyanız sadece verilerden oluşuyorsa, bilgi girip bu bilgileri arama ile bulmakta kullanıyorsanız; bence doğru hazırlanmış.
Tabii ki, bundan başka birçok uygulama yapmak da mümkün, siz yeterli görüyorsanız kullanmaya devam edebilirsiniz.
Eğer bu dosya işlevsel ve başka verilerle ve formüllerle ilişkili ise , o takdirde diğer dosyaların yapısını da dikkate almak gerekebilir.

Tavsiyem; dosyanızda sayfanızda gerekli olmayan alanları renklendirmeyin, biçimlendirmeyin.Bu durum dosya boyutunun gereksiz büyümesine neden olur.
Görsel olmasından ziyade işlevsel olmasına dikkat etmelisiniz.
Mümkün olduğu kadar sade ve anlaşılır olmasına özen gösterin yeter.

İyi günlerde kullanınız.

Not: Ayrıca forumdaki şu konuyu da inceleyiniz.
http://www.excel.web.tr/f60/optimal-bir-excel-dosyasy-icin-altyn-kurallar-t74806.html
Genişletmek için tıkla ...

Değerli tavsiyelerinizi kulak ardı etmeyeceğimden emin olabilirsiniz.
hakkınızı helal etmeyi dilerken , sağlıklı huzurlu ve mutlu kalın;
hoşçakalın.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst