Vba information

[mattless1]

Hi all,

I've managed to get my project nearly finished with a lot of help from this forum and i thank you all who helped.

i have one last request thou, Which is to point me in the right direction. im trying to generate vba code which does this?
when i click on the save button it asks me to choose from a drop down list of 8 names. e.g BRN,POSS,EPOS which will be folders it creates before it saves the workbook in it.....??

I am already working with this

Sub FolderSaves()

Dim saveAsFileName As String
Dim folders As Variant, i As Integer, path As String

saveAsFileName = "C:\" & Year(Date) & "\" & MonthName(Month(Date)) & "\BRN\" & Format(Date, "mm.dd.yy") & ".xlsm"

folders = Split(saveAsFileName, "\")
path = folders(0)
For i = 1 To UBound(folders) - 1
path = path & "\" & folders(i)
If Dir(path, vbDirectory) = "" Then MkDir path
Next

Application.DisplayAlerts = False

' Save File
ActiveWorkbook.SaveAs fileName:=saveAsFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = True

' Popup Message
MsgBox "File Saved As:" & vbNewLine & saveAsFileName

End Sub

is this possible???

 

[ranman256]

Sub FolderSaves()
Dim saveAsFileName As String
Dim folders As Variant, i As Integer, path As String
Dim vDir, vFile

On Error Resume Next
vDir = "C:\" & Year(Date) & "\" & MonthName(Month(Date)) & cboBoxName
vFile = Format(Date, "mm.dd.yy") & ".xlsm"
MkDir vDir
saveAsFileName = vDir & "\" & vFile

Application.DisplayAlerts = False
   ' Save File
ActiveWorkbook.SaveAs Filename:=saveAsFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
  ' Popup Message
MsgBox "File Saved As:" & vbNewLine & saveAsFileName
End Sub

 

[mattless1]

Thanks, but it doesn't generate any folder & do i have to make the combo box?