• DİKKAT

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

UserForm üzerindeki butonlar ile klasör içindeki klasörden dosya açmak

A

alperener

Katılım
28 Ocak 2013
Mesajlar
38
Excel Vers. ve Dili
Office Excel 2003
Sanırım bende bir sıkıntı var.Yine aradım tam olarak bulmadım.Olanları uyarlamaya çalıştım olmadı.Sorumuz şudur:

"Yeni sınav analizi" isimli klasörümüz içindeki "Giriş" isimli dosyadaki UserForm üzerindeki commondbutonu kullanarak "Yeni sınav analizi" isimli klasör yani aynı klasör içindeki "Klasik sınavlar" klasörü içindeki "9.Sınıflar Tarih I" isimli klasördeki "9-A Sınav analizi" isimli dosyayı açtırmak.Yani UserForm üzerindeki butonla klasör içindeki klasörde yer alan dosyayı açtırmak.Bir nevi köprü kurmak.

Yani değişik ifade ile

1.Klasör(tıkladık açtık)-Dosya (tıkladık) ve userform(userform otomatik açılıyor.Formdaki butona tıkladık)-2.Klasör-3.Klasör- açılacak dosya (3. klasör içindeki açılacak dosya açıldı.

Şimdiden teşekkürler.Sayılar.Her zaman olduğu gibi iyiki varsın Excel.web.tr.
 
Merhaba,
Galiba böyle bir şey istiyorsunuz.
Kod: 
Private Sub CommandButton1_Click()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Klasik sınavlar\9.Sınıflar Tarih I\9-A Sınav analizi.xls"
End Sub
 
Sayın dEdE öncelikle ilginize teşekkür ederim her zaman olduğu gibi yine cevap sizden geldi.Kodu uyguladım çalışıyor.İstenilen dosya açılıyor.Ancak userformun açık olduğu dosya kapanmıyor.Yani altında kalıyor açılan dosya.Her halde ben eksik açıklama yaptım en başta.Özür dilerim.Userformun açık olduğu dosyanın da hedef dosya açıldıktan sonra kapanması gerekli.Biri açılırken biri kapanmalı.Saygılar.
 
Sayın dede şu anda yok sanırım.
Ben tamamlayım.
kırmızı ile olan satırları ekleyin.:cool:
Kod: 
Private Sub CommandButton1_Click()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Klasik sınavlar\9.Sınıflar Tarih I\9-A Sınav analizi.xls"
    [B][COLOR="Red"]Unload Me
    ThisWorkbook.Close True[/COLOR][/B]
End Sub
 
dEdE ve Orion1 bu kodlar sayfayı açıyo ancak köprü olarak açmıyo bir defa açtığınızda tekrar giriş sayfasına dönüldüğüne ikinci tıklamada "zaten açık yeniden açarsanız değişiklikleri kaybedersiniz" uyarısı geliyo.Tam bir köprü görevi görmüyo.Excel deki köprü gibi olmuyo.Teşekkürler.Saygılar.
 
alperener' Alıntı:
dEdE ve Orion1 bu kodlar sayfayı açıyo ancak köprü olarak açmıyo bir defa açtığınızda tekrar giriş sayfasına dönüldüğüne ikinci tıklamada "zaten açık yeniden açarsanız değişiklikleri kaybedersiniz" uyarısı geliyo.Tam bir köprü görevi görmüyo.Excel deki köprü gibi olmuyo.Teşekkürler.Saygılar.
Genişletmek için tıkla ...
Ben sadece dosyanızın kapatılması kodunu yazdım.
Zaten yukarıdaki gibi dediğiniz bir kodlama yapmadım ki.
 
İlginize teşekkür ederim.Peki bu şekilde olması mümkün değilmi?Bu kodlara ek yapılarak.
 
Şöyle deneyiniz.:cool:
Kod: 
Private Sub CommandButton1_Click()
    If Workbooks.Open(ThisWorkbook.Path & "\Klasik sınavlar\9.Sınıflar Tarih I\9-A Sınav analizi.xls").ReadOnly = True Then
        Workbooks("9-A Sınav analizi.xls").Close True
    End If
    Unload Me
    ThisWorkbook.Close True
End Sub
 
Olmadı Orin1.aynısı oldu.Excel deki Köprü mantığının oluşması gerekiyor sanırım.Bu işlemin aynısını excel sayfasında köprü kurarak oluşturuyoruz.Onda sorma olmuyo yeniden açılsınmı diye.İlginize teşekkürler.
 
alperener' Alıntı:
Olmadı Orin1.aynısı oldu.Excel deki Köprü mantığının oluşması gerekiyor sanırım.Bu işlemin aynısını excel sayfasında köprü kurarak oluşturuyoruz.Onda sorma olmuyo yeniden açılsınmı diye.İlginize teşekkürler.
Genişletmek için tıkla ...
Olması lazım.
şimdi her 2 dosyayı kapatıp tekrar deneyin.
 
Orion1 malisef olmuyo.Userform üzerindeki butonla dosyayı açıyo tamam.her iki dosya açık olduğunda kapatmadan dosya üzerindeki makro atanmış butonla tekrar geri dönüş yapıp otomatik açılan userform butonuna tıkladığımızda "sayfa zaten açık yeniden açılırsa kaydedilmemiş olanları kaybedersiniz" uyarısı geliyo evet derseniz debug veriyo debuga end derseniz hata veriyo sayfayı kurtarmaya çalışıyo hayır derseniz userformu kendisi kapatıyo ve userformun olduğu sayfayı gösteriyo.bu son mesajım yol gösterirseniz sevinirim aksi halde excel in köprü yöntemine dönecem mecburen iyi olmasada ne yapalım olmuyomuş diyecez.anlamış olduk bunuda.Saygılar selamlar.
 
Son düzenleme:
alperener' Alıntı:
..her iki dosya açık olduğunda kapatmadan dosya üzerindeki makro atanmış butonla tekrar geri dönüş yapıp ...
Genişletmek için tıkla ...

Sayın alperener,
dosya üzerindeki makro atanmış butonda kullandığınız kodları bizimle paylaşabilir misiniz?
 
alperener' Alıntı:
Orion1 malisef olmuyo.Userform üzerindeki butonla dosyayı açıyo tamam.her iki dosya açık olduğunda kapatmadan dosya üzerindeki makro atanmış butonla tekrar geri dönüş yapıp otomatik açılan userform butonuna tıkladığımızda "sayfa zaten açık yeniden açılırsa kaydedilmemiş olanları kaybedersiniz" uyarısı geliyo evet derseniz debug veriyo debuga end derseniz hata veriyo sayfayı kurtarmaya çalışıyo hayır derseniz userformu kendisi kapatıyo ve userformun olduğu sayfayı gösteriyo.bu son mesajım yol gösterirseniz sevinirim aksi halde excel in köprü yöntemine dönecem mecburen iyi olmasada ne yapalım olmuyomuş diyecez.anlamış olduk bunuda.Saygılar selamlar.
Genişletmek için tıkla ...
Ben kendim denedim.Oluyor.
Bir yerde hata yapıyorsunuz ama nerde?
 
Ah pardonya özür.Onda köprü var.Köprü atanmış yazacakken makro atanmış yazmışım.Sayın dEdE amaç hedef dosya açtırılırken userform olan dosyanın kapanması daha sonra açılan dosya üzerindeki butonla bu dosyanın kaydedilip,kapanması ve userform olan dosyaya geri dönmesi.Bu arada userform un olduğu dosyadan hedef dosyaya ikinci defa geçmek istediğimizde eğer hedef sayfa açıksa "sayfa zaten açık..." uyarısı gelmemesi.Yani exceldeki köprü olayının benzeri.İlginize teşekkürler.saygılar.
 
Bakın örnek dosya yolladım.Sorun yok.Gayet güzel çalışıyor.:cool:
A.xls dosyasında butona tıklayın.Kodlar Çalışacaktır her durumda.
 

Ekli dosyalar

  • 59.zip
    59.zip
    17.7 KB · Görüntüleme: 47
Hata yapmıyorum. Orion1 sizin gönderdiğiniz dosya aynı klasör içinde doğru çalışıyo ama userform üzerinden değil.Bizim istediğimiz userform üzerindeki butonlarla başka klasör içindeki dosyayı açması ve o dosya açıkken tekrar açtığımızda hata vermemesi ve "dosya zaten açık..." uyarısının gelmemesi.Sizinkinde gelmiyo acaba aynı dosya içinde olmasından mı? veya B dosyasında geri dönüş butonu olmamasından mı ? Bilemiyorum.Aynen kopyaladım,denedim olmadı. Saygılar.
 
alperener' Alıntı:
Hata yapmıyorum. Orion1 sizin gönderdiğiniz dosya aynı klasör içinde doğru çalışıyo ama userform üzerinden değil.Bizim istediğimiz userform üzerindeki butonlarla başka klasör içindeki dosyayı açması ve o dosya açıkken tekrar açtığımızda hata vermemesi ve "dosya zaten açık..." uyarısının gelmemesi.Sizinkinde gelmiyo acaba aynı dosya içinde olmasından mı? veya B dosyasında geri dönüş butonu olmamasından mı ? Bilemiyorum.Aynen kopyaladım,denedim olmadı. Saygılar.
Genişletmek için tıkla ...
Farketmez.Başka klasör içinde olsada mantık aynı.
Kodlar çalışıyor.
Belki şu olabilir sizde.Dosyanızın birisi xls uzantılı excel dosyası diğeri ise xlsx veya xlsm uzantılı excel dosyası olabilir.:cool:
 
tamam olmuyo ilginize çok teşekkür ederim.daha fazla yormak istemiyorum.saygılar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst