Stopping Next i and adding Message Box

[bloomingcarrot]

Hi there!! Still pretty new to VBA code but learning a lot! I have a seemingly easy task that I am having difficulty figuring out. What I would like to make happen is to create folders based on cell values, but if there is a row without anything I would like the action to stop and then a message box pop to say the task is complete. The code I have below creates the folders but continues even when the specified cell is empty. Hope that makes sense.

Any and all help is greatly appreciated!!

Sub MakeFoldersVERSIONING()
Dim FldrName As String, dirName As String

On Error Resume Next
dirName = "GFXM1:STUDIO:xtest:" & Format$(Date, "mmddyy"):
MkDir dirName
 
For i = 8 To 25
   FldrName = Cells(i, 1).Value & "_" & Cells(i, 2).Value
   MkDir dirName & Application.PathSeparator & FldrName
   Next i
   If Cells(i, 3).Value = "" Then MsgBox ("Versioning Folder Creation Complete!")
Exit Sub
  
End Sub

[xladept]

Maybe:

Sub MakeFoldersVERSIONING()

Dim FldrName As String, dirName As String

On Error Resume Next
dirName = "GFXM1:STUDIO:xtest:" & Format$(Date, "mmddyy"):
MkDir dirName
 
For i = 8 To 25
    If Cells(i, 3).Value = "" Then
    MsgBox ("Versioning Folder Creation Complete!")
    Exit Sub: End If
    If Cells(i, 1) = "" Or Cells(i, 2) = "" Then Exit Sub
    FldrName = Cells(i, 1).Value & "_" & Cells(i, 2).Value
    MkDir dirName & Application.PathSeparator & FldrName
    Next i
  
End Sub

[bloomingcarrot]

Thanks so much for replying! I tried this code but it now only creates the dated folder but not the other folders within or have the message box pop up. Any suggestions? I've been playing with it but haven't had any ideas.

Thank you!!

[xladept]

I'll look at it again tomorrow>

[xlbiznes]

try this

Sub MakeFoldersVERSIONING()
Dim FldrName As String, dirName As String

On Error Resume Next
dirName = "GFXM1:STUDIO:xtest:" & Format$(Date, "mmddyy"):
MkDir dirName
 
For i = 8 To 25

   If Cells(i, 3).Value = "" Then 
   MsgBox ("Versioning Folder Creation Complete!")
   Exit Sub
   end if

   if cells(i,1) <> "" and cells(i,2) <> "" then
   FldrName = Cells(i, 1).Value & "_" & Cells(i, 2).Value
   MkDir dirName & Application.PathSeparator & FldrName
   end if

Next i


  
End Sub

[bloomingcarrot]

That worked perfectly!!! Thank you!!!

[xlbiznes]

you are welcome, glad i could help.