• DİKKAT

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

Userformda combobox

O

ocsnltd

Katılım
15 Ocak 2006
Mesajlar
31
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...
 
Selamlar,

Çözüm için verdiğiniz bilgiler doğrultusunda bir örnek dosya eklerseniz daha çabuk cevap alabilirsiniz.
 
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....
 
Selamlar,

Ekte dosyanız üzerinde gerekli düzenlemeleri yaptım incelermisiniz.
 
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??
 
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??
 
cosmonot' Alıntı:
x = WorksheetFunction.Match(UserForm5.ComboBox1, [B:B], 0)
Genişletmek için tıkla ...

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
 
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??
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst