Создать функцию

[segail]

Здравствуйте.
Подскажите как создать функцию для данного кода, что бы он выполнялся при клике по кнопке CommandButton3

 Dim folder As String
    folder = Rep_Documents & "\V ГСМ " & Sheets("Отчет").Range("R1")
    
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    If Not fs.FolderExists(folder) Then
        fs.CreateFolder (folder)
    End If
    ' ...

    Application.DisplayAlerts = False
    
    Dim prevPath As String
    prevPath = ThisWorkbook.FullName
    ThisWorkbook.SaveAs folder & "\" & Sheets("Отчет").Range("R1") & ".XLSX", 51, ConflictResolution:=xlLocalSessionChanges
    Dim wb As Workbook
    Set wb = ThisWorkbook
    Workbooks.Open prevPath
    wb.Close
    
    Application.DisplayAlerts = True

[The_Prist]

Может я чего не так понял? Это у Вас функция? Начинается с Function? Если да,то вместо Function поставьте Sub и вешайте на кнопку.

[segail]

Да нет надо функцию. Что то вроде этого. Короче не знаю.

Function HasSpecialChars(str As String) As Boolean
‘ Код
End Function

[The_Prist]

Трудно сказать. Что Вы хотите получить результатом функции? И что должно передаваться в качестве параметра?
В любом случае функцию не вызвать напрямую кнопкой, необходимо сначала создать процедуру из которой вызывать функцию.

[segail]

Ухожу в дебри.
Короче у меня код который создает папку и подпапку, и сохраняет файл в подпапке.
Возникла необходимость что бы данный код сохранял данный файл еще и в папке.
Вот такие дела.

[doober]

Private Sub CommandButton1_Click()
 
  Dim folder, folder1 As String
 
 '  folder = Полный путь к папке(С:\FF)
  ' folder1 = "Подпапка"  имя подпапки
 On Error Resume Next
 
         ChDir (folder)
 
         If Err.Number = 0 Then
         
         Else
        
         MkDir (folder)
         End If
         
         ChDir (folder & "\" & folder1)
 
         If Err.Number = 0 Then
         
         Else
        
         MkDir (folder & "\" & folder1)
         End If
  ........................................................................................       
     ThisWorkbook.SaveAs folder & "\" & Sheets("Отчет").Range("R1") & ".XLSX", 51, ConflictResolution:=xlLocalSessionChanges
        
  ThisWorkbook.SaveAs folder & "\" & folder1 & "\" & Sheets("Отчет").Range("R1") & ".XLSX", 51, ConflictResolution:=xlLocalSessionChanges

................................................................................

End Sub

Проверяется наличие папки,если нет ошибка не равна 0 и папка создается,потом проверяется наличие под папки-нет,она создается
Дальше сохранение книги в папку и подпапку


Краткая справка по процедурам

Процедура типа Sub (подпрограмма) - универсальная процедура для выполнения различных
заданий в VBA. Только процедуры типа Sub можно выполнять независимо .
Кроме того, одна процедура типа Sub может вызывать(т.е. выполнять) другую.

Процедура типа F u n c t i o n (функция) тоже может выполнять любой VBA-оператор. Отличие
от процедур типа Sub состоит в том, что в данном случае вычисляется некоторое значение, ко-
торое возвращается в ту процедуру, откуда процедура типа Function была вызвана.

Отличия процедур типа Function от процедур типа Sub
Между процедурами типа Function и типа Sub есть одно существенное отличие:
в процедуре типа Function обязательно где-то должен присутствовать по крайней мере
один оператор, задающий значение этой функции.

Public Function Умножение(х As Integer, y As Integer)
Умножение=x*y
End Function1

Вызов функции
Результат=Умножение(4,3) получим 12