Здравствуйте, подскажите что поменять в макросе поменять что б он запрашивал путь где создавать папки, не в директории где находится активный файл, а в необходимую, они всегда могут быть разные
Код
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
'---------------------------------------------------------------
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
folder.Show
getpath = folder.SelectedItems(1)
'---------------------------------------------------------------
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(getpath & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (getpath & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub