Автоматическое присвоение текста другому файлу в определенной ячейке

@robinzon1 · Регистрация: 31.12.2020

Author24 — интернет-сервис помощи студентам

Добрый день. Прошу помочь в моей проблеме.
Есть рабочий файл excel "пример", в котором организациям прописываю порядковый номер. Далее имею еще файлы (выгружаются автоматически ежемесячно, имеют номер 2.xls, 36.xls, 309.xls и т.д. то есть номер договора с организацией). Хотелось бы чтобы в них автоматически в ячейке "M1" прописывался текст который я укажу в "книге1" в ячейках "E". Чтобы при следующей замене файлов (2.xls, 36.xls, 309.xls) он автоматически присваивал порядковый номер.
То есть делать в каждом файле (2.xls, 36.xls, 309.xls) формулу "='[Пример.xls]2021'!$E$4" нудно. Хотелось бы просто заменять файлы с таким же именем и чтобы эта формула автоматически прописывалась.
Прилагаю примеры.

@bmv98rus · 31.12.2020, 13:39

Есть дубли темы на других форумах.

@Narimanych · 31.12.2020, 16:47

Vjrobinzon1,

1) Нажмите кнопку "Запустить процесс"
2) В дилоговом окне выберите папку с файлами
3) Нажмите Ок

@robinzon1 · 31.12.2020, 18:33 **[ТС]**

Narimanych, спасибо, дружище. Макрос работает.
Хотел бы уточнить некоторые моменты. Я могу добавить этот макрос в другую таблицу со всем организациями? (там есть еще стобцы). Или мне нужно в макросе поменять что-то?

LR = Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
Application.ScreenUpdating = False
For i = 3 To LR
SS = Cells(i, 5).Value
FLS = Dir(FLDR & Cells(i, 1).Value & ".xls*")
Это номера строк или столбцов? не подскажешь?

@Narimanych · 31.12.2020, 20:02

LR = Cells(Rows.Count, 1).End(xlUp).Row-поиск последней заполненной ячейки по 1-му столбцу
On Error Resume Next
Application.ScreenUpdating = False
For i = 3 To LR - цикл по строкам от 3-ей до последней заполненной ( поиск шел по 1му столбцу)
SS = Cells(i, 5).Value
FLS = Dir(FLDR & Cells(i, 1).Value & ".xls*")
Это номера строк или столбцов? не подскажешь?[/quote]

Всегда
Cells(номер стоки,номер столбца)

@robinzon1 · 31.12.2020, 20:33 **[ТС]**

Narimanych, то есть, поменяв отмеченные тобой красным цветом номер строки и столбца на соответствующие в новой таблице, можно будет делать выгрузку без ошибок, верно?

@Narimanych · 31.12.2020, 21:38

robinzon1,

Сообщение от robinzon1

, можно будет делать выгрузку без ошибок, верно?

П принципе да.

Автоматическое присвоение текста другому файлу в определенной ячейке

Решение

Решение

@bmv98rus 110 / 75 / 33 Регистрация: 20.10.2019 Сообщений: 198
	31.12.2020, 13:39	2
	Есть дубли темы на других форумах. 0

@robinzon1 0 / 0 / 0 Регистрация: 31.12.2020 Сообщений: 3
	31.12.2020, 18:33 [ТС]	4
	Narimanych, спасибо, дружище. Макрос работает. Хотел бы уточнить некоторые моменты. Я могу добавить этот макрос в другую таблицу со всем организациями? (там есть еще стобцы). Или мне нужно в макросе поменять что-то? LR = Cells(Rows.Count, 1).End(xlUp).Row On Error Resume Next Application.ScreenUpdating = False For i = 3 To LR SS = Cells(i, 5).Value FLS = Dir(FLDR & Cells(i, 1).Value & ".xls*") Это номера строк или столбцов? не подскажешь? 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	31.12.2020, 20:02	5
	Сообщение было отмечено robinzon1 как решение Решение LR = Cells(Rows.Count, 1).End(xlUp).Row-поиск последней заполненной ячейки по 1-му столбцу On Error Resume Next Application.ScreenUpdating = False For i = 3 To LR - цикл по строкам от 3-ей до последней заполненной ( поиск шел по 1му столбцу) SS = Cells(i, 5).Value FLS = Dir(FLDR & Cells(i, 1).Value & ".xls") Это номера строк или столбцов? не подскажешь?[/quote] Всегда Cells(номер стоки,номер столбца*) 1

@robinzon1 0 / 0 / 0 Регистрация: 31.12.2020 Сообщений: 3
	31.12.2020, 20:33 [ТС]	6
	Narimanych, то есть, поменяв отмеченные тобой красным цветом номер строки и столбца на соответствующие в новой таблице, можно будет делать выгрузку без ошибок, верно? 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	31.12.2020, 21:38	7
	robinzon1, Сообщение от robinzon1 , можно будет делать выгрузку без ошибок, верно? П принципе да. 1