[Yardım]  Hücreden Aldığı İsimde Klasör Oluşturmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Hücreden Aldığı İsimde Klasör Oluşturmak

İleti#1)  sentooki » 12 Oca 2020 22:32

Merhaba;
Çalışma sayfasında yer alan hücrelerden birinde (örneğin B3 hücresinde) tarih var (01.02.2003 gibi). Burada yer alan "yıl"ı (yani 2003) isim olarak alan bir klasörü D sürücüsünde (D:\) oluşturmak istiyorum. Ayrıca yine burada yer alan "ay"ı (yani Şubat) 2003 klasörünün içinde yer alan bir başka klasör olarak oluşturmak istiyorum. Son olarak üzerinde çalıştığım excel dosyası, oluşan bu yeni klasörün içine D5 hücresinde yazılı olan isim (örneğin "Patates") ile kayıt olmalı. Eğer; halihazırda klasörler var ise, yeni klasör oluşturmasın. Sadece excel dosyasını D5 hücresinde yazılı olan isim ile kayıt etsin.
Örneğin D:\2003\Şubat\Patates.xlsm

Yardımlarınız için şimdiden teşekkür ederim.
Kullanıcı avatarı
sentooki
 
Kayıt: 12 Oca 2020 21:52
Meslek: Öğrenci
Yaş: 39
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Hücreden Aldığı İsimde Klasör Oluşturmak

İleti#2)  elfinito » 13 Oca 2020 15:15

Merhaba, en ilkel haliyle aşağıdaki gibi deneyebilirsiniz. İyi çalışmalar.

Kod: Tümünü seç
Sub sentooki()

kok = "D:\" & Right(Range("B3"), 4)
dizin = Format(Range("B3"), "mmmm")
dosya = Range("D5") & ".xlsm"

Set dzn = CreateObject("Scripting.FileSystemObject")

If dzn.folderexists(kok) = False Then dzn.createfolder kok
If dzn.folderexists(kok & "\" & dizin) = False Then dzn.createfolder kok & "\" & dizin

adrez = kok & "\" & dizin & "\" & dosya

ActiveWorkbook.SaveAs adrez
   
End Sub
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 17:03
İleti: 79
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Hücreden Aldığı İsimde Klasör Oluşturmak

İleti#3)  sentooki » 17 Oca 2020 08:15

Değerli elfinito hocam.

Kod harika çalışıyor. Emeğinize sağlık. Çok Teşekkür ederim.

Çalıştığım yerdeki internet kısıtlamaları nedeniyle (siteye giriş yapmada sıkıntı yaşadığımdan) bir türlü teşekkür edememiştim. Gecikme için affınızı rica ederim.
Kullanıcı avatarı
sentooki
 
Kayıt: 12 Oca 2020 21:52
Meslek: Öğrenci
Yaş: 39
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Hücreden Aldığı İsimde Klasör Oluşturmak

İleti#4)  elfinito » 21 Oca 2020 10:43

Estağfurullah, işinizi gördüyse ne mutlu.
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 17:03
İleti: 79
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe