да, ворд был бы идеален, буду изучать слияние, спасибо, пока приспособилась к exsel и сцепить.
Обязательно попробую слияние

Sanja, спасибо! поняла алгоритм, попробую что-то под себя сделать. Очень помогли. Не буду мучать гугл в поиске удаления.

Да, сложно спросить когда не знаешь что бывает макросы на это, Думала может способ для чайников, как в Ворд через разрыв страниц, например

Вот я распечатала, всё хорошо, без колонтитула на последней странице. Захожу в файл и там уже нет колонтитулов на всех страницах.

Sanja, спасибо. Работает. Но один раз, потом просто удаляет со всех страниц колонтитул.
И распечатать нельзя одну выбранную страницу, только весь лист

Sanja, пример. На листе тр.договор, страница 4

Sanja, да, всё верно, именно страницы. Обычный эксель, на одном листе 4 страницы, надо чтобы на 1,2,3 страницах был нижний колонтитул, а на 4 не было

Подскажите, как удалить колонтитул только с одного листа Exsel?

Hugo, .Find(What:="Март", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
       :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
       False, SearchFormat:=False).Activate

точно! так и выдал! не подумала про это . Спасибо!

Hugo, не знаю как записать именно это, но поищу. Спасибо что откликнулись

Ответ нашла прочитав про UsedRange.Find

.Cells(Worksheets(N1).UsedRange.Find(What:="Март", LookAt:=xlWhole).Row, "R")  

Здравствуйте.
Подскажите, использую такую запись для поиска строки содержащей название месяца
Как прописать чтобы искало точное совпадение.
Столкнулась с тем, что в файле есть сотрудник "Мартов" и данная запись находит его а не "Март"

Worksheets(N1).UsedRange.Find("Март").Row?

DANIKOLA, спасибо, СПАСИБО!  

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

Спасибо!

Не знаю насколько это локонично)) но вроде работает.

Никита Дворец, огромное спасибо за отклик. Немного проясняется решение. Но насколько я понимаю, то цикл формула ищет по столбцу D, а если в строке Е > значений чем в С, то работает не так.
Закономерность именно в столбце С, что суммировать остальные надо от сумму до следующей суммы.
Вот как задать цикл, если строка со значением, то далее суммируем до следующего значения...

Доброго времени суток
Имеются данные по акту - приход и расход, они в разных столбцах между актами пустые строки.
Никак не могу сообразить как задать диапазон суммирования?

Нужен именно макрос рассчитать остаток

Alex, супер! и радует что я тоже это придумала.

Sub SaveSheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

ActiveSheet.Copy After:=Worksheets("акт")

With ActiveSheet
 .Name = "Новый_Акт"
 .DrawingObjects.Delete
 With .UsedRange
   .Value = .Value
 End With
 .Move
End With
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & "Акт.xls", FileFormat:=xlWorkbookNormal
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Всем ОГРОМНОЕ спасибо за оперативную помощь!

Sanja, супер! так. Только в оригинальном файле остается лист не акт, в акт(2), я так понимаю тот, который создан для копирования

Доброго дня.
Имеется Файл-набивалка.
Как можно сохранить результат c данными в отдельный файл?
Нашла макрос, то так как формулы, то не переносит значения, а формулы. Можно как-то использовать специальную вставку?
Сохранить в формате xls

Дмитрий(The_Prist) Щербаков, да, понимаю. Пока у меня нет доступа к компьютеру, где не срабатывает. Переписала код, проверю и напишу что помогло или наоборот.Спасибо, что откликнулись.  

Да, буду пробовать найти
Есть такоеА почему у одних работает, а у других нет. Версия эксель?  

не знала, попробую

Sanja, вот вот и проблема в том, что когда запускаю посмотреть где ошибка нажимаю F8 смотрю и нет ошибки, нажимаю тот же макрос через кнопку и ошибка есть

Буду пробовать Select убрать

Здравствуйте
Есть файл с макросом. Я запускаю у себя на компьютере и всё работает. Копируем на другой компьютер тот же файл и ошибка "Ошибка *1004*  Метод Select из класса Range, но не у всех пользователей", удаленно захожу на этот компьютер запускаю макрос из Visual Basic и всё работает, через кнопку закускаю его же (проверила что именно он задан) и не работает, вот такая ошибка.
Где вообще искать проблему?

Спасибо ВСЕМ. Я не просто решила свою проблему, НО и узнала много нового.

Sergius, а если я данные из бокса потом использую для расчета?

Попробовала и если Y As Long, то всё равно ошибка 13 появляется при выходите из бокса. Если Y As Variant, тогда нету

Апострофф, спасибо. Так и сделаю.