• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Klasor getirme.

S

senseyak

Katılım
8 Aralık 2010
Mesajlar
15
Excel Vers. ve Dili
2003 türkçe
Merhaba
Şirkette işlerimi kolaylaştırmak için bi sistem kurdum ada parsel girdiğimde diğer bilgisayardan düşeyara,eğer,birleştir gibi komutlarla hücrelerden bilgi alıp evrak düzenliyorum

sorum şu ada parsel yazdığımda o inşaatın yibf numarasını düşeyara ile alıyor atıyorum numara 652123 ben bu numaraya tıkladığımda bilgisayarda kayıtlı o numaraya ait klasorun açılmasını istiyorum exel verisini değil sadece o klasorun içini görmek istiyorum (klasorde inşaata ait resimler olacak) bu numara değiştiğinde eş değer klasore yonlendirmesini istiyorum.

nasıl yapabilirim teşekkürler.
 
Sub sub_OpenFolder
Dim str_folder as string

str_folder = "C:\652123" ' folder to open

Call shell("explorer.exe " & str_folder,vbNormalFocus)

End Sub

bu tarz bir kodu kendinize gore uyarlayabilirsiniz belki cift click`ine filan yazabilirsiniz bilemiyorum..
 
yardımlarınız için teşekkürederim şimdi şu şekilde kodu butonla çalıştırdım

Kod: 
Private Sub CommandButtonOP_Click()
Dim str_folder As String
str_folder = "D:\İŞLER\[COLOR="Red"]644458[/COLOR]" ' folder to open
Call Shell("explorer.exe " & str_folder, vbNormalFocus)
End Sub



kırmızı renkle yazdığım numarayı koda bir hücreden vermek istiyorum yani bi ada parsel giricez hücrenin birine numara gelicek oda bu kırmızı yere yazılacak tıkladığımda o numaralı klasoru açacak.

teşekkürler.
 
"D:\İŞLER\" & [a1].value gibi yapilabilir..

ama belki inputboxlada yapmak isteyebilirsiniz..


Kod: 
Private Sub CommandButtonOP_Click()
Dim str_folder As String
Dim klasor_adi As String
klasor_adi = InputBox("Dosya Adini Giriniz", "Dosya Adi", "?", 100, 100)
str_folder = "D:\ISLER\" & klasor_adi ' folder to open
Call Shell("explorer.exe " & str_folder, vbNormalFocus)
End Sub
 
Son düzenleme:
Kod: 
Private Sub CommandButtonOP_Click()
Dim str_folder As String
str_folder = [COLOR="Red"]"D:\İŞLER\" & [q3].Value[/COLOR] ' folder to open
Call Shell("explorer.exe " & str_folder, vbNormalFocus)

End Sub

Bu şekilde çalıştı teşekkür ederim bilgiler için saolun.
 
Kafanızı ağrıttım ama bir soru soracağım.

Yukardaki kod güzel bir şekilde çalışıyor yanlız atanan numaraya ait klasor yoksa belgelerimi açıyor bunun yerine bir hata kodu yazabilirmiyiz klasor yoksa yok yazcak bunun gibi.
 
bu sekilde zaten hata vermesi gerekiyor.. dosyanizi nasil actigini anlamadim..
 
baska birseyden kaynaklaniyor olmali tum kodunuzu yazarmisiniz..
 
Kod: 
Private Sub CommandButtonOP_Click()
Dim str_folder As String
str_folder = "\\İL-PC\FOTO\" & [q3].Value ' folder to open
Call Shell("explorer.exe " & str_folder, vbNormalFocus)
End Sub
 
Son düzenleme:
her şekilde belgelerimi açıyor neyse çok sorun değil zaten kullanacak kişilere olayı anlattım eğer belgelerim açılırsa o klasor yoktur die ilgilendiğiniz için teşekkür ederim .saygılar.
 
ayni sorunu yasayamadigim icin problemi anlayamiyorum kusura bakmayin, insallah arkadaslarinizdada rastlamazsiniz ayni soruna, kolay gelsin..
 
Birşeye daha ihtiyacım var ama yardımcı olabilirmisiniz

Kod: 
Private Sub CommandButtonOP_Click()
Dim str_folder As String
str_folder = "D:\İŞLER\" & [q3].Value ' folder to open
Call Shell("explorer.exe " & str_folder, vbNormalFocus)

End Sub

bu kod klasor açıyor aynı çalışma prensibi ile bir klasorun içerisindeki bi numaradaki excel dosyasını açmasını istiyorum.

şimdiden teşekkürler.
 
dosya acmak derken acacaginiz dosya excel dosyasimi yoksa baska bir tur dosya mi?
 
Workbooks.Open Filename:="C:\dosya.xls" sadece bununla bile acabilirsiniz sanirim...

hatta denedim simdi acabiliyormussunuz :)

ama yinede kodunuzdan sonra

ThisWorkbook.Activate kullanip actif etmenizi oneririm.. yani buyuk ihtimalle bu dosya icin ad tanimlamicaksinizdir..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst