userform Gizleme

[japonbaba]

Sub KayıtlarıAl()
Dim KayıtSayısı, satır As Variant
ListBox1.Clear
KayıtSayısı = Sheets("Ürünler").Cells(Rows.Count, "A").End(xlUp).Row
For satır = 2 To KayıtSayısı
If InStr(UCase(Sheets("Ürünler").Range("a" & satır)), TextBox1.Value) > 0 Then
ListBox1.AddItem Sheets("Ürünler").Range("a" & satır)
End If
Next satır
End Sub
Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value


End Sub
Private Sub TextBox1_Change()
Dim text As Variant
text = TextBox1.text: text = UCase(text): TextBox1.text = text
Call KayıtlarıAl


End Sub

Private Sub UserForm_Activate()
Call KayıtlarıAl
End Sub

açılan userformdan çift clik seçimden sonra userform kapatmak istiyorum lakin bir türlü yapamadım yardımlarınızı bekliyorum

 

[PLİNT]

Merhaba
Yukarıdaki

Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value


End Sub

silerek; yerine şöyle deneyebilirsiniz

 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ActiveCell.Value = ListBox1.Value
Unload Me
End Sub

 

[japonbaba]

Merhaba
Yukarıdaki

Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value


End Sub

silerek; yerine şöyle deneyebilirsiniz

 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ActiveCell.Value = ListBox1.Value
Unload Me
End Sub

Teşekürler Ellerine sağlık:bravo: