404

Şu hatayı bir türlü çözemedim bir hatada bulamıyorum yazdığım kodda yardımcı olur musunuz. Kodları ve çalıştığım dosyayı ekledim. Çözebilirsek çok sevinirim. Private Sub TextBox1_Change() Dim rng As Range Dim rc As Long Dim cln, lst As Integer Dim ad As String Me.ListBox1.Clear Set rng =...