Матраскин, что-то вроде) хотя с формой1 можно и не заморачиваться... можно просто лист Форма1 (у меня там все формулы верно проставлены вроде) копировать в новый файл, но без формул... во как... и это при нажатии одной лишь кнопочки - вы ее правильно нарисовали))))
Матраскин, что-то вроде) хотя с формой1 можно и не заморачиваться... можно просто лист Форма1 (у меня там все формулы верно проставлены вроде) копировать в новый файл, но без формул... во как... и это при нажатии одной лишь кнопочки - вы ее правильно нарисовали))))nastenoksi
На примере с бурыми медведями нарисовала кой-что, зацените ниже))) осталось придумать как форму1 на отдельный лист копировать без формул и еще галочку надо воткнуть.... и еще у меня кнопочка "Сохранить" как-то через раз "жмакается".. можно исправить?
уффф... и все-таки не такая уж я и блондинка.... даже с температурой =))))
На примере с бурыми медведями нарисовала кой-что, зацените ниже))) осталось придумать как форму1 на отдельный лист копировать без формул и еще галочку надо воткнуть.... и еще у меня кнопочка "Сохранить" как-то через раз "жмакается".. можно исправить?
уффф... и все-таки не такая уж я и блондинка.... даже с температурой =))))nastenoksi
Sub Мяу() Application.ScreenUpdating = False Sheets("Форма1").Copy Sheets("Форма1").UsedRange.Value = Sheets("Форма1").UsedRange.Value With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ThisWorkbook.Path & "\" If .Show = -1 Then Application.DisplayAlerts = False .Execute ActiveWorkbook.Close False Application.DisplayAlerts = True End If End With Application.ScreenUpdating = True End Sub
[/vba]
Матраскин, [vba]
Код
Sub Мяу() Application.ScreenUpdating = False Sheets("Форма1").Copy Sheets("Форма1").UsedRange.Value = Sheets("Форма1").UsedRange.Value With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ThisWorkbook.Path & "\" If .Show = -1 Then Application.DisplayAlerts = False .Execute ActiveWorkbook.Close False Application.DisplayAlerts = True End If End With Application.ScreenUpdating = True End Sub
Однако у меня теперь еще одна задачка назрела... Как в листе Форма в блоке Ассортимент прицепит кнопку "добавить строку", чтобы после ее нажатия в списке ниже появлялась строчка с выпадающим списком (список привязан как в строках выше). Также при этом эта строка должна появляться в блоке Расчеты и в Форме1. И соответственно добавить еще одну кнопку (или другую форму), чтобы при ненадобности пустые строки удалять? Это тоже очень важно, т.к. иногда список ассортиментных позиций бывает больше 15, но чаще 2-5. Чтобы в Вводной форме и тем более в печатной в этом случае не висели пустые ячейки... Вот, заранее спасибо!
Однако у меня теперь еще одна задачка назрела... Как в листе Форма в блоке Ассортимент прицепит кнопку "добавить строку", чтобы после ее нажатия в списке ниже появлялась строчка с выпадающим списком (список привязан как в строках выше). Также при этом эта строка должна появляться в блоке Расчеты и в Форме1. И соответственно добавить еще одну кнопку (или другую форму), чтобы при ненадобности пустые строки удалять? Это тоже очень важно, т.к. иногда список ассортиментных позиций бывает больше 15, но чаще 2-5. Чтобы в Вводной форме и тем более в печатной в этом случае не висели пустые ячейки... Вот, заранее спасибо!nastenoksi
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
