Aynı verinin tekrarlanması

[DeliBalta58]

Arkadaşlar Textbox1'e girilen veri , eğer daha önceden kaydı yapılmış ise textbox'a nasıl getirebiliriz.


Örneğin L sütununa daha önceden

Kayseri
Konya
Ankara
gibi veriler girilmiş olsun


Userform da Textbox1' e K harfi yazılınca Kayseri gelsin
Ko diye devam edilince Konya çıksın

Excel de normal sayfasında bu var.
Bunu Userformda Textboxta yapabilirmiyiz.
Teşekkürler

 

[Ferhat Pazarçevirdi]

Merhabalar,

A sütununda, 1.satırdan başlayarak devam eden iller olduğu varsayımıyla;

Projenize bir Userform ve Combobox ilave edin ve Userformun kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub UserForm_Initialize()
Dim i As Long
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenNever
For i = 1 To Cells(65536, 1).End(xlUp).Row
    If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1)) = 1 Then
       ComboBox1.AddItem Cells(i, 1)
    End If
Next i
End Sub

Şimdi formu çalıştırın ve combobox'a bir il ismi girin.

 

[DeliBalta58]

Combobox değilde Textbox için sormuştum

Combobox yerine textbox yazıp denedim
"Method or data member not found" hatası verdi

 

[Ferhat Pazarçevirdi]

Peki, Userform çalıştığında; Combobox'ın; gerçekten combobox olduğunu anlayabildiniz mi ?

Combobox'ın açılma (veya yanındaki açılan kutu oku) özelliği kapatılmış ve sırf Textbox görünümü verilmiştir.

Belirttiğiniz işlemi Textbox'da yapmak mümkün ama bu kadar pratik ve hızlı olmaz.

Eğer verileriniz çok fazla ise, dediğinizi yapmak için TextBox kodlamasında kullanılacak döngü (veya herneyse) programınızı yavaşlatacaktır.

Textbox görünümlü combo'nun, işinizi göreceğini umuyorum.

 

[DeliBalta58]

Textbox. Onda şüphe yok. Aslında Excel Hücresine veri girişi yapıldığında çıkıyorya öyle olurmu acaba diye düşünmüştüm.
Textbox'u Combo ile değiştireyim.