Private Sub txtAdress_Change()
If Len(txtAdress) < 3 Then Exit Sub
On Error Resume Next
v = Sheets("DataBase").Range("I4:J" & Sheets("DataBase").Cells(Rows.Count, 10).End(3).Row).Value
ReDim liste(1 To 1)
For a = LBound(v) To UBound(v)
varmi1 = InStr(v(a, 1), UCase(Replace(Replace(txtAdress, "ı", "I"), "i", "İ")))
varmi2 = Application.Match(v(a, 2), liste, 0)
If varmi1 > 0 And Not IsNumeric(varmi2) Then
s = s + 1: ReDim Preserve liste(1 To s): liste(s) = v(a, 2)
End If
Next
frm_CaddeSokak.ListBox1.List = liste
'frm_CaddeSokak.Show
End Sub
Merhaba
@Ömer BARAN Hocam, İşaretli satırı kaldırınca problem gitti. Ancak, bu defada Form açılmadığı için ekrana Caddde ve Sokak isimleri gelmiyor. txtAdress kutusu ListBoxdan seçimle dolunca makro tetikleniyor.