Süzme İşi Hücrede Yapılsın

[harziyan]

Merhabalar,

Private Sub TextBox1_Change()
On Error Resume Next
METİN2 = TextBox1.Value
Set FC2 = Range("C2:al65000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value & "*"
If METİN2 = "" Then
Range("a1").Select
TextBox1.Activate
End If
End Sub

Bu kod benim hayatımın vazgeçilmezlerinden oldu. Textboxa yazılan kelime ilk harften itibaren süzülüyor. Merak ettiğim bu kodu herhangi bir hücre için (örneğin a1'e yazılan değere göre) aynı maksatla kullanabilir miyim?

 

[apparatebau]

Bu kodla ilgili bir örnek liste verebilirmisiniz nasıl bişey olduğunu görmemiz açısından.Kodu kullanarak örnek bir liste yapabilirmiyim diye uyguladım ama hata verdi.Amacım sizlerden birşeyler öğrenmek.Teşekkür ederim.

 

[harziyan]

Bu kodla ilgili bir örnek liste verebilirmisiniz nasıl bişey olduğunu görmemiz açısından.Kodu kullanarak örnek bir liste yapabilirmiyim diye uyguladım ama hata verdi.Amacım sizlerden birşeyler öğrenmek.Teşekkür ederim.

Buyrun örnek dosya...

 

[apparatebau]

Buyrun örnek dosya...

Üstad çok güzel bir çalışma eline sağlık.Banada çok fayda sağlayacak bir çalışma.İşte tamda burda şunu sormak istiyorum.Ben bir liste hazıladım o listeye bu makroyu nasıl eklerim bir türlü beceremedim bunu.Bende sürekli hata veriyor officeden kaynaklanan bir sorunmu yoksa ben mi yapamıyorum anlamadım.Şu makro işini çözmek istiyorum sizin gibi arkadaşların sayesinde.Okuma yazmayı yeni öğrenen bir çocuğa nasıl anlatılıyorsa öyle anlatırsan sevinirim Saygılar.

 

[jidame]

Üstad çok güzel bir çalışma eline sağlık.Banada çok fayda sağlayacak bir çalışma.İşte tamda burda şunu sormak istiyorum.Ben bir liste hazıladım o listeye bu makroyu nasıl eklerim bir türlü beceremedim bunu.Bende sürekli hata veriyor officeden kaynaklanan bir sorunmu yoksa ben mi yapamıyorum anlamadım.Şu makro işini çözmek istiyorum sizin gibi arkadaşların sayesinde.Okuma yazmayı yeni öğrenen bir çocuğa nasıl anlatılıyorsa öyle anlatırsan sevinirim Saygılar.

bende kullanmak istiyorum ; biraz denedim visualbasic le felan ama beceremedim tam olarak
biraz anlatabilirmisin, tşkler

 

[baranseren]

süper olmuş bir çok projede kullanılabilir bir uygulama.

Teşekkürler.

 

[jidame]

süper olmuş bir çok projede kullanılabilir bir uygulama.

Teşekkürler.

bilen birisi bizlerinde anlayacağı şekilde anlatabilir mi

 

[baranseren]

süper olmuş bir çok projede kullanılabilir bir uygulama.

Teşekkürler.

 

[baranseren]

@Jidame Excel VBA programlama bilmeyen biri için kullanması zor olabilir fakat şu şekilde bilgi vereyim excel i aç arkadaşın gösterdiği dosya açıkken Alt ve F11 tuşlarına bas VBA editör açılacak orda kodları görebilirsin .

Textbox a yazılan herşeyi otomotik olarak liste içinde arama yapabilirsiniz bu şekilde.

 

[apparatebau]

Denedim yapmaya çalıştım ama olmadı,sabahtan beri uğraşıyorum.mevcut listede adım adım nasıl yapıldığını gösterebilirseniz inanın bizim için bu çok iyi bir başlangıç olacaktır.

 

[baranseren]

@apparatebau adım adım derken bu başlangıç noktasında bir uygulama değil bence öncelikle VBA macro programlama eğitim setlerinden birini satın alıp onla başlayınız.

VBA editör ile ne yapacağınız nasıl gireceğiniz apayrı bir konudur

 

[jidame]

@Jidame Excel VBA programlama bilmeyen biri için kullanması zor olabilir fakat şu şekilde bilgi vereyim excel i aç arkadaşın gösterdiği dosya açıkken Alt ve F11 tuşlarına bas VBA editör açılacak orda kodları görebilirsin .

Textbox a yazılan herşeyi otomotik olarak liste içinde arama yapabilirsiniz bu şekilde.

ben bu textbox açma olayını yapmadım, yoksa diğer tarafını halledeceğim ama textbox nasıl açılır onu çözemedim

 

[apparatebau]

@apparatebau adım adım derken bu başlangıç noktasında bir uygulama değil bence öncelikle VBA macro programlama eğitim setlerinden birini satın alıp onla başlayınız.

VBA editör ile ne yapacağınız nasıl gireceğiniz apayrı bir konudur

Sn.@baranseren ben adım adım derken yani kodda nereye ne yazıldı falan onu sormuyorum.Zaten kod oluşturmak benim için daha çok zor bir durum.Sadece öğrenmek istediğim mesela ben bir liste yaptım o listede bu mevcut kodu Alt+F11 ile textbox u açarak oraya yapıştırıyorum.Benim listeye uygun hücreli falan içinden değiştiriyorum ama hata veriyor.Ben formu sürekli takip ediyorum mesela arkadaşlar kod veriyorlar bunu yapıştırın olur diye,kodları oluşturmak bana göre çok profesyonelce onu zaten şimdilik beceremem ama verilen kodu listeye nasıl uyarlarım onun peşindeyim.Örnekteki listede sadece öğrenmek istediğim zaten mevcut olan kodu nasıl listeye uyarlarım yada burda nasıl uyarlanmış?

Ayrıca bu formu takip ettiğimden beri acayip bir excel aşkı doğdu sizin gibi arkadaşlar sayesinde bu bakımdan da teşekkür ediyorum ve hakikaten Bir Macro Eğitim seti almayı ve bu işin üzerine düşmeyi istiyorum.Tavsiye edeceğiniz bir set varmı acaba?

Saygılar

 

[harziyan]

Üstad çok güzel bir çalışma eline sağlık.Banada çok fayda sağlayacak bir çalışma.İşte tamda burda şunu sormak istiyorum.Ben bir liste hazıladım o listeye bu makroyu nasıl eklerim bir türlü beceremedim bunu.Bende sürekli hata veriyor officeden kaynaklanan bir sorunmu yoksa ben mi yapamıyorum anlamadım.Şu makro işini çözmek istiyorum sizin gibi arkadaşların sayesinde.Okuma yazmayı yeni öğrenen bir çocuğa nasıl anlatılıyorsa öyle anlatırsan sevinirim Saygılar.

Öncelikle bu kodun benim tarafımdan yazılmadığını bilmenizi isterim. Bir ara ben de forumdan almıştım. Ben henüz kendi başına kod yazamayanlardanım ama kodları bulup dosyama uyarlıyorum. Siz de örnek dosyanızı gönderirseniz kodları sizin dosyanıza uyarlayabilirim.

 

[apparatebau]

Öncelikle bu kodun benim tarafımdan yazılmadığını bilmenizi isterim. Bir ara ben de forumdan almıştım. Ben henüz kendi başına kod yazamayanlardanım ama kodları bulup dosyama uyarlıyorum. Siz de örnek dosyanızı gönderirseniz kodları sizin dosyanıza uyarlayabilirim.

Sn @harziyan zaten benim amacımda tam olarak sizin yaptığınızı yapabilmek.Burda sağolsun arkadaşlar kodlar konusunda yardımcı oluyorlar bazen kod lazım oluyor veriyorlar ama ben o kodları kendi listeme uyarlayamıyorum,burda da sizden istirhamım kendi yapmış olduğunuz örnekteki listeyi makrosuz olarak düşünmeniz ve hazır olan kodu da nasıl kendinize göre uyarlıyorunuz onu anlatmanız ricam.Yani örnekteki listeyi hazırladınız elinizdede kod var bu kodu listeye uyarladınız,işte nasıl listeye uyarladınız bunu tek tek anlatırsanız seviniriz.

Şunuda eklemek istiyorum http://www.excel.web.tr/showthread.php?t=80957 bu vermiş olduğum linkte görebilirsiniz.Ben bir şey sormuşum sağolsun arkadaşım bana kod göndermiş bunu bu şekilde yapabilirsin diye.Ben o kodu alıyorum uyguluyorum değişeyn hiçbirşey yok listeme uygulayamıyorum.Bunun nasıl yapldığını gösterebilirseniz yani hazır kodu listeye uygulamayı, çok memnun olurum.Saygılar

 

[baranseren]

Sitede bulunan seti satın almış biri olarak excel vba programlama kitaplarını almanızı öneririm.

gerçekten alanında en başarılı ve geniş içeriğe sahip kitaplar.

bilginize.

Textbox ları düzenlemek için araç çubuğuna sağ tıklayıp denetim araç çubuğunu aktiflemeniz lazım.

 

[alprr]

merhaba;

ben bu kodu sayı için denediğimde filtre saçmalıyor.
mesela belirttiğim sütun içinde "33" ile başlayanları filtreliyemiyor ve sıralayamıyorum.
nasıl yapabilirim?

 

[svorm]

Merhaba



Makro çok güzel ve kullanışlı. Fakat süzme işini bir türlü yaptıramadım. Kodu kendi sayfamda denediğimde sadece arama yapıyor.
Süzme işini aktifleştirmiyor.

Teşekkürler

 

[acemiler]

bir örnek

bir değişik örnek bakalım nasıl bulacaksınız

 

[svorm]

Acemiler sizin verdiğinizde çok güzel olmuş fakat ilk dosyanın kendiliğinden süzme işini yapması çok güzel birşey.