Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Особый колонтитул только для последней страницы, вставить доп. текст в колонтитул последней стироки
 
А нужно, чтобы выделялась вот эта ячейка (выделена красным):
Особый колонтитул только для последней страницы, вставить доп. текст в колонтитул последней стироки
 
Большое спасибо за помощь!
Цитата
JayBhagavan написал:
cells.SpecialCells(xlCellTypeLastCell).EntireRow.Cells(1)
Если я правильно понял, вот такой макрос должен выделять нужную мне ячейку (левая ячейка, последняя строка, последняя страница):
Код
Sub Макрос2()
    Cells.SpecialCells(xlCellTypeLastCell).EntireRow.Cells(1).Select
End Sub

Но получается, что он выделяет крайнюю левую ячейку самой нижней строки, в которой были введены какие-либо значения.

Я что-то сделал не так?
Изменено: olegpetr - 12.12.2018 14:42:50 (Не приложил файл)
Особый колонтитул только для последней страницы, вставить доп. текст в колонтитул последней стироки
 
Извиняюсь за задержку с ответами, на работе завал

Да, видно ходом своих мыслей запутал всех и сам запутался
Цитата
Sanja написал:
Не понятно, что же все таки нужно? Толи подставлять ячейку, из которой брать данные, толи проверять является ли страница последней
Проверить, является ли страница последней. И далее вставить в нижний колонтитул только этой страницы надпись "Вася Иванов". Подставлять данные из ячейки не нужно, это просто ход мысли описал зачем-то.

Цитата
JayBhagavan написал:
Адрес верхней левой ячейки последней страницы (сверху вниз) текущего листа:
1msgbox activesheet.HPageBreaks(activesheet.HPageBreaks.Count).Location.Address
Хм, отличный вариант! А как будет выглядеть, если нужна нижняя левая ячейка последней страницы? В принципе можно эту подпись написать не в колонтитуле, а на последней строке последней страницы.

Цитата
_Igor_61 написал:
Адрес верхней левой ячейки последней страницы (сверху вниз) текущего листа:Код ? 1msgbox activesheet.HPageBreaks(activesheet.HPageBreaks.Count).Location.Address
В этом случае надпись будет же на всех страницах, а нужно только на последней. С редактированием (как и с ручным созданием) макросов к сожалению не знаком. Если подтолкнете или направите, что именно и на что подправить - буду признателен.
Особый колонтитул только для последней страницы, вставить доп. текст в колонтитул последней стироки
 
Приветствую, форумчане!

Решил и я потрепать ваши умы, хватит только читать =)
Собственно задача - на последней странице генерируемого документа (количество страниц варьируется от 1 до 20) нужно чтобы автоматически добавлялась надпись "Исполнитель: Петров А.И."<br><br><br><br> (после "Исполнитель: Петров А.И." обязательно должно быть 4 переноса строки).

Прогуглив, нашел полурешение, но не могу подстроить под себя ввиду отсутствия знаний.
А нашел вот что:

В колонтитуле прописать функцию:
Код
=ЕСЛИ(ЛИСТ()=СТРАНИЦЫ;"Исполнитель: Петров А.И.";""),

где "СТРАНИЦЫ" - это присовенное имя =ПОЛУЧИТЬ.ДОКУМЕНТ(50+0*ТДАТА()) - выдает общее количество страниц

*/Первоисточник
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=8069&amp...
*/

Но оказалось что в колонтитул нельзя вставить функцию, и его редактировать можно только через vba.
Нашел макрос:
Код
Sub FooterFrom()'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

Он работает отлично, но каждый раз нужно указывать ячейку, из которой брать данные, что в моем случае не удобно. Помогите отредактированть макрос так, чтобы он автоматически проверял является ли страница последней и вставлял в нее подпись.

Заранее благодарю.
Автоматически вставить новую таблицу поверх старой без "затирания" прочих данных на листе., Помогите с решением проблемы переноса таблицы из одного листа на другой, поверх старой таблицы, с другим количеством строк.
 
Привет всем!

Такой вопрос:
Есть таблица с данными. Количество строк всегда меняется.
Задача - перенести некоторые столбцы таблицы с одного листа на другой, но таким образом, чтобы на новом листе не затерлись другие данные, и чтобы это происходило автоматически (вручную уже порядком поднадоело).

Например:

Таблица состоит из 3 строк и 4 столбцов:
А1, В1, С1, D1
А2, В2, С2, D2
А3, В3, С3, D3

Нужно перенести, например, столбцы А и D данной таблицы на другой лист, начиная с ячейки А5. Но на другом листе в ячейке А5 находится старая таблица, вставленная ранее, а под ней прочие данные.
Нужно вставить новую таблицу вместо старой (кол-во строк в новой может быть как больше, так и меньше старой). При том так, чтобы старая таблица удалилась полностью, а новая не затерла прочие данные под таблицей.

Возможно ли обойтись без макросов (к сожалению не умею пока их писать)? Думал переносить все данные в ворд, нчерез слияние, но пока тоже не понимаю как это сделать, так как файлов с этими таблицами много, и постоянно появляются новые. И тогда каждый раз придется указывать новый файл для слияния. А это отнимает время. Проще даже в ручную сделать.

На мой взгляд задача такая:
1) определить количество строк в таблицах на первом листе и на втором.
2) полностью удалить все строки старой таблицы на Листе 2.
3) На листе 2 вставить пустые строки, начиная с ячейки А5, в количестве, равном количеству строк в таблице на листе 1
4) вставить необходимые данные из листа 1 в лист 2.

Но как это сделать - пока не соображу. Может ваши светлые головы помогут. Надеюсь понятно объяснил. На всякий случай приложил файл-пример с краткими пояснениями.
Изменено: olegpetr - 13.06.2018 16:37:28
Страницы: 1
Наверх