Bul butonu eklermisiniz acil

[sessizada01]

Arkaşlar ekteki dosyaya bu butonu eklermisinz ben kutucugu koydum kodu yazdım ama bır yerde yalnıs yapıyorum sadece firma adı ile bulmak istiyorum. ayrıca yapan arkadas resımlı veya vıdeo lu anlatım yapabılır mı zahmet olacak ama yapmak ısterse tabı

 

[sessizada01]

bıde başka bir hücrede arama yapmak ıstersek nereyi değiştirmemiz lazım
mesela a1-a2-a3-...............arama yapıyorsak daha sonra b1-b2-b3-b4................... hücrelerinde arama yapmak ıstersek nereyı değiştirmemiz lazım inşallah ne demek istediğimizi anlatabilmişimdir

 

[acar6783]

Private Sub TextBox1_Change()
On Error Resume Next
Liman = TextBox1.Value
Set FC2 = Range("C2:C55355").Find(What:=Liman)
Application.GoTo Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=5, Criteria1:="*" & TextBox1.Value & "*"
If Liman = "" Then
Selection.AutoFilter Field:=5
End If
End Sub

Deneyiniz

 

[sessizada01]

yokmu yardımcı olabılecek kımse kapsamlı sekılde anlatabılecek

 

[cems]

Private Sub TextBox1_Change()
Liman = TextBox1.Value
Set FC2 = Range("C2:C55355").Find(What:=Liman)

Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
If Liman = "" Then
Selection.AutoFilter Field:=3
End If
End Sub

Kodları bu şekilde düzelt, burada field baz alınacak filtreyi söyler , çalışmanda firma ismi 3cü sütunda ve bunu birinci textboxla karşılaştırıyorsun.

Başka sütun da baz alacaksan , sütun numarası ve hitabettiği textbox numarasını yazman gerek o textbox'un vba sına .

Yani , iki numaralı textbox'u ilkinin altına açıp buna çift tıklayarak

Private Sub TextBox2_Change()

Liman = TextBox1.Value
Set FC2 = Range("D255355").Find(What:=Liman)

Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox2.Value & "*"
If Liman = "" Then
Selection.AutoFilter Field:=4
End If

End Sub

Kodlarını yerleştir, sonra save et ve sayfada ilkine AKKOZA ikincisine ÖRME yaz , iki sütunlu süzdüğünü görürsün. Daha fazla textbox ile süzme yapmak istersen , bu iki koddaki değişimlere dikkat et , uygula lutfen

 

[sessizada01]

yardımın için tşk ederim bir şey daha sorayım bunu cevaplarsan sevınırım pekı bu excel içinde 3.üncü textbox yapıp sadece 3 sütünda arama yapmak istiyorum ama yapmıyor birinci kodun aynısını 3 numaralı textbox a yapıstırıp su sekılde ayarlıyorum ama sadece textbox3 ıle aramıyor

Private Sub TextBox3_Change()
Liman = TextBox1.Value
Set FC2 = Range("D255355").Find(What:=Liman)

Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox1.Value & "*"
If Liman = "" Then
Selection.AutoFilter Field:=4
End If
End Sub

Yanlıs nerede acaba kardes

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[sessizada01]

tşk ederım yardımın için ıcın ama yukarıdaki formulun hatalı bolumunu soylesen dahada cok sevınecegım

 

[ZorBey_]

Merhaba Sayın sessizada01 İyi Çalışmalar

Private Sub TextBox3_Change()

üSTTE TextBox3 Yazıyor
//////////////////////////////////
Altta 2 TAne TextBox1 YAzıyor

Liman = TextBox1.Value
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox1.Value & "*"

TextBox1 OLanları TextBox3 Yapın
/////////////////////////////////////////////////////
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox1.Value & "*"
Selection.AutoFilter Field:=4

AutoFilter Field:=4 Yazanları

3 Yapın Tekrar Deneyin Lütfen.

 

[sessizada01]

Paşa su excele bi bakarmısın ne ıstedıgımı excelde yazıyor sana zahmet olacak ama sevınırım

 

[sessizada01]

yaptım kardesım saol ugrasmana gerek kalmadı bılgı verdıgınız ıcın herkese tsk ederım

 

[ZorBey_]

Daha Evvel Gönderdiğim Dosya İşinizi Gördümü Acaba

 

[sessizada01]

evet gördü tşk ederim çok saol

 

[ZorBey_]

Kolay Gelsin İyi Çalışmalar