Süzgeç oluşturma

[Luckyfran]

Arkadaşlar süzgeç oluşturmak istiyorum..Mesela 1.2.3.4.5 vs numaraları süzgeçte seçince kişinin bilgilerinin çıkmasını istiyorum..

Aşağıdaki gibi süzgeçten 1 numara seçicem ve alinin bilgileri gerekli stunlara otomatik gelicek..LÜtfen nasıl yaparım yardım edin excel bilgim çok az..

 

[Luckyfran]

Yardım lütfen

 

[fedeal]

sorularınızı örnek dosyayla desteklerseniz daha çabuk ve doğru yanıt alısınız(sizin için bir dosya hazırlayıp yanıtlayacak herzaman olmayabilir.)bu seferlik bir çalışma hazırladım inceleyin,iyi çalışmalar.
not: eklediğinizi görmemiştim.

 

[Tarkan VURAL]

Yanıt

Merhaba,

Lütfen, yardım gibi kelimeler her zaman itici gelmiştir. Ama bunu sizin iyi niyet ile sorununuza çözüm bulmaya çalışmanıza ve sitede yeni olmanıza verelim. Normal şartlarda zaten hemen hemen her soruya yanıt veriliyor, merak etmenize gerek yok.

VBA biliyorsanız işiniz kolay, bilmiyorsanız öğrenmeye çalışın hemen.
Önce Combo içerisine dosya numaralarınızı aldırmanız lazım. Bunun için VBE penceresinde ThisWorkbook kod sayfasına aşağıdaki kod satırlarını yazın.

Private Sub Workbook_Open()
Sayfa1.ComboBox1.ListFillRange = "bilgiler!a2:a" & Sheets("bilgiler").Range("a65536").End(3).Row
End Sub

Dosyanızı dilerseniz kaydedip kapatın ve yeniden açın. Combo içine verilerin geldiğini göreceksiniz. ( Makrolarınız etkin ise )
Buradan veri seçtiğinizde istediğiniz alanlara, seçilen verinin karşılıklarının gelmelerini istiyorsunuz. Bunun için de ihtiyacınız olan kod bloğu aşağıdaki gibi olabilir. Yalnız Adı ve Soyadı alanlarını dosyada tek sütunda toplamanıza rağmen diğer sayfada iki ayrı satırda almak istemişsiniz. Soyadını tek hücreden de parçalayıp alırız sorun değil ama yazılı bir Soyad olmadığından ben onun yerine doğum tarihini aldırdım. Bu kod bloğunu Sayfa1( BORÇLU) kod sayfasına ekleyiniz.

Private Sub ComboBox1_Change()
Rem 25-06-2009
Rem Tarkan VURAL
Dim excelvba As Range
Dim a As Long
a = Sheets("bilgiler").Range("a65536").End(3).Row
For Each excelvba In Sheets("bilgiler").Range("a2:a" & a)
If excelvba.Value = Sayfa1.ComboBox1.Value Then
With Sheets("BORÇLU")
.Range("b3").Value = excelvba.Offset(0, 2).Value
.Range("b4").Value = excelvba.Offset(0, 5).Value
.Range("b5").Value = excelvba.Offset(0, 6).Value
End With
Exit For
End If
Next excelvba
a = Empty
Set excelvba = Nothing
End Sub

İşte size bir de örnek dosya:

 

[zipir123]

Düşey ara

Arkadaşlar süzgeç oluşturmak istiyorum..Mesela 1.2.3.4.5 vs numaraları süzgeçte seçince kişinin bilgilerinin çıkmasını istiyorum..

Aşağıdaki gibi süzgeçten 1 numara seçicem ve alinin bilgileri gerekli stunlara otomatik gelicek..LÜtfen nasıl yaparım yardım edin excel bilgim çok az..

Sn. Luckyfran
Ekli dosyayı inceleyiniz.

 

[Luckyfran]

Hepinize çok tşk ederim

 

[selimalgul]

Arkadaşlar kusura bakmayın yanlış yerde konu açıyor olabilir ama mağdur kaldım. Benim 10 15 adet arasında alanlarım var her alana ayrı arama için textbox yapıp arama yaparak kayıtları getirmek istiyrum bunu nasıl yapabilirim yardımcı olursanız sevinirimm.örnek vermek gerekirse http://s2.dosya.tc/server3/iEHYPv/Ko...-2011.xls.html adresiteki alanların hepsinde textbox olacak ve hangi sütunda arama yapıyorsak mesela Turbo OE No'da 17201-17030 arıyorsam buna ait turbo modeli chra vs vs getirecek veya modele göre arama yapıyorum yine tüm alanlardaki kayıtları getirecek anlatabildim sanırım.