Seçili Olan hücrelerden Klasör oluşturma

[sener_izmir]

Merhaba;
Excel tablosunda mausum ile istediğim hücreleri seçtikten sonra 'KLASÖR OLUŞTUR' butonuna basmak ve ardından gözat penceresi çıksın istiyorum. Dizini seçtikten sonra tamam butonuna basınca seçtiğim hücrelerdeki isimlerden klasör oluşmasını istiyorum. Yardımcı olabilirseniz sevinirim herkese iyi çalışmalar

 

[PLİNT]

Merhaba;
Excel tablosunda mausum ile istediğim hücreleri seçtikten sonra 'KLASÖR OLUŞTUR' butonuna basmak ve ardından gözat penceresi çıksın istiyorum. Dizini seçtikten sonra tamam butonuna basınca seçtiğim hücrelerdeki isimlerden klasör oluşmasını istiyorum. Yardımcı olabilirseniz sevinirim herkese iyi çalışmalar

Merhaba
Aşağıdaki kodları deneyiniz;

Private Sub CommandButton1_Click()
Dim ş As Boolean
Dim a As Range
Dim yol As String
Dim klasorsec, ds
Set ds = CreateObject("Scripting.FileSystemObject")
Set klasorsec = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
On Error Resume Next
yol = klasorsec.Items.Item.Path
If yol <> Empty Then
For Each a In Selection.Cells
ş = ds.FolderExists(yol & "\" & Trim(a.Text))
If ş = True Then
If Trim(a.Text) <> "" Then MsgBox a.Text & " KLASÖRÜ ZATEN MEVCUT"
Else
If Trim(a.Text) <> "" Then MkDir yol & "\" & Trim(a.text)
End If
Next
End If
End Sub