Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Создание списка листов книги с данными
 
Названия листов книги меняются по значению N1 и  автоматически сортируются по алфавиту.  

Код
Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$G$1" Or Target.Address ="$I$1" Or Target.Address = "$K$1" Then
If Range("N1").Value <>"" Then
If Len(Range("N1").Value) < 30 Then
Target.Parent.Name =
Range("N1").Value
End If
End I   
End If
       
Dim i As Integer, j As Integer   
For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase(Sheets(i).Name) >UCase(Sheets(j).Name) Then
                Sheets(j).Move before:=Sheets(i)
            End If
       Next j   
Next i
End Sub
Имеется лист с названием всех листов книги (по алфавиту)
Код
=ЕСЛИ(ПРОВЕРКА;ГИПЕРССЫЛКА(ЛИСТ.СПИСОК&"'!A1";ЛИСТ.ИМЯ);"")


Необходимо к списку листов присоединить данные F10, K10, O10 всех листов. Помогите пожалуйста реализовать.
Изменено: VadimSh - 29 Апр 2015 11:06:16
 
Код
=ДВССЫЛ("'"&A4&"'!F10")
 
Спасибо
 
но по моему лучше, раз уж макрос есть, все это (список листов, значения ячеек) сделать в макросе.
П.С. все подряд цитировать не обязательно.
Страницы: 1
Читают тему (гостей: 1)