• DİKKAT

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

combobox a süzülmüş veri

K

kuşak

Katılım
5 Eylül 2006
Mesajlar
67
Excel Vers. ve Dili
2003 türkçe
Merhabalar

Bir excel dosyasında 1 textbox ve 1 combobox var. Textbox1 nesnesine yazılan değeri sayfa2 A sütununda arasın combobox eğer textboxa yazılan değer sayfa2 A sütununda varsa B sütunundaki (sadece textboxa yazılan koda ait değerlerin) karşı değerlerini getirsin saygılar
 
Dim ArrSatir(20000)

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txt = TextBox17.Text
ComboBox15.Clear
For i = 2 To 20000
deger = Sheets("sayfa2").Cells(i, 1).Value
If deger = txt Then
ComboBox15.AddItem Sheets("sayfa2").Cells(i, 2)
ArrSatir(ComboBox15.ListCount - 1) = i
End If
Next
End Sub

Küçük büyük harfe duyarlıdır.textbox ve combobox isimlerini degiştirin,iyi çalışmalar.
 
Çok olucak ama excel formatını atabilir misiniz :( Denedim yapamadım.
 
Sayfadaki kodları alttaki kodlarla değiştirirseniz hızlanacaktır.
Dim ArrSatir(20000)

Private Sub ComboBox1_Change()
txt = ComboBox1.Text
ComboBox2.Clear
For i = 1 To Sheets("SAYFA2").Range("A65536").End(xlUp).Row
deger = Sheets("sayfa2").Cells(i, 2).Value
If deger = txt Then
ComboBox2.AddItem Sheets("sayfa2").Cells(i, 3)
ArrSatir(ComboBox2.ListCount - 1) = i
End If
Next
End Sub

Private Sub ComboBox2_Change()
txt = ComboBox2.Text
Label1.Caption = ""
For i = 1 To Sheets("SAYFA2").Range("A65536").End(xlUp).Row
deger = Sheets("sayfa2").Cells(i, 3).Value
If deger = txt Then
Label1.Caption = Sheets("sayfa2").Cells(i, 4)
End If
Next
End Sub

Private Sub TextBox1_Change()
txt = TextBox1.Text
ComboBox1.Clear
For i = 1 To Sheets("SAYFA2").Range("A65536").End(xlUp).Row
deger = Sheets("sayfa2").Cells(i, 1).Value
If deger = txt Then
ComboBox1.AddItem Sheets("sayfa2").Cells(i, 2)
ArrSatir(ComboBox1.ListCount - 1) = i
End If
Next
End Sub
Genişletmek için tıkla ...
 
Bu dosyadaki textbox ı da comboBox olarak nasıl çalıştırabiliriz. "MODEL KODU" bölümünüde açılır liste şeklinde (Sayfa2 A sutunu) yapabilirmiyiz?
 
Bir sorum daha var aslında sizin için uygunsa. Ebat ve kalanlarını statusbar nesnesinde gösterebilir miyiz?
 
sayın fedeal renk kodu sayısal veri olduğu zaman eabtları göstermiyo. Aynı şey ebat içinde geçerli ebat sayısal veri olunca kalanı vermiyor. sebebi ne olabilir anlamadım :(
 
kuşak' Alıntı:
sayın fedeal renk kodu sayısal veri olduğu zaman eabtları göstermiyo. Aynı şey ebat içinde geçerli ebat sayısal veri olunca kalanı vermiyor. sebebi ne olabilir anlamadım :(
Genişletmek için tıkla ...

kodları alttakilerle değiştirin,

Dim ArrSatir(20000)

Private Sub ComboBox1_Change()
txt = ComboBox1.Text
ComboBox2.Clear
For i = 1 To Sheets("SAYFA2").Range("A65536").End(xlUp).Row
deger = Sheets("sayfa2").Cells(i, 2).Text
If deger = txt Then
ComboBox2.AddItem Sheets("sayfa2").Cells(i, 3)
ArrSatir(ComboBox2.ListCount - 1) = i
End If
Next
End Sub

Private Sub ComboBox2_Change()
txt = ComboBox2.Text
Label1.Caption = ""
For i = 1 To Sheets("SAYFA2").Range("A65536").End(xlUp).Row
deger = Sheets("sayfa2").Cells(i, 3).Text
If deger = txt Then
Label1.Caption = Sheets("sayfa2").Cells(i, 4)
'ArrSatir(ComboBox2.ListCount - 1) = i
End If
Next
End Sub

Private Sub ComboBox3_Change()
txt = ComboBox3.Text
ComboBox1.Clear
For i = 1 To Sheets("SAYFA2").Range("A65536").End(xlUp).Row
deger = Sheets("sayfa2").Cells(i, 1).Text
If deger = txt Then
ComboBox1.AddItem Sheets("sayfa2").Cells(i, 2)
ArrSatir(ComboBox1.ListCount - 1) = i
End If
Next
End Sub
Genişletmek için tıkla ...
 
çok oldum ama bir sorum daha var :oops: Ebat ve kalanlarını statusbar nesnesinde gösterebilir miyiz?
 
sayın fedeal

comboboxa gelen verilerin çoğu aynı. Benzer kayıtları tek olarak gösterebilir miyiz?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst