kullanıcı tanımlı fonksiyonda xlam dosyasına başvuru

[Erdem Akdemir]

Merhaba,

Aşağıdaki kod ile xlam dosyasının addins özelliğini false yaptığımda formül ile sonuca ulaşabiliyorum. Addins'i false yapmadan nasıl yapabilirim.

Function vno(deger As String)
dizi = Workbooks("mizan.xlam").Sheets(1).Application.Transpose(Range("a1:a15"))
sira = Application.WorksheetFunction.Match(deger, dizi, 0)

vno = Range("d" & sira)

End Function

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kod ile çözüm buldum.

Function vno(deger As String)
Application.Volatile
Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

sorgu = "select f4 from[sheet1$] where f1 = '" & deger & "' "
Set rs = con.Execute(sorgu)

vno = rs.Fields.Item(0).Value

End Function