Makro Right Komutu Hk.

[alprn19]

Merhaba hazırladığım userformda şu şekilde bir kod var benim bilgisayarımda sorunsuz çalışıyor fakat farklı bilgisayarda şu alttaki komutta hata veriyor Right kelimesinin üzerini çiziyor.Mavi ile işaretli. Bu kodu her seferinde bilgisayaların tanıması için nasıl bir yol izlemeliyim.

If Right(sourcePath, 1) <> "\" Then

 

[Haluk]

Excel'in verdiği hata mesajını yazmış olsaydınız, çözüme katkısı olurdu. Belirtmediğiniz için olası düzeltme opsiyonlarını belirteyim;

- Excel dosyanızda VB editöründe Tools >> References ile eklemiş olduğunuz bir referans varsa, bunun bulunmadğı diğer bilgisayarlarda böyle bir sorun olabilir. O bilgisayarlarda söz konusu eksik referanslar "Missing" olarak belirtilmiştir.

- Başka bir ihtimal; diğer bilgisayarlarda Excel'in kurulumunda hata olmuş olabilir. Belki Excel'i yeniden "register" etmek sorunu çözebilir. Bunun için de, söz konusu çalışmadığı bilgisayardaki kurulu Excel sürümüne göre; Başlat >> Çalıştır (Start >> Run) kutusuna aşağıdakini yazıp "Enter" tuşuna basın.

C:\Program Files\Microsoft Office\Office14\Excel.exe /regserver

.

 

[alprn19]

Excel'in verdiği hata mesajını yazmış olsaydınız, çözüme katkısı olurdu. Belirtmediğiniz için olası düzeltme opsiyonlarını belirteyim;

- Excel dosyanızda VB editöründe Tools >> References ile eklemiş olduğunuz bir referans varsa, bunun bulunmadğı diğer bilgisayarlarda böyle bir sorun olabilir. O bilgisayarlarda söz konusu eksik referanslar "Missing" olarak belirtilmiştir.

- Başka bir ihtimal; diğer bilgisayarlarda Excel'in kurulumunda hata olmuş olabilir. Belki Excel'i yeniden "register" etmek sorunu çözebilir. Bunun için de, söz konusu çalışmadığı bilgisayardaki kurulu Excel sürümüne göre; Başlat >> Çalıştır (Start >> Run) kutusuna aşağıdakini yazıp "Enter" tuşuna basın.

C:\Program Files\Microsoft Office\Office14\Excel.exe /regserver

.

Cevabınız için teşekkür ederim ekliyorum hatayı
Referanslar iki bilgisayarda da aynı.

 

[Haluk]

Kodunuzda "Dim" ile başlayan satırları, makronun başlangıcına taşıyıp, öyle deneyin.....

Yani;

Sub Test()
    Dim FSO As Object
    Dim sourcePath As String
    ....
    ...
    ..
   
End Sub

Bu düzeltme de işe yaramazsa, 2. mesajda bahsettiğim "register" düzeltmesini deneyin.


.