Логи перемещений по листам

Вход

Регистрация

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

= Мир MS Excel/Логи перемещений по листам - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Логи перемещений по листам (Макросы/Sub)

Логи перемещений по листам

argetlam

Дата: Пятница, 26.06.2015, 12:14 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 46

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Доброго времени всем.
Суть проблемы - необходимо чтобы при переходе с листа на лист в отдельные ячейки записывались имена листов на которые перешли, вот что у меня получилось:
Модуль "ЭтаКнига"

[vba]

Код

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
lastrow = Worksheets("logs").Range("A60000").End(xlUp).Row
If ActiveSheet.Name <> "Лист 1" Then
ShName = ActiveSheet.Name
Worksheets("logs").Cells(lastrow + 1, 5) = ShName
End If
End Sub

[/vba]

Но по какой то причине имена листов пишутся в одну и ячейку, пока не перезайдешь в книгу, потом в следующей до следующего перезахода. Прошу помощи профессионалов))

К сообщению приложен файл: 3062258.xls (44.0 Kb)

Сообщение отредактировал argetlam - Пятница, 26.06.2015, 12:14

Ответить