Makro ile arama yaptırırken ilk 6 karaktere göre aratmak

[bedri41]

A stununda arama yaptırdığım aşağıdaki makroda sadece ilk 6 veya 7 karaktere uyuyorsa bulması için nasıl bir ilave yapmam gerekir.

Set ARA = Sheets("Veri").Range("A1:a65000").Find(TextBox1, LookIn:=xlValues)
If Not ARA Is Nothing Then

Teşekkürler

 

[Orion1]

Set ARA = Sheets("Veri").Range("A1:a65000").Find(Left(TextBox1.Text, 7) & "*", LookIn:=xlValues)

 

[bedri41]

Teşekkür ederim. Ancak bulmaya devam ediyor, sorumu şöyle örnekliyeyim;
SHELL GÜNGÖREN TESİSLERİ ADANA KAVŞAĞI
KONYA
LİMAN DEPOLAMA MERKEZİ
ADANA
Bu dört satırda A sütununda ben textbox1 ile ADANA araması yaptırdığımda 4. satırdakini bulması gerekirken ilk satırdakinide buluyor.

 

[Orion1]

Teşekkür ederim. Ancak bulmaya devam ediyor, sorumu şöyle örnekliyeyim;
SHELL GÜNGÖREN TESİSLERİ ADANA KAVŞAĞI
KONYA
LİMAN DEPOLAMA MERKEZİ
ADANA
Bu dört satırda A sütununda ben textbox1 ile ADANA araması yaptırdığımda 4. satırdakini bulması gerekirken ilk satırdakinide buluyor.

Set ARA = Sheets("Veri").Range("A1:a65000").Find(Left(TextBox1.Text, 7), LookIn:=xlValues)