User form ile arama ve aktarma

[sinnernekolens]

İyi akşamlar arkadaşlar, ekli örnek sayfada butona tıkladığımda userform açılıyor orada kelime arıyor ve listeliyor. örnek istediğim kelimeyi buldu onun üstüne çift tıkladığımda C10 hücresine o kelimeyi yazmasını istiyorum. yardımlarınızı rica ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
Range("C10").Value = ListBox1.Value
End Sub

 

[sinnernekolens]

Çok teşekkür ederim peki işlem bitince userform kendini kapatabilir mi? örnek çift tıkladım seçtim veriyi aktardı. kendini kapatabilir mi

 

[sinnernekolens]

tamam çözdüm. aşağıdaki kod ile. teşekkürler

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

syf = ListBox1.Column(0)
Unload Me

End Sub

 

[sinnernekolens]

Tekrardan merhabalar, bu konu ile ilgili bir sorum olacak arama kutusuna veri yazarken İlk harfi büyük sonraki harf küçük oluyor otomatik. bunun hepsini büyük harf yapabilir miyim. Veriyi aradığı yerde büyük harfle yazılı. İlk harfi yazınca listeliyor ikinci harfi yazınca boş gösteriyor.

 

[Orion1]

Dosyanız ektedir.
Büyük küçük harfe duyarlı değil.
Dosya ektedir.

Private Sub TextBox1_Change()
Dim i As Long, k As Range, sonsat As Long, adr As String
ListBox1.Clear
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Set k = Range("A2:A" & sonsat).Find(TextBox1.Value & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox1.AddItem k.Value
        Set k = Range("A2:A" & sonsat).FindNext(k)
    Loop While Not k Is Nothing And adr <> k.Address
End If
End Sub