İstenilen Hücreye Göre Klasör Açma Sorunu

[yorum.halil]

Arkadaşlar örnek dosyada tuşa bastığımız zaman "DOSYA" sayfasında yer alan TextBox a göre klasörleri oluşturuyor. fakat ben klasörleri TextBox a göre değil "KLASÖR" sayfasında belirtilen hücreye göre oluşturmasını istiyorum. Ama kodlarda nasıl yapacağımı bilmiyorum. Lütfen rica etsem kodlarda gerekli düzeltmeleri yapıp örnek dosyayı eklermisiniz. Örnek dosyada gerekli açıklamalar mevcut. Şimdiden Tşk.

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodun içinde geçen Sayfa1.TextBox1.Text kod bloğunu aşağıdaki şekilde değiştirip denermisiniz.

Sheets("KLASOR").Range("C2").Text & "\"

 

[yorum.halil]

Üstad dediklerini yaptım. Fakat VBA da kodlar hatalı olduğu için kırmızı olarak görünüyor. Lütfen Örnek ya örnek dosya ile yada kodların tamamını eklerseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[yorum.halil]

Üstadım çok sağol Allah razı olsun. Ufak bir sorum daha olacak. Eklediğiniz örnek dosyayada bakacak olursanız tuşa bastığımızda sadece bir klasör açıyor. yani hücrede 2 klasör açılması gerekiyorsa "yıl bilgisi geçersiz" diye bir uyarı veriyor.

c:\TABLO\DENEME => AÇMIYOR
C:\TABLO => AÇIYOR

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanarak alt klasörleride oluşturabilirsiniz.

Option Explicit
 
Sub KLASÖR_OLUŞTUR()
    On Error Resume Next
    Dim FSO As Object
    Dim DOSYA_YOLU As String
    Dim AYIR As Variant
    Dim KLASÖR As String
    Dim X As Byte
    DOSYA_YOLU = "C:\TABLO\DENEME"
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    If InStr(1, DOSYA_YOLU, "\") > 1 Then
        AYIR = Split(DOSYA_YOLU, "\")
            For X = 1 To UBound(AYIR)
                If KLASÖR = Empty Then
                    KLASÖR = "C:\" & AYIR(X)
                Else
                    KLASÖR = KLASÖR & "\" & AYIR(X)
                End If
 
                If Not FSO.FolderExists(KLASÖR) Then
                    FSO.CreateFolder (KLASÖR)
                End If
            Next
    End If
 
    Set FSO = Nothing
 
    MsgBox DOSYA_YOLU & " isimli klasör oluşturulmuştur."
End Sub

 

[yorum.halil]

Üstad çok teşekkürler... Akşam akşam büyük sevaba girdin...

 

[yorum.halil]

Üstadım dosyayı tamamladım. Ama eklediğim örnek dosyada çok ilgiç bir sorunla karşı karşıyayım... Mesela =TOPLA(C23:C31) formülünü girip belirtilen alanlara bir rakam girdiğimde toplam yapmıyor. Daha doğrusu yapıyorda DOSYAYI KAYDETTİĞİM ZAMAN toplam alıyor. Acaba bunu nasıl düzeltebiliriz. >Bu hata bütün formüllerde geçerli. Formü sonucu dosyayı kaydettiğim zaman çalışıyor. Aynı dosyayı bir kaç pc de denedim sonuç aynı. Lütfen bu konudada yardımlarınızı esirgemeyin......

 

[Korhan Ayhan]

Selamlar,

ARAÇLAR-SEÇENEKLER-HESAPLAMA menüsünü açın.

Hesaplama yöntemini otomatik olarak ayarlayın düzelir.

 

[yorum.halil]

Tamam üstad kurcalaya kurcalaya buldum. Tekrar tşk.

 

[yorum.halil]

Üstad yukarıdaki kodda dosya açılacak klasörü kod da değilde hücre belirterek açsak nasıl yaparız.. Yani Aşağıdaki satırı nasıl düzeltiriz.

DOSYA_YOLU = "C:\TABLO\DENEME"

Bu satıra dosya yolu belirterek değilde istediğimiz bir sayfanın istediğimiz bir hücresine göre açılmasını nasıl sağlarız.

ÖRNEK KLASOR Sayfasının C2 hücresi