[ÇÖZÜLDÜ] USB Belleğimin takılı olduğu sürücü harfi

[kmlpyrz]

Bilgisayarımda G:\ sürücüsü olarak görünen USB Belleğimin içinde, excelde hazırladığım bir öğrenci takip programım var ve bu programım yine bu bellekteki "öğrenci resim klasörü" nden öğrenci resimlerini alıyor. Kendi bilgisayarımda program çalışırken hiçbir sıkıntı yok ama başka bir bilgisayara USB Belleğimii taktığımda sürücü ismi değiştiğinden program resimlere ulaşamıyor ve hata veriyor. Programımdaki öğrenci resimlerini her bilgisayarda görebilmek için USB Belleğimin hangi sürücüde olduğunu, excel sayfasındaki bir hücreye yazdırabildiğimde sorunuma çözüm bulabileceğime inanıyorum. Bu konuda yardımcı olabilirseniz çok sevinirim. Çalışmalrınızda başarılar dilerim.

 

[kelkitli]

Selamlar,
Dosya yolunu "ThisWorkbook.Path & "\" olarak tanımlarsan olur sanırım.

 

[kmlpyrz]

Öncelikle ilginizden dolayı teşekkür ederim. Ben resimlerin yolunu excel sayfasında her öğrencinin satırına yazdım. Resim kodu yolu bu excel sayfasından alıyor. Bu nedenle "ThisWorkbook.Path" değerini excelde bir hücreye yazdırıp, Birleştir formülüyle resim yolunu göstermek istiyorum.

"ThisWorkbook.Path" değerini excelde bir hücreye yazdırabilir miyiz?

 

[kelkitli]

Dosya ekleme imkânınız varsa yapmaya çalışalım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Dosyayı açtığınızda Sayfa1 A1 hücresine dosyanın yolunu yazar.

Sub AUTO_OPEN()
    ThisWorkbook.Sheets("Sayfa1").Range("A1") = ThisWorkbook.Path
End Sub

 

[kmlpyrz]

Öncellikle yardımlarınızdan dolayı çok teşekkürederim. Sorunuma sayenizde çözüm buldum. Sizlerden bu konuyla ilgili olarak bir yardım daha istesem acaba çok şey mi istemiş olurum.

[COLOR=black]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
[COLOR=black]Image1.PictureSizeMode = fmPictureSizeModeZoom[/COLOR]
[COLOR=black]Image1.Picture = LoadPicture(['ANA SAYFA'!G7])[/COLOR]
[COLOR=black]End Sub[/COLOR]

Yukarıdaki kodda ['ANA SAYFA'!G7] hücresi öğrenciye ait resim yolunu gösteren hücre, öğrenci değiştikçe bu hücredeki yolda değişiyor. Ancak resim yolunda öğrenciye ait resim yoksa hata oluşuyor. Eğer o öğrenciye ait resim yoksa, hata vermeden image1 resmi olarak ThisWorkbook.Path & "\bos.jpg" resmi görüntülenebilir mi?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT][COLOR=black]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
[COLOR=black]Image1.PictureSizeMode = fmPictureSizeModeZoom[/COLOR]
if ['ANA SAYFA'!G7]<>"" then
[COLOR=black]Image1.Picture = LoadPicture(['ANA SAYFA'!G7])[/COLOR]
else
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\bos.jpg")
end if
[COLOR=black]End Sub

[/COLOR][/LEFT]

 

[kmlpyrz]

Sayın Levent Bey, ['ANA SAYFA'!G7] hücresi, ilgili klasörde resim olsada olmasa da her zaman resim yolunu gösteriyor. Bu nedenle ['ANA SAYFA'!G7] hücresi hiçbir zaman boş değil. Bu durumda ilgili yola karşılık gelen resim bulunamadığında hata vermek yerine "bos.jpg" resmi görüntülenebilir mi?
İlginizden ve yardımlarınızdan dolayı teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT][COLOR=black]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
[COLOR=black]Image1.PictureSizeMode = fmPictureSizeModeZoom[/COLOR]
if ['ANA SAYFA'!G7]<>"" then
[COLOR=black]Image1.Picture = LoadPicture(['ANA SAYFA'!G7])[/COLOR]
else
Image1.Picture = LoadPicture("")
end if
[COLOR=black]End Sub

[/COLOR][/LEFT]