Excel Sayfasından Klasor Oluşturma

[suroguz]

Selamlar Arkadaşlar
Excel sayfasında bir hücreye tıklayınca karşıma mesaj kutusu gelsin
Mesaj kutusuna yazdığım isimde depo olarak kullanacağım bir klasör oluşturulsun.
Bu işlem excel sayfasındaki hücreye her tıklamamda gerçekleşsin.
Excelde sınır yoktur sloganı ile herkese saygı ve sevgilerimi sunarım.

 

[Ali]

Mesaj kutusu uyarı içindir.Bunun için Inputbox kullanılır. C'nin içerisine arşiv adlı bir klasör oluşturun ve Excel sayfanızın kod bölümüne aşağıdaki kodları ekleyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ad = InputBox("ismi girin")
ThisWorkbook.SaveAs "c:\" & [ad] & ".xls"
End Sub

 

[suroguz]

Excel Sayfasından Klasör Oluşturma

Sayin Ali
Gönderdiğiniz kodu insert-module deyip yapıştırdık.
Ama nasıl kullanılacağını çözemedik.
Daha detaylı anlatabilirmisiniz. Veya örnek bir dosya gönderebilirseniz seviniriz.
Saygı ve sevgilerimi sunarım.

 

[Ali]

Bu işlem excel sayfasındaki hücreye her tıklamamda gerçekleşsin.

İstediğiniz sayfaya bağlı bir olaydır bu nedenle modüle değil sayfanın kendi kod bölümüne yapıştırmalısınız.

Sayfanızın sayfa adı sekmesini sağ tuş ile tıklayıp kod görüntüle kısmını seçtikten sonra açılan VBA penceresinin içerisine yapıştırın.

Sayfanız içerisinde çift tıkladığınızda inputbox penceresi açılacak ve dosya adı vermenizi isteyecektir.

 

[suroguz]

Excelde User Form İle KlasÖr OluŞturma

Sayın Ali Bey
İlginiz için çok teşekkür ederiz.
Ekte gönderdiğim dosyada isteğimizi daha net açıklamaya çalıştık.Gönderdiğiniz dosyada imput boxla içindeki sayfanın kopyası oluşturuluyor.
Biz şöyle birşey istedik. Butona tıklayacağız. İmput Box açılacak .Yazdığım isimde c veya d klasöründe dosya değilde klasör oluşturacak. Olduğum dosyayı kaydetmeyecek.Bu aşamayı hallettikten sonra başka bir sorum daha olacak.
Yardımlarınız için şimdiden çok teşekkürler.
Saygılar;

 

[Ali]

Klasör için

Private Sub CommandButton1_Click()
On Error Resume Next
ad = InputBox("Klasör ismi girin")
MkDir "c:\" & [ad]
End Sub

 

[suroguz]

Excel sayfasından klasör oluşturma

Sayın Ali Bey
İlginiz için çok teşekkür ederim.
Yazdığınız makroyu ekteki dosyaya uyguladım. İstediğim gibi klasör oluşuyor. Bu şekilde diyelim beş altı klasör oluşturdum. Şimdi bir dosyada iken o dosyayı bu klasörlerden herhangi birine farklı kaydet olarak kaydetmek isytiyorum.Bunun içinde bir liste açılmasını ve o listeden oluşturulan klasörlerin gözükmesi ve seçilenin içine kayd yapılmasını istiyorum.
Yardımcı olursanız çok seviniriz.
Saygılar ve sevgiler;

 

[Ali]

Aşağıdaki linkleri inceleyiniz.

http://www.excel.web.tr/showthread.php?t=14847

http://www.excel.web.tr/showthread.php?t=15545