Cria automaticamente pastas usando entradas de campos do Excel

Question

Eu preciso gerar pastas contendo determinadas entradas de campo do Excel:

Alémdisso,precisoacrescentarumadataaonomedapastacombasenessaentrada

Portanto,seeutiveratabeladoExcelacima,precisariaqueoseguinteconjuntodepastasfossegeradonomesmodiretório:

Isso é possível usando uma macro? Além disso, caso eu adicione outra entrada como eu geraria outra pasta somente para essa entrada ; por exemplo eu adiciono outro projeto CWO-1106:

Basicamente, eu gostaria de continuar atualizando a planilha do Excel e criar pastas apenas para as novas entradas

Qualquer ajuda seria apreciada. Obrigado!

    

Answer 1

Aqui está a macro.

• Verifique se a planilha com as datas de ID do projeto e Início está em exibição (selecionada) antes de executar a macro.

• Defina a pasta onde você deseja criar essas pastas em ParentFolderPath

  Sub CreateFolders()
  
  'Variable definations
  Dim FolderListRange As Range
  Dim FolderRange As Variant
  Dim FolderName As String
  Dim ParentFolderPath As String
  
  On Error GoTo Handle
      ' Set the Folder where the individual folders should be created
      ParentFolderPath = "Folders"
  
      Set FolderListRange = ActiveSheet.Range("A2:A64000").SpecialCells(xlCellTypeConstants)
  
      For Each FolderRange In FolderListRange
          If FolderRange.Offset(0, 1).Value = "" Then GoTo Continue
  
          FolderName = ParentFolderPath & "\" & FolderRange.Value & "-" & Format(FolderRange.Offset(0, 1).Value, "dd-mm-yyyy")
  
          If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then
              FileSystem.MkDir FolderName
          End If
  
  Continue:
      Next
  
  Handle:
  End Sub