Sicil ve İsme Göre Klasör Oluşturma

[YasarPiskin]

Excel Versiyonu

Excel 365

Excel Sürümü

64 Bit

Excel Dili

Türkçe

DATA ve ARŞİV sayfaları B sütunlarındaki sicil numaralarından herhangi birine çift tıkladığımda ÖZLÜK klasöründeki o sicile ait klasörün açılmasını sağlayan ThisWorkbook sayfasfındaki mevcut kodun ÖZLÜK klasöründe sicillere ait olmayan kalsörü oluşturacak şekilde hususunda yardımlarınızı bekliyorum. Örneğin DATA sayfası B sütunundaki 100 numaralı sicile çift tıkladığımda ÖZLÜK klasöründe o klasör olmadığından "0100 - Ersin" isimli klasör oluşturması.​

 

VBA ile Her Hücreye Farklı Takvim Sonucu Yazdırma

Sayfa Adını Hücreden Alma

[Ömer BARAN]

@YasarPiskin
Örnek belgenize bakmadım ama, sanıyorum bir önce açtığınız konudaki belgeden söz ediyorsunuz.
Önceki kodda, ilgili klasörün zaten VAR olduğu varsayılmıştı (yeni fark ettim ki o kodda küçük bir de eksiklik var imiş),
şimdi de ilgili klasör YOK ise oluşturulmasını ve ilgili klasörün açılmasını istiyorsunuz.

O kodu şununla değiştirin.

Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)

 

[YasarPiskin]

Son olarak klasörler oluşturulurken "0100 - Ersin" şeklinde oluşturulan ismi "0100 - ERSİN" şeklinde büyük harfle oluşturulması hususunda yardımlarınızı talep ediyorum.

 

[Ömer BARAN]

Ne yapmaya çalıştığınızı anlayamıyorum!

Excel belgenizdeki hücre değerleri BÜYÜK HARF şeklinde.
önce, yoksa ilgili klasörün YAZIM DÜZENİ şeklinde adlandırılmasını istediniz.
Anladığım kadarıyla şimdi de var/yok tüm klasörlerin büyük harf olacak şekilde adlandırılmasını mı istiyorsunuz?

Bu ikisi birbiriyle çelişmiyor mu sizce?

 

[YasarPiskin]

Öncelikle yeni yılın size ve ailenize sağlık, mutluk ve bereket getirmesi temennisi ile, tüm klasörlerin büyük harf olacak şekilde adlandırılmasını istiyorum.

 

[Ömer BARAN]

Şu kod, belgenin bulunduğu yerdeki ÖZLÜK isimli ana klasördeki alt klasörlerin isimlerini BÜYÜK HARF yapar.

Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

 

[YasarPiskin]

Çok teşekkür ederim.

 

[Ömer BARAN]

Thisworkbook bölümündeki Workbook_SheetBeforeDoubleClick kod blokundaki;
yol = ThisWorkbook.P.....
satırının şöyle değiştirilmesi yerinde olur.
yol = ThisWorkbook.Path & "\ÖZLÜK\" & Format(Target, "0000") & " - " & UCase(UCase(Replace(Replace(Target.Offset(0, 1), "i", "İ"), "ı", "I")))

 

[YasarPiskin]

Çok teşekkür eder, ellerinizden öperim.