как я сказал - любой другой лист. Не совсем понял с заменой ячейки - можете свой файл показать, ну или кусок с парой листов - пока не понятно в чем затык
Georg81,
Цитата
Почему стоит Лист2
как я сказал - любой другой лист. Не совсем понял с заменой ячейки - можете свой файл показать, ну или кусок с парой листов - пока не понятно в чем затыкbuchlotnik
Зачем указывать лист? Достаточно ячейку. Лист "Итого" все равно не обрабатывается. Для себя я бы короче код написал
[vba]
Код
Function ITOGO1(rr As Range) As String Dim ss As Worksheet For Each ss In Sheets If ss.Name <> "Итого" Then If ss.Cells(rr.Row, rr.Column) <> "" Then ITOGO1 = ITOGO1 & "," & ss.Name Next ITOGO1 = Mid(ITOGO1, 2) End Function
[/vba]
Зачем указывать лист? Достаточно ячейку. Лист "Итого" все равно не обрабатывается. Для себя я бы короче код написал
[vba]
Код
Function ITOGO1(rr As Range) As String Dim ss As Worksheet For Each ss In Sheets If ss.Name <> "Итого" Then If ss.Cells(rr.Row, rr.Column) <> "" Then ITOGO1 = ITOGO1 & "," & ss.Name Next ITOGO1 = Mid(ITOGO1, 2) End Function
AlexM, я подразумевал, что структура формы вывода может не совпадать со структурой исходных данных - мне в этом случае удобнее ткнуться на другом листе. А так оно, конечно, элегантнее у вас
AlexM, я подразумевал, что структура формы вывода может не совпадать со структурой исходных данных - мне в этом случае удобнее ткнуться на другом листе. А так оно, конечно, элегантнее у вас buchlotnik