Option Explicit
Const TheRow = 1
Const TheCol = 1
Private StopIt As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ws As Worksheet
If Target.Row = TheRow Then
If Not StopIt And Target.Column = TheCol Then
StopIt = True
For Each ws In Worksheets
If Not ws Is Sh Then
ws.Cells(TheRow, TheCol) = Target
End If
Next ws
StopIt = False
End If
End If
End Sub
Цимклические ссылки...и не очень
Можно ли осуществить следующую схему.
Есть 2 листа (или 3, или более). На каждом в одной и той же ячейке можно выбрать 4 значения из списка.
Задача: чтобы при выборе значения 1 (2,3,4) на листе 1 автоматом выбиралось бы то же самое значение на листе 2 и в это же самое время была возможна обратная схема: при выборе значения 1 (2,3,4) на листе 2 автоматом выбирается то же самое значение на листе 1.
Просто при наличии 20-30-ти листов общий результат зависит от того, выбраны ли одинаковые значения в этих ячейках. Если их проверять вручную, то это слишком долго....
Одно значение должно храниться в одном месте.
Может просто сделать ссылку на 1 ячейку со всех листов? менять только там?
Ну да ладно:
Код:
Код размещенный в модуле книги будет синхронизировать значения в 1 строке, 1 столбце всех листов книги.
Но он мне малость не подходит: у меня ячейка, в которой надо менять значение имеет переменный адрес. На каждом листе свой. Единствнное, что я могу сделать - сделать ее поименованным диапазоном.....
значит делать именованными, или задавать для каждого листа, а еще лучше пересмотреть всю структуру...