Необходимо в первом столбце «A» программно кодом найти последнюю ячейку с заполненными данными (после которой по столбцу вообще нет никаких данных) и в последующей пустой ячейке крайне левого столбца «A» выполнить только код ActiveSheet.Paste — код по вставке данных.

(читать всё…)

Задача казалось бы легкая есть данные (для примера в столбцах A:G) и нужно скопировать данные одной строки и вставить в определенную-другую строку этого же листа в диапазон например H:N или O:U и тд.
Трудность заключается в том что строки каждый день добавляются и для работы макросу нужно «отталкиваться» от последней строки с данными(снизу) поэтому прошу помочи разобраться как это сделать.

Для примера я выбрал пару действий чтоб понять сам принцип.. допустим надо:

с пред-пред-предпоследней строки (в примере 7-я строка) скопировать A:G и вставить в пред-предпоследнюю (в примере 8-я) в H:N
с пред-предпоследней строки (8-я) скопировать A:G и вставить в предпоследнюю (9-я) в H:N
с пред-пред-пред-предпоследней строки (6-я) скопировать A:G и вставить в пред-пред-предпоследнюю (7-я) в O:U
с пред-пред-предпоследней строки (7-я) скопировать A:G и вставить в предпоследнюю (9-я) в O:U

(читать всё…)

Имеется документ с прописанной гиперссылкой на url с фото.
Как сделать чтобы в столбце было не слово «фото» с гиперссылкой на url фото, а просто сам адрес в соседнем столбике?

(читать всё…)

Нужна программка которая бы каждый день в 21.00 автоматически сохраняла фал Экселя со значениями формулы которая в ней, даже без открытия самого файла(то что бы перед сохранением обновились данные по формуле.)

(читать всё…)

Просто код для подсчета файлов в папке, в папке один файл с макросом, однако при подсчете выдает 2, если два файла, то считает, что 3, почему так не понимаю.

Public Sub Total_Workbooks_in_File()
Dim NamePath As String, NumberOfFiles As Integer, FilePath As Object

    NamePath = ThisWorkbook.Path
    Set FilePath = CreateObject("Scripting.FileSystemObject")
    NumberOfFiles = FilePath.GetFolder(NamePath).Files.Count

End Sub

(читать всё…)

Задача такая: Есть 10 листов из них 5 вносятся данные из другой таблицы, в других 5 листах идет переработка под нужный вид.
Хранить их необходимости нет обработанные данные копируются в другой документ. Для удобства хотелось сделать чтобы при активации 5 го листа данные в первых 4 уже очищались

(читать всё…)

Задачка у меня в том чтобы вернуть имя файла если в данном файле содержится искомый текст, просмотрев все файлы которые есть в папке.
Подробнее: есть функция для получения значения из закрытой книги. Пишу макрос который перебирает все книги в папке и если в каком-то из файлов в любом из листов в ячейке C4 встретится искомый текст, то он вернет его имя. Весь затык в том как прописать в данном случае поиск во всех листах файла…

(читать всё…)

Подскажите, пожалуйста, как программно сделать вот такую процедурку:
имеется файл Excel
состоит из 4 столбцов и 20 000 строк
Необходимо макросом разбить его на части по 500 строк каждый.
после разбивки должно получиться 40 файлов.
Скажем, имеется файл январь-2009.хls
после разбивки нужно что бы получилось январь-2009-1.xls
январь-2009-2.xls……………….январь-2009-40.xls

(читать всё…)

На борту 300 файлов в формате docx. Существует ли макрос, который умеет их пакетно конвертировать в doc? (у меня Word 2003 и он крайне медленно открывает docx’ы).

(читать всё…)

Имеется база данных в excel из двух столбцов. 1й — номер строки, 2ой — содержит 30 чисел от 1 до 90. Числа в строке не повторяются.

Как определить какие 3,4,5,6… числа совпадают в максимальном количестве строк?

(читать всё…)