Необходимо переименовать большое количество листов

@varenice · Регистрация: 14.05.2015

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

Всем привет. Проблема в следующем: есть большое кол-во листов в книге. И есть названия этих листов типа 01-05-15К или др. буква. Название берется из названия акта (можно присвоить из ячейки). Можете умные товарищи подсказать, какой макрос написать для автоматического переименования этих листов. И корректировке при добавлении новых. А то накосячила и придется 20 листов вручную переименовывать. Заранее спасибо.

@Vlad999 · 14.05.2015, 11:41

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

(можно присвоить из ячейки)

из какой? ячейка на всех листах? одна и та же?

@varenice · 14.05.2015, 12:51 **[ТС]**

Да, на каждом листе ячейка одна и та же точнее их две. Они объединены. Ячейка С1

@Vlad999 · 14.05.2015, 13:18

для переименования листов книге.

Visual Basic

Sub Update_Sheet_Name()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
    Sheets(i).Name = Sheets(i).Range("C1").Value
Next
Application.ScreenUpdating = True
End Sub

Т.к. файла не видел то перед запуском макроса сохранитесь и если что не так после прохода макроса закрывайте без сохранения.
для добавления листов макрос другой нужно писать или после добавления листов и прописывания значений в ячейки С1 запускать этот.

@varenice · 14.05.2015, 13:30 **[ТС]**

Выдает ошибку может мне приложить файл с который необходимо изменить? Или набросать быстренько пример?

Visual Basic

Sub Update_Sheet_Name()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).name = Sheets(i).Range("C1").Value (в этой строке)
Next
Application.ScreenUpdating = True
End Sub

Fairuza · 14.05.2015, 13:33

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

Или набросать быстренько пример?

может это стоит Вам сделать

@Vlad999 · 14.05.2015, 13:36

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

может мне приложить файл который необходимо изменить

если там ни чего конфиденциального то приложите.
Fairuza, это же вопрос.

@varenice · 14.05.2015, 13:37 **[ТС]**

И заодно, может подскажете как автоматически переименовывать ячейку С1 при добавлении или удалении листа чтобы данные не сбивались премного благодарна. В примере несколько листов по факту их 90.

@Vlad999 · 14.05.2015, 13:56

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

переименовывать ячейку С1 при добавлении или удалении листа чтобы данные не сбивались

здесь моих знания маловато.
если применять макрос для примера естественно вылезет ошибка начиная с пятого листа т.к. Имя листа такого уже есть. по идее нужно менять значение ячейки С1 и после имя листа. как меняется имя? первое число на 1 больше? Нумерация по очереди или в разнобой.

@varenice · 14.05.2015, 16:45 **[ТС]**

Нумерация по очереди и три типа работ. 01-05-15К (01 номер; 05 месяц; 15 год; далее буква обозначение работы букв 3 К-кровельные работы; р-комплексный ремонт; м-малярные работы. Акты могут изменятся могут добавляться и удаляться. И их может быть куча. Вот в данный момент из-за одного моего просчета необходимо вручную переименовать 20 актов и присвоить им вручную другие номера.....

Добавлено через 1 час 16 минут

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

может это стоит Вам сделать

Может быть вы сможете помочь?

@varenice · 22.05.2015, 11:23 **[ТС]**

Vlad999, Товарищ, ничего не придумалось?=)))

@varenice 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 6
	14.05.2015, 16:45 [ТС]	10
	Нумерация по очереди и три типа работ. 01-05-15К (01 номер; 05 месяц; 15 год; далее буква обозначение работы букв 3 К-кровельные работы; р-комплексный ремонт; м-малярные работы. Акты могут изменятся могут добавляться и удаляться. И их может быть куча. Вот в данный момент из-за одного моего просчета необходимо вручную переименовать 20 актов и присвоить им вручную другие номера..... Добавлено через 1 час 16 минут Сообщение от Fairuza может это стоит Вам сделать Может быть вы сможете помочь? 0

Необходимо переименовать большое количество листов

Решение

Решение

Решение

@Vlad999 3911 / 2311 / 782 Регистрация: 02.11.2012 Сообщений: 6,147
	14.05.2015, 11:41	2
	Сообщение от varenice (можно присвоить из ячейки) из какой? ячейка на всех листах? одна и та же? 1

@varenice 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 6
	14.05.2015, 12:51 [ТС]	3
	Да, на каждом листе ячейка одна и та же точнее их две. Они объединены. Ячейка С1 0

Fairuza 6014 / 3207 / 719 Регистрация: 23.11.2010 Сообщений: 10,721
	14.05.2015, 13:33	6
	Сообщение от varenice Или набросать быстренько пример? может это стоит Вам сделать 1

@Vlad999 3911 / 2311 / 782 Регистрация: 02.11.2012 Сообщений: 6,147
	14.05.2015, 13:36	7
	Сообщение было отмечено varenice как решение Решение Сообщение от varenice может мне приложить файл который необходимо изменить если там ни чего конфиденциального то приложите. Fairuza, это же вопрос. 1

@Vlad999 3911 / 2311 / 782 Регистрация: 02.11.2012 Сообщений: 6,147
	14.05.2015, 13:56	9
	Сообщение было отмечено varenice как решение Решение Сообщение от varenice переименовывать ячейку С1 при добавлении или удалении листа чтобы данные не сбивались здесь моих знания маловато. если применять макрос для примера естественно вылезет ошибка начиная с пятого листа т.к. Имя листа такого уже есть. по идее нужно менять значение ячейки С1 и после имя листа. как меняется имя? первое число на 1 больше? Нумерация по очереди или в разнобой. 1

@varenice 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 6
	22.05.2015, 11:23 [ТС]	11
	Vlad999, Товарищ, ничего не придумалось?=))) 0