Вопрос по Excel

<Slavian>
а где писать в Module1 ? (я так себе разбираюсь )


не работает...

vikas:

<Slavian> а где писать в Module1 ? (я так себе разбираюсь ) не работает...

В Excel-е жми Alt-F11, в разделе VBAProject (PERSONAL.XLSB) в подразделе Modules нажми правой кнопкой и выбери Insert - Module.


Далее вставь текст, который привел <Slavian>, потом закрой VBA.

Далее в Excel жми Alt-F8, Options - Shortcut keys


Далее нажатием комбинации клавиш запускай этот макрос. Только что сделал для пробы на кнопку Ctrl-Shift-Q, у меня работает.

<Slavian>
uRRY_001

Спасибо , работает

У кого то выходной, а у меня работа. Чтоб ее облегчить, заморочился в экселе таблицу сводную сделать. В одной из частей этой таблицы возник вопрос (пример этой части на скрине)Какую формулу поставить в столбце G1, чтоб выполнялось следующее условие: если в F1 стоит "нет", то нужно к ближайшей наступающей дате (сегодняшний день учитываем) из диапазона A1-E1 прибавить 44 дня. Если "да", то ячейка должна остаться пустой (или ноль).
В примере я столбец G заполнил вручную, как должен считать.
Помогите кто чем.
Сисы-кисы традиционна.

Инсайд83:

У кого то выходной, а у меня работа. Чтоб ее облегчить, заморочился в экселе таблицу сводную сделать. В одной из частей этой таблицы возник вопрос (пример этой части на скрине) Какую формулу поставить в столбце G1, чтоб выполнялось следующее условие: если в F1 стоит "нет", то нужно к ближайшей наступающей дате (сегодняшний день учитываем) из диапазона A1-E1 прибавить 44 дня. Если "да", то ячейка должна остаться пустой (или ноль). В примере я столбец G заполнил вручную, как должен считать. Помогите кто чем. Сисы-кисы традиционна.

У тебя не правильно заполнен столбец G исходя из твоих же условий
А вообще бери файл и иди с ним сюда

Dhunter
Хм, проверил, вроде все правильно.
За ссылку спасибо, но думал тут кто поможет.

Инсайд83:

из диапазона A1-E1

Опечатался, из диапазона A1:E1 конечно же, если принципиально

Вопрос решен)

ДОбрый день!
Подскажите как решить, код в конце выдает ошибку, На этапе выбираю имя файла и нажимаю сохранить вылазит: Object required

Сам код:
Sub Macros01()
'1 Сохраняем лист и отправляем в новую книгу
ThisWorkbook.ActiveSheet.Copy Before:=Workbooks.Add.Worksheets(1)
Dim fName As Variant

'~~> Offer user to Save the file at a particular location
fName = Application.GetSaveAsFilename & wb.Path & "\" & s.Name & ".xlsb"

End Sub