VBA Kod güncelleme talebi

[mustilem23]

İyi akşamalar arkadaşlar ,

Kullanmakta olduğum bir makro var aynı makroyu başka bir konu içinde kullanmaya çalışıyorum fakat arama satırında stok kodu içerisin de S- ,A harfi yada yazı metin olan stok kodları mevcut bu kodları sorguladığımda hata alıyorum kodların güncellenmesi hakkın da yardımcı olabilir misiniz.teşekkürler



kodlar ve örnek excelim.

http://s5.dosya.tc/server3/ioq8jb/tek_ekran_satis_listesi.rar.html

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2]) Is Nothing Then
Range("A4:AC65536").ClearContents
'''
Dim con As Object
Dim rs  As Object
Dim sql As String
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.Ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
sql = "select * from [Veriler$A1:AC65536] Where [Satış Malzemesi No] = " & Target & ""
Set rs = con.Execute(sql)
Range("A4").Cells.CopyFromRecordset rs

Set rs = Nothing
Set con = Nothing
'''
End If
End Sub

 

[mustilem23]

Arkadaşlar yardımcı olabilmeniz mümkün müdür ?