Save as

[and150382]

Спасибо, а справку я скачал с excelworld.ru

[and150382]

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

[IgorGO]

Вы сначала копируете лист в новую книгу, потом сохраняеете ее с новым именем, потом паритесь, как там запустить макросы, которые не скопированы.
Возможно проще исходную книгу скопировать с новым именем, удалить лишние листы. Тут и макросы и данные остались, можно даже в Гондурас отослать и там будет работать. Хотя, конечно, "не ту страну назвали Гондурасом"

[and150382]

А модуль который переводит цифры в текст нельзя сделать чтобы копировался?

[and150382]

Подскажите как сделать чтобы модуль тоже сохранялся и переводил в сохраненной книге числа в текст?

Код сохранения

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Dim FName As String, ws As Worksheet, a(), el
    
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите папку для сохранения"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub Else FilePath = .SelectedItems(1) & "\"
        FName = .SelectedItems(1) & "\Шипмент" & Range("FM6") & ".xls"
        a = Worksheets(1).[a1:GI113].Value
        Worksheets(1).Copy
        With ActiveWorkbook
        For Each el In .Sheets(1).Shapes: el.Delete: Next 'удаляем кнопки
        .Sheets(1).[a1:GI113].Value = a
        .SaveAs Filename:=FName, FileFormat:=xlExcel8
        .Close SaveChanges:=False
        End With
    End With
    
    
End Sub

[IgorGO]

Подскажите как сделать чтобы модуль тоже сохранялся

вообще-то подсказка 3-я сообщениями выше, возможно там написано нерасборчиво, повторю:

исходную книгу скопировать с новым именем, удалить лишние листы. Тут и макросы и данные остались

и далее по тексту
есть подозрение, что Вас не подсказка интересует, а готовый кусок кода?

[Hugo121]

Я это же предлагал 10-ю сообщения ранее (#26).

[RAN.]

Продаю идею
Помещаете код в модуль листа, и вместе с ним копируете.
Адреса и функцию поставьте свои.

Private Function Текст_Число(Число As Double) As String
    If Число = 1 Then
        Текст_Число = "Сто"
    Else
        Текст_Число = "Двести"
    End If
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Число#
    If Target.Address(0, 0) = "A1" Then
        Application.EnableEvents = False
        Число = [a1]
        [a1] = Текст_Число(Число)
        Application.EnableEvents = True
    End If
End Sub

[and150382]

Есть небольшая проблема. При сохранении в сохраненной книги исчезают данные в ячейках V10 и V14, которые занесены через форму.
Скажите как решить эту проблему?
Остальное работает так как надо