Option Explicit
'Excel VBA Code by techtinktronics.net All rights reserved.
Private Sub Worksheet_Change(ByVal Target As Range)
    ' Only trigger if a single cell in Column A (1) is changed
    If Target.Column = 3 And Target.Cells.Count = 5 Then
        Application.EnableEvents = False ' Prevent infinite loops
     End If
        ' run the code with the selection

    If Target.Value = "Read & Copy the Sub-Folders of a Folder" Then
    SelectFolder1
            rfc1x
    Sheet1.Activate
    Range("C5").ClearContents
        Else
   ' Exit Sub
    End If
        
    If Target.Value = "New Folder Creation" Then
            SelectFolder1
            CreateUserFoldernfc1
    Sheet1.Activate
    Range("C5").ClearContents
        Else
   ' Exit Sub
    End If

    If Target.Value = "Folder Creation - Music" Then
    SelectFolder1
    selectedCode = "D"
            CreateFoldersFromColumn1
    Range("C5").ClearContents
    Exit Sub
    End If

    If Target.Value = "Folder Creation - Video" Then
    SelectFolder1
    selectedCode = "E"
            CreateFoldersFromColumn1
    Range("C5").ClearContents
    Exit Sub
    End If
    If Target.Value = "Folder Creation - Automation" Then
    SelectFolder1
    selectedCode = "F"
        CreateFoldersFromColumn1
    Range("C5").ClearContents
    Exit Sub
        End If

Application.EnableEvents = True
    
End Sub

Option Explicit
Public selectedPath As String
Public selectedCode As String

Sub SelectFolder1()
'Excel VBA Code by techtinktronics.net
    Dim folderPicker As FileDialog

    ' Initialize the Folder Picker dialog
    Set folderPicker = Application.FileDialog(msoFileDialogFolderPicker)

    With folderPicker
        .Title = "Select a Target Folder" ' Custom window title
        .AllowMultiSelect = False         ' Only allow one folder selection
        .InitialFileName = Application.DefaultFilePath ' Set starting location
        
        ' Show the dialog; if user clicks OK (-1), capture path
        If .Show = -1 Then
            selectedPath = .SelectedItems(1)
            ' Ensure path ends with a backslash for future use
            If Right(selectedPath, 1) <> "\" Then selectedPath = selectedPath & "\"
            MsgBox "You selected: " & selectedPath
        Else
            MsgBox "Selection Cancelled by user."
        End If
    End With
End Sub

Sub CreateUserFoldernfc1()

'Excel VBA Code by techtinktronics.net
    Application.EnableEvents = False
    Dim folderName As String
    Dim fullPath As String
    
    ' 1. Ask for the folder name
    folderName = InputBox("Enter the name of the new folder:", "Create Folder")
    
    ' Exit if the user cancels or enters nothing
    If folderName = "" Then Exit Sub
    
    ' Define the full path (using the current workbook's location)
    fullPath = selectedPath & "\" & folderName
    
    ' 2. Check if the folder exists using the Dir function
    ' vbDirectory attribute ensures we are looking for a folder
    If Dir(fullPath, vbDirectory) = "" Then
        ' 3. Create the folder if it does not exist
        MkDir fullPath
        MsgBox "Folder created successfully at: " & fullPath, vbInformation
    Else
        MsgBox "Folder already exists.", vbExclamation
    End If
    Application.EnableEvents = True
End Sub

Sub CreateFoldersFromColumn1()
'Excel VBA Code by techtinktronics.net
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim folderPath As String
    Dim newFolder As String
    
    Set ws = ThisWorkbook.Sheets("Data") ' Change to your sheet name
    folderPath = selectedPath
    
    ' Find the last row with data in the specified column
    lastRow = ws.Cells(ws.Rows.Count, selectedCode).End(xlUp).Row
    
    For i = 2 To lastRow ' Starting at row 2 to skip headers
        newFolder = folderPath & ws.Cells(i, selectedCode).Value
        
        ' Check if cell is not empty and folder does not already exist
        If ws.Cells(i, selectedCode).Value <> "" Then
            If Dir(newFolder, vbDirectory) = "" Then
                MkDir newFolder
            End If
        End If
    Next i
    
    MsgBox "Folders created successfully!", vbInformation
End Sub