Userformda combobox

[ocsnltd]

Merhabalar,

Userformda bir textbox girdigim değeri ara butonuna basinca B sutunundaki değerleri arayıp, olanları comboboxta listeleyeyecek...

Comboboxtan herhangi birini seçtiğimizde, (secilen örnegin B100 deki değer) c100 deki değeri userformdaki bir textboxta gösterecek...

Bunu nasıl yaparız...

Şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Çözüm için verdiğiniz bilgiler doğrultusunda bir örnek dosya eklerseniz daha çabuk cevap alabilirsiniz.

 

[ocsnltd]

Merhaba,

Ekli dosyada düğmeye tıklandığında bir userform açılıyor..

Örnegin aranacak değer kısmına "google" yazdığımda B sutunundaki değerleri kontrol edip.. içinde google gecenleri comboboxta listeleyecek...

Sonra comboboxta listelenen herhangi birini seçtiğimizde C ve D sutünündaki değerleri userformda Değer1 ve Değer2 deki textboxlara yazacak...

eğer textboxtaki değerler değiştirilirse Update tıklayınca o değerleri aynı hücreye yazacak....

 

[Korhan Ayhan]

Selamlar,

Ekte dosyanız üzerinde gerekli düzenlemeleri yaptım incelermisiniz.

 

[ocsnltd]

Selamlar,

Ekte dosyanız üzerinde gerekli düzenlemeleri yaptım incelermisiniz.

Merhaba,

Çok teşekkür ederim... Süper olmuş...

Elinize sağlık...

Mustafa

 

[cosmonot]

Vermiş olduğunuz örneği benim dosyaya uygularken şöyle bir sorunla karşılaştım

Private Sub Ara_Click()
ComboBox1.Clear
If TextBox1 <> "" Then
For x = 2 To [B65536].End(4).Row
If StrConv(Worksheets("LIST").Cells(x, 2), vbUpperCase) Like "*" & StrConv(TextBox1, vbUpperCase) & "*" Then
ComboBox1.AddItem Cells(x, 2)
End If
Next
End If
If ComboBox1.ListCount = 0 Then
TextBox1 = "KAYIT BULUNAMADI..."
TextBox1.SetFocus
With TextBox1
.SelStart = 0
.SelLength = Len(TextBox1)
End With
Else
TextBox1 = ComboBox1.ListCount & " ADET KAYIT BULUNMUŞTUR..."
ComboBox1.SetFocus
End If
End Sub

Ben LIST isimli sheet teki B sütununu aratmak istiyorum.
ancak sheet gizli olduğu için herhalde hata veriyor
yardımcı olur musunuz??

 

[cosmonot]

Büyük ihtimal LIST gizli olduğu için [B65536] ve buradaki

Private Sub ComboBox1_Change()
x = WorksheetFunction.Match(UserForm5.ComboBox1, [B:B], 0)
TextBox2 = Workbooks("Grantas.xls").Worksheets("LIST").Cells(x, 5)
TextBox3 = Workbooks("Grantas.xls").Worksheets("LIST").Cells(x, 4)
End Sub

[B:B] de hata veriyor

bunların yerine ne yazabilirim...

[[Grantas.xls]LIST!B65536] uygun olur mu??

 

[Levent Menteşoğlu]

x = WorksheetFunction.Match(UserForm5.ComboBox1, [B:B], 0)

A&#351;a&#287;&#305;daki gibi kullan&#305;n.

...[LIST!B:B]

Di&#287;er sorunuzdaki k&#305;rm&#305;z&#305; renkli sat&#305;r&#305;da a&#351;a&#287;&#305;daki gibi yazabilirsiniz.


For x = 2 To [LIST!B65536].End(4).Row

 

[cosmonot]

TeŞekkÜrler Sorun ÇÖzÜldÜ

 

[cosmonot]

acil.........

Private Sub ComboBox1_Change()
B = WorksheetFunction.Match(UserForm5.ComboBox1, [[Grantas.xls]LIST!B:B], 0)
TextBox2 = Workbooks("Grantas.xls").Worksheets("LIST").Cells(B, 5)
TextBox3 = Workbooks("Grantas.xls").Worksheets("LIST").Cells(B, 4)
End Sub

fonksiyonunda şu hata ile karşılaşıyorum...

WORKSHEET SINIFININ MATCH ÖZELLİĞİ ALINAMIYOR

sorun ne olabilir??