{quote}{login=cbr}{date=17.10.2011 11:35}{thema=Оперирование с "последним листом". Как его найти?}{post}Доброе утро! :)  
 
Требуется определить последний лист и записать его видом     Sheets("Лист#последний").Select.  
 
Дело в том, что по результату работы макроса, может получиться последний лист12 или лист100500.  
 
Если со строчками все понятно как определить, то как с листами?  
 
Спасибо :){/post}{/quote}ъ  
Sheets(Sheets.Count).Select

{quote}{login=cbr}{date=17.10.2011 11:47}{thema=}{post}Таким образом он берет лист с названием "Финальный", а не Лист"100500".{/post}{/quote}  
Вопрос был последний лист, если после всех листов, которые обрабатываются еще есть финальный то :  
Sheets(Sheets.Count-1).Select

Вот смотрите. В принципе теоретически как я понял должен подходить следующий код:  
   n = Sheets.Count  
   Sheets("Лист" & n).Select  
 
Но.  
 
Листа всего ТРИ. но новый "последний" имеет название Лист23. А мы выбираем как я понимаю Sheets("Лист3").Select.    
 
Поэтому и спрашиваю последний Лист, а не посчитать их. :)  
 
Может правильнее будет выразиться самое большое значение из всех "Лист"'ов.

Не морочьте людям голову: зайдите в VBA проект и в Project Explorer'е посмотрите какой лист у вас последний на самом деле. Это msgbox Sheets(sheets.Count).name и есть он (если в книге нет листов-диаграмм)

nerv, последний я и так вижу. мне не надо их считать.  
 
KukLP, нифига себе. Сильно.

Кстати, если последний лист скрыт, метод Sheets(Sheets.Count).Select вызовет ошибку. Найти последний нескрытый лист можно так:  
 
Sub LastVisibleSheet()  
Dim i&  
For i = Sheets.Count To 1 Step -1  
   If Sheets(i).Visible = xlSheetVisible Then Sheets(i).Select: Exit For  
Next  
End Sub

Так если эти листы генерятся макросом, так может просто писать их имена в публичную переменную. Так там всегда будет имя последнего листа - и доступно в любой момент.

{quote}{login=cbr}{date=17.10.2011 12:19}{thema=}{post}nerv, последний я и так вижу. мне не надо их считать.{/post}{/quote}  
 
>>Название темы: Оперирование с "последним листом". Как его найти?  
>>В первом посте: Требуется определить последний лист  
 
Стоят три кубика на столе, как определить какой из них первый, а какой последний? Тот, кот. по середине, явно "второй". Если считать справа-налево то одно, а если слева-на право, то другое.  
 
>>Дело в том, что по результату работы макроса, может получиться последний лист12 или лист100500.  
Тем более, если создаете макросом, то и сами знаете, кот. последним будет.  
 
22644

Один единственный лист?  
Sheets(1).Select  
Только зачем именно Select?  
Почему бы не написать так:  
Sheets(1).[A1]="test string"
или  
переменная=Sheets(1).[A1].value

Если Вы точно не знаете, каким по счёту кладёт свой лист макрос (хотя это можно в макросе прописать  - класть в конец, или в начало, или перед последним листом), то например перебираем все листы книги, и в названии которого есть "Лист" - тот и нужен.  
А листы тут уже пару раз перебирали...

спасибо, коллега!  
 
Можно его с запасом на трехзнак переделать?  
 
Когда мы удаляем найденный лист, макрос запрашивает разрешение на удаление, как можно принудительно разрешить удаление? :)

{quote}{post}  
1)Можно его с запасом на трехзнак переделать?  
{/post}{/quote}  
12 чисто пример - если будет лист543 - сначала найдет 5 и возьмет все число до конца имени файла    
перевожу    
с - имя листа  
xx = Right(c, Len© - (t - 1)) * 1  
t - номер первого символа числа  
Len© - (t - 1) = длина строки минус (номер первого числа -1) =  
= длина числа (как раз определяется трех оно или двух или двенадцатизначное)  
xx = правсимв(имялиста, длина числа)*1  
умножаем на 1 чтоб эта величина числом была, а не строкой.  
 
{quote}{post}  
2)Когда мы удаляем найденный лист, макрос запрашивает разрешение на удаление, как можно принудительно разрешить удаление? :){/post}{/quote}  
 
перед строкой удаления  
application.displayalerts = false  
в конце макроса надо вернуть значение обратно  
application.displayalerts = true