Combo Box - Aranan harfi tüm kelime içinde arama

[excel12312]

Selamlar ,

Hücreye tıkladığımda Combo box açılıyor ve girdiğim karakterleri yalnızca ilk harf olarak sorgulama değil de kalimenin ya da cümlenin tamamında sorgulamasını istiyorum.

Bu bağlamda şu kodlarda nasıl bir revize yapmak gerekir.

teşekkürler ,



Dim nvE As Object

Private Sub Emre_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
nvE.Visible = False
ActiveCell.Offset(1, 0).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Set nvE = ActiveSheet.OLEObjects("Emre")
On Error GoTo 0
If nvE Is Nothing Then
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Width:=Target.Width, _
Height:=Target.Height)
.Name = "Emre"
End With
Set nvE = ActiveSheet.OLEObjects("Emre")
End If

Set Target = Intersect(Target, Range("B:B"))
If Target Is Nothing Then
nvE.Visible = False
nvE.LinkedCell = ""
Exit Sub
ElseIf Target.Count > 1 Or Target.Row = 1 Then
nvE.Visible = False
nvE.LinkedCell = ""
Exit Sub
End If

With nvE
Application.ScreenUpdating = False
.Top = Target.Top
.Left = Target.Left
.ListFillRange = "veri"
.LinkedCell = Target.Address
.Enabled = True
.Visible = True
.Activate
End With
End Sub

 

[yanginci34]

formül isterseniz forumda güzel bir örnek dosya var inceleyiniz.
http://dosya.co/ewkgvqczworb/kelimede_harf_ara.xlsx.html

 

[excel12312]

Yanıtınız için teşekkürler. Gönderdiğiniz çalışmayı da inceledim fakat benim istediğime nasıl uyarlamam gerektiğini çözemedim.

Örnek dosya paylaşıyorum. Bu çalışmada Combo box ta girdiğim ilk harfe göre arama yapmakta , fakat ben girdiğim karakteri kelimenin tamamında sorgulasın istiyorum.

Bu bağlamda desteğinizi bekliyorum, teşekkürler.

 

[Ömer BARAN]

Merhaba.

Bu işlem için bence Combobox nesnesi pek uygun görünmüyor ve
mevcut Combobox'ta görünen liste, veri ismini kullandığınız AD TANIMLAMASI üzerinden geliyor.

Aşağıdaki konu sayfasına bakmanızda yarar var.

İşlem tek hücre için ise ilk cevabımın ekindeki, bir'den fazla hücre için ise ikinci cevabımın ekindeki belgeyi kendinize uyarlamaya çalışın.

Koşula bağlı Olarak Hücrede Açılır Liste Oluşturma ( Veri Doğrulama - Liste )

.

 

[excel12312]

Ömer bey teşekkürler tam istediğim gibi bir çalışma. Tek bir sorum olacak ;

Başvuru hücresini değiştirmek için kodda nasıl bir düzenleme yapmak lazım ? Örn. A1 hücresi değil de B10 hücresine tıkladığımda liste orada açılsın. Teşekkürler ,

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(1, 1) = ListBox1.Column(0)
TextBox1.Visible = False: TextBox1 = ""
ListBox1.Visible = False: ListBox1.Clear: [A2].Activate
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If ActiveCell.Address(0, 0) = "A1" Then
TextBox1.Visible = True: TextBox1.Activate: Cells(1, 1) = ""
Else
TextBox1.Visible = False: ListBox1.Visible = False
End If
End Sub




Private Sub TextBox1_Change()
With TextBox1
.Top = [A1].Top: .Left = [A1].Left: .Width = [A1].Width: .Height = [A1].Height
End With
If TextBox1 = "" Then
ListBox1.Clear: ListBox1.Height = 0: Exit Sub
End If
ListBox1.Visible = True: ListBox1.Clear: ListBox1.Height = 0
For brn = 1 To 1200
If Cells(brn, "e") Like "*" & TextBox1 & "*" Then
ListBox1.AddItem Cells(brn, "E")
End If
ListBox1.Height = 13 * (ListBox1.ListCount) + 8: ListBox1.Width = [A1].Width
Next
End Sub

 

[Ömer BARAN]

Merhaba.

Dosya ekte.
.

 

[excel12312]

Çok teşekkürler , iyi çalışmalar.

 

[hasaona]

Bu programın benzerini bende arıyordum. Fakat Benim aradığım" veri" sayfası altında arkadaş sayfa oluşturarak yapmış. Bunu bende Excelde birden fazla sayfa içinde mükerrer kod oluşturmasına izin vermeyecek şekilde yapa bilirmisiniz.
Saygılarımla teşekkürler