Harfe değer atamak

[ÖZLÜCE]

Merhaba

Function Drvr() as string
Drvr = Split(ThisWorkbook.Path, "mc©İnşaat 1.1")
End Function

Function kls_mtrj() as string
kls_mtrj = Drvr & "mc©İnşaat 1.1\mc©BFiyat 1.1"
End Function


Yukarıdaki makro'ya göre şu sonucu almam gerekir (kls_mtrj=D:\12\mc©İnşaat 1.1\mc©BFiyat 1.1) Fakat 'Drvr &' işlem yapmıyor.
Yardımlarınızı bekliyor, Hayırlı çalışmalar diliyorum.

 

[nevermore]

merhaba,
Funtion ların başına
public function yazın, ve
dim Drvr as integer (veya String)
dim kls_mtrj as integer (veya String)
olarak degişkenleri tanıtın.

kolay gelsin.

 

[ÖZLÜCE]

Öncelikle ilginize teşekkür ederim. Söylediklerinizi yaptım yinede sonuç vermedi.
Drvr'yi variant olarak tanımladığımda Drvr=D:\ sonucunu veriyor.
Fakat kls_mtrj = Drvr & "mc©İnşaat 1.1\mc©BFiyat 1.1" olarak yazdığımda D:\12\mc©İnşaat 1.1\mc©BFiyat 1.1 cümlesini elde etmem gerekirken. sonuç ; kls_mtrj = mc©İnşaat 1.1\mc©BFiyat 1.1 olarak görünüyor. Sanırım tanımlamalarda hata var.

 

[ÖZLÜCE]

örneğin;
Function kls_mtrj() as string
[A1]=Drvr
kls_mtrj = [A1] & "mc©İnşaat 1.1\mc©BFiyat 1.1"
End Function

yaptığım zaman sonuç (kls_mtrj=D:\12\mc©İnşaat 1.1\mc©BFiyat 1.1) istediğim gibi oluyor. Fakat ben sonucu hücreye aktarmadan almak istiyorum.