Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/название скопированного листа из ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » название скопированного листа из ячейки (Макросы/Sub)
название скопированного листа из ячейки
Альберт1983 Дата: Понедельник, 08.08.2016, 12:10 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день!
Прошу помощи в решении проблемы!
Необходимо чтобы при копировании листа менялось название листа по ячейке F12 только в скопированном листе.

[vba]
Код
Range("I1").Select
Selection.Copy
Range("F12").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Range("F12").Select
Application.CutCopyMode = False
Sheets("бланк").Select
ActiveSheet.Buttons.Add(519, 1.5, 58.5, 26.25).Select
Sheets("бланк").Copy After:=Sheets(3)
For Each myWorksheet In Worksheets
If myWorksheet.Range("F12").Value <> "" Then
myWorksheet.Name = myWorksheet.Range("F12").Value
End If
Next
End Sub
[/vba]

Спасибо!


Сообщение отредактировал Manyasha - Понедельник, 08.08.2016, 12:33
 
Ответить
СообщениеДобрый день!
Прошу помощи в решении проблемы!
Необходимо чтобы при копировании листа менялось название листа по ячейке F12 только в скопированном листе.

[vba]
Код
Range("I1").Select
Selection.Copy
Range("F12").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Range("F12").Select
Application.CutCopyMode = False
Sheets("бланк").Select
ActiveSheet.Buttons.Add(519, 1.5, 58.5, 26.25).Select
Sheets("бланк").Copy After:=Sheets(3)
For Each myWorksheet In Worksheets
If myWorksheet.Range("F12").Value <> "" Then
myWorksheet.Name = myWorksheet.Range("F12").Value
End If
Next
End Sub
[/vba]

Спасибо!

Автор - Альберт1983
Дата добавления - 08.08.2016 в 12:10
Manyasha Дата: Понедельник, 08.08.2016, 12:40 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1587
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
Альберт1983, здравствуйте, вместо этого куска:
[vba]
Код
For Each myWorksheet In Worksheets
If myWorksheet.Range("F12").Value <> "" Then
myWorksheet.Name = myWorksheet.Range("F12").Value
End If
Next
[/vba]напишите[vba]
Код
With Sheets(4)
    If .Range("F12") <> "" Then .Name = .Range("F12").Value
End With
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеАльберт1983, здравствуйте, вместо этого куска:
[vba]
Код
For Each myWorksheet In Worksheets
If myWorksheet.Range("F12").Value <> "" Then
myWorksheet.Name = myWorksheet.Range("F12").Value
End If
Next
[/vba]напишите[vba]
Код
With Sheets(4)
    If .Range("F12") <> "" Then .Name = .Range("F12").Value
End With
[/vba]

Автор - Manyasha
Дата добавления - 08.08.2016 в 12:40
Альберт1983 Дата: Понедельник, 08.08.2016, 12:43 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Спасибо огромное!
Все заработало! :)
 
Ответить
СообщениеСпасибо огромное!
Все заработало! :)

Автор - Альберт1983
Дата добавления - 08.08.2016 в 12:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » название скопированного листа из ячейки (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!