Save as

[and150382]

Уважаемые программисты, ну подскажите кто знает

[Hugo121]

Про "чтоб не пропадало" уже говорили... Да и не пропадало там ничего - просто не работало...
Попробуйте так:

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

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

[and150382]

Макрос вообще то не нужен. Нужны просто данные которые я забил через форму( то есть сохраняю как и чтобы данные остались в ячейках). В форме есть модуль , который преобразует числа в текст. Если сохраняю в формате xls ,то в ячейках в которых число должно преобразоватьс
я в текст- появляется имя. Вот для чего нужно сохранить с макросами.

СПАСИБО БОЛЬШОЕ!!!! ВСЁ РАБОТАЕТ

[Hugo121]

Так и надо было сразу говорить, что не данные пропадают, а формулы (UDF) после копирования листа дают ошибку. И про форму можно было вообще упомянуть вскользь - она вообще роли не играет.
"Макрос опять выдаст ИМЯ" - вы так уверенно об этом говорите... Ну ну...
Есть ещё другой вариант выхода из ситуации - но для этого нужно знать весь процесс в целом. Нам это неведомо...
В общем, Вы совсем не в теме что там происходит, и где что делает какой макрос... Тупо берите и используйте. Если что-то не годится - вот конкретно это "что-то" предельно ясно и опишите.

[and150382]

Hugo121 извините за преждевременные выводы. Я в vba новичок, пробую разобраться и изучаю vba, читаю справки. Ваш код работает, то что нужно.

[Hugo121]

Ок.
В общем так - если бы код UDF был в надстройке - формула бы работала в таком виде в любом файле на этом компьютере (вернее на этом компьютере под этим юзером), и лист можно было бы копировать как есть. Но на другой машине уже была бы ошибка.
Так что если сама эта функциональность дальше не нужна - пользуйте код, только думаю можно сохранять как xlsx или в формате 2003 xls (измените код). Там бы ещё тогда и кнопки нужно поудалять - они ведь становятся лишними.
Если функциональность нужна всегда и всюду - тогда вероятно проще всего сохранить файл под другим именем и затем удалить в нём лишние листы. Сложнее с формой если она не нужна... Но это другой вопрос. И думаю что это всё не нужно

[and150382]

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

[Hugo121]

Ну тогда так - в xls и без кнопок:

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

Правда макрос там остаётся. Если сохранять в xlsx - и его не будет.

Заметил недоработку -

Масса груза (брутто) шестьсот восемьдесят девять 25689,000

двадцать пять тысяч не поместилось - есть, но не видно!

[and150382]

Спасибо большое, буду теперь разбирать по справке как это все работает.

[Hugo121]

В справке про массивы кажется ничего нет...
Работает так - взяли все значения диапазона в массив (можно запомнить в переменные только нужные ячейки, но кода будет больше, хотя памяти понадобится меньше, или брать в массив только нужный диапазон поменьше), скопировали лист (создалась новая книга), удалили все кнопки, выгрузили на место все данные (затёрли всё что там есть запомненным), сохранили, закрыли.