Неразрешимая задача?? - Выбор значения из ячейки

[xamillion]

Скорее всего врядли кто справиться с этим... но есть искорка того, что полет мысли действительно безграничен...
Суть в следущем:
Есть значения в ячейках в нескольких столбцах, в которых данные забиты через Alt+Enter... нужно выбирать значение в строчку по значению из первого столбца и вставлять соответствующее зачение второго столбца в листы с тем же названием...

ну или просто на другой лист по определенному значению...

Пример в аттаче...

[IgorGO]

если есть тревожное сообщение о нехвватке строк, скопируйте строку 3 нужное количество раз.

кстати, для всех, кто интересуется особенностями работы формул.
при решении даной задачи столкнулся с таким интересным фактом:
на листах 1,2...12 в ячейке Д1 определяю название листа с помощью функции ЯЧЕЙКА("имяфайла"). Как только я переходил на любой лист и вносил изменения в любую ячейку, на всех остальных листах ЯЧЕЙКА("имяфайла") выдавала #ЗНАЧ. Стоило нажать "пересчитать лист" - все становилось на свои места.
пришлось навесить насильный перечет листа при каждой смене листов.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Sh.Calculate
End Sub

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

[EducatedFool]

Неразрешимая задача

Excel позволяет решать задачи намного сложнее Вашей.

Вот ещё один способ решения Вашей задачи (с использованием только макросов):

[Sasha_Smirnov]

> Вчера, 23:50
> IgorGO

Прошу прощения, а где вообще эти "сотрудники" болезные? Просто (ну, например, в поликлинике; на почте) я не видел, чтобы использовали MS Excel, да ещё столь виртуозно!

[EducatedFool]

Сообщение от IgorGO

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Sh.Calculate
End Sub

Теперь все постоянно красиво посчитано, но появилась другая проблема. нельзя ничего скопировать с листа на лист.

Действительно, метод Calculate зачем-то сбрасывает значение свойства Application.CutCopyMode...

Тем не менее, пусть и с извращениями, но мне удалось обойти эту проблему

Теперь можно копировать с листа на лист:
(но только между копированием с одного листа и вставкой на другой нельзя активировать другие листы)

Dim shcopy As Worksheet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    res = Application.CutCopyMode:
    Sh.Calculate

    If shcopy Is Nothing Then Exit Sub
    Application.EnableEvents = False: Application.ScreenUpdating = False
    shcopy.Activate:
    Select Case res
        Case xlCopy: Selection.Copy
        Case xlCut: Selection.Cut
        Case False:
    End Select
    Sh.Activate
    Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Set shcopy = IIf(Application.CutCopyMode, Sh, Nothing)
End Sub

[xamillion]

Ух ты ребят!!! Я все больше и больше подчерпываю опыта у Вас... и я уже все меньше и меньше обращаюсь за помощью... Возможности Excel'я просто поражают... особенно когда нужно что-то очень быстро обрабатывать... спасибо за помощь...

[Konstantin_Z]

Ув., IgorGO, описанная Вами проблема легко решается, если вместо ЯЧЕЙКА("имяфайла") писать ЯЧЕЙКА("filename")

[IgorGO]

Спасибо, решается, да только частично(((
да, #ЗНАЧ исчез.
Но когда я на двух листах пишу =ЯЧЕЙКА("filename"). На одном листе жму пересчет, перехожу на другой лист а там =ЯЧЕЙКА("filename") выдает имя второго листа, где произошел последний перещет, а не своего(((
Особенность работы эксель. Как по мне - то баг программистов.

[Konstantin_Z]

Ув. IgorGO, попробуйте сделать так:
=ЯЧЕЙКА("filename";B5)

вместо B5 можно любую ячейку текущего листа

[IgorGO]

спасибо!
все стало на свои места и логика работы функции теперь абсолютно ясна.