Поиск листов

[gavrylyuk]

Всем добрый день.

Возникла проблема: имеется на одном листе список в столбик с именами всех листов книги. Напротив каждого наименования листа (в соседнем столбике) стоит какое-то значение (постоянно меняется). Подскажите пожалуйста как перенести на нужный лист рядом стоящее значение.

Спасибо

[IgorGO]

Private Sub Worksheet_Change(ByVal Target as Range)
Sheets(Target.offset(-1)).cells(r,c) = Target
End Sub

вместо (r,c) напишете в какой ряд какую колонку вписать значение на нужный лист.

[gavrylyuk]

А если нужно вписать в первый непустой ряд? как тогда этот макрос изменится???
Спасибо

[IgorGO]

а по какой колонке будем определять ряд пустой или занятый?

[gavrylyuk]

Я приложил пример, так наверное легче будет посмотреть. Колонки A,B,C,E,F вставляются в колонки A,B,C,E,F на других листах с первого листа (одно и то же по всем листам), а в колонку D вставляется значение из колонки H (в соответствии с названием листа в колонке І)

Спасибо

[gavrylyuk]

А вообще определять будем по колонке B

[IgorGO]

суть происходящего - непонятна, поэтому решение приведено не вашей задачи, а моего ее понимания.
Итак, как только в колонке Н на листе1 что-то изменится, на лист обозначенный в колонке І, в первый пустой ряд переносятся данные с 4-го ряда листа1, в колонку Д попадает изменившееся значение.

[gavrylyuk]

Да,да, да именно так. Спасибо большое!!!

[gavrylyuk]

А как еще можно сделать проверку листа. Если такого листа нет то відавать ошибку и не переносить никакие данные!

[IgorGO]

собстенно, это сделано, строка
If Err.Number <> 0 Then Exit Sub
заканчивает работу этой процедуры, если попытка доступится до нужного листа закончилась неудачей (т.е. нет такого листа).
а всю работу по переносу данных выполняют два следующих за приведенной выше строкой оператора.