seçili olan hücredeki veriyi klasör olarak kayıt yapmak

[clentuls]

seçili olan hücreyi nasıl klasör yapabilirim? müşteri listem var. her hücredeki müşteri için bir kalsör yapmak istiyorum nasıl yapabilirim yardımcı olucak biri varsa sevinirim..... şimdiden teşekkürler...

 

[demirtas]

Sn. Clentuls

Vba üzerinden yeni klasör oluşturmak için bir kod buldum yardım menüsünü kullanarak.. Dosya yolunu belirtirseniz ilgili klasörü oluşturuyor Buradan hareketle müşterileriniz için yeni klasörler oluşturabilirsiniz

Yine de örnek bir dosya eklerseniz, daha çok yardım alabileceğinize eminim..

kod:
Sub deneme()
MkDir "C:\Documents and Settings\...\Desktop\Yeni Klasör"
End Sub

 

[Ferhat Pazarçevirdi]

Ekteki örneği inceleyiniz. Seçilen hücrelerin içeriğine göre klasör oluşturur. Eğer, bu isim de bir klasör zaten varsa uyarı verir ve klasör açmaz

Sub KlasorOlustur()
Dim YasakKarakterler() As Variant
Dim Ctrl As Range
Dim i%, j%
Dim KlasorAdi As String, Yol As String, KlasorYolu As String
Dim Aranan As String
Dim FSO As Object
YasakKarakterler = Array("*", ";", "+", "=", "/", "?", "<", ">", "[", "]")
For Each Ctrl In Selection
    If Len(Ctrl.Text) <> 0 Then
       For i = 1 To Len(Ctrl.Text)
           Aranan = Mid(Ctrl.Text, i, 1)
           For j = 0 To 9
               If YasakKarakterler(j) = Aranan Then
                  MsgBox Ctrl.Text & " değeri; KLASÖR İSMİ için uygun değil", vbCritical, "UYARI"
                  GoTo f1
               End If
           Next j
       Next i
    Else
       MsgBox Ctrl.Address & vbCrLf & "alanı boş olduğu için Klasör oluşturulamıyor", vbInformation, "UYARI"
       GoTo f1
    End If
KlasorAdi = Ctrl.Text
Yol = ThisWorkbook.Path & "\"
KlasorYolu = Yol & KlasorAdi
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(KlasorYolu) = False Then
   FSO.createfolder (KlasorYolu)
Else
   MsgBox KlasorAdi & " adında bir klasor zaten var", vbCritical, "UYARI"
End If
f1:
Next
Set FSO = Nothing
End Sub