Создание папки по наименованию из файла excel и переноса файла в него.

[ArhangelSM]

Здравствуйте. Как добиться создания папки с именем по ячейкам тут инн H8:J8, а название организации вот тут D17:J17. что бы название выглядело 2342342 Вимбильдан И внутрь папки переместить файл из которого взяли данные по наименованию.

 
Sub createFolders()
   Dim fso As Object
    Set fso = CreateObject("Scripting.FilesystemObject")
    For Each el In Range([H8:J8], [G1].Offset([D17:J17].End(xlDown).Row - 1, 0))
        If Not fso.FolderExists(ThisWorkbook.Path & "" & el.Value) Then
            fso.CreateFolder (ThisWorkbook.Path & "" & el.Value)
        End If
Next
End Sub

[Serge 007]

Здравствуйте

Создание папок по названию ячеек

[ArhangelSM]

Сообщение от Serge 007

Здравствуйте

Создание папок по названию ячеек

Там нет переноса файла в папку, и параметр копирования задается по 1 столбцу с диапазоном строк, а мне надо с диапазоном колонок, не пойму как совместить все это.

[Serge 007]

Сообщение от ArhangelSM

Там нет переноса файла в папку

Создание пути для сохранения файла

[ArhangelSM]

Сообщение от Serge 007

Создание пути для сохранения файла

Там нет копирования и потом удаления файла с прошлого расположения его.

[ArhangelSM]

Может кто помочь сделать?

[jillitil]

    With Range("C10:D13")
      For i = 2 To .Rows.Count
        MkDir  .Cells(i, 1) & "-" & .Cells(i, 2)
      Next
    End With

[ArhangelSM]

Сообщение от jillitil

    With Range("C10:D13")
      For i = 2 To .Rows.Count
        MkDir  .Cells(i, 1) & "-" & .Cells(i, 2)
      Next
    End With

В данном примере не учитывается что инн может быть в 1 колонки, а организация в 3х.

    With Range("C10") + ("D10:D13") тут нужно 2 значения 
      For i = 2 To .Rows.Count
        MkDir  .Cells(i, 1) & "-" & .Cells(i, 2) это создать папку, а как переместить файл туда откуда взяты данные по инн и орг
      Next
    End With

[shanemac51]

Сообщение от ArhangelSM

И внутрь папки переместить файл из которого взяли данные по наименованию.

вижу только один путь: создать макрос в личной книге(видимо)
- программно создать перечень откуда+что куда+что
- создать каталоги куда
- закрыть книги откуда+что
- копировать согласно списка
- проверить скопировалось ли в куда+что и удалить из откуда+что

конечно могут быть проблемы, если в книгах есть ссылки на другие книги