Добрый день! Я у вас новенький, прошу помощи Не представлю как сделать
Скрин для лучшего восприятия
В общем сия таблица слева будет прирастать месяцами (на скрине видно только июль, август и сентябрь) Нужно: чтобы при забивке вручную значения "1" в ячейках AS445, AU445 и т.д. в ячейку рядом AR445, AT445 и т.д. соответственно, копировалось ЗНАЧЕНИЕ из ячейки H445 (в данной ячейке стоит формула, и копировать в ячейки AS445, AU445 и т.д. нужно "ЗНАЧЕНИЕ", посчитанное по формуле И тоже самое: но если в ячейках AS445, AU445 и т.д. проставить значение "2", то в ближайшую ячейку слева, должна копироваться РАЗНИЦА значений в ячейках E445 "минус" H445
Ячейки E445:H445 постоянные и никуда в таблице сдвигаться не будут!
Надеюсь, что понятно, написал Заранее спасибо за помощь
{quote}{login=xuman}{date=26.10.2010 10:50}{thema=Если значение в ячейке равно 1, то в рядом стоящую ячейку нужно скопировать значение из др ячейки}{post}Добрый день! Я у вас новенький, прошу помощи Не представлю как сделать
Скрин для лучшего восприятия
В общем сия таблица слева будет прирастать месяцами (на скрине видно только июль, август и сентябрь) Нужно: чтобы при забивке вручную значения "1" в ячейках AS445, AU445 и т.д. в ячейку рядом AR445, AT445 и т.д. соответственно, копировалось ЗНАЧЕНИЕ из ячейки H445 (в данной ячейке стоит формула, и копировать в ячейки AS445, AU445 и т.д. нужно "ЗНАЧЕНИЕ", посчитанное по формуле И тоже самое: но если в ячейках AS445, AU445 и т.д. проставить значение "2", то в ближайшую ячейку слева, должна копироваться РАЗНИЦА значений в ячейках E445 "минус" H445
Ячейки E445:H445 постоянные и никуда в таблице сдвигаться не будут!
Надеюсь, что понятно, написал Заранее спасибо за помощь{/post}{/quote}
скрин это хорошо, но как мне говорили, так и вам говорю - с примером (то бишь с файлом экселя) все решается намного проще и быстрее
For i = 0 To 144 Step 2 If Range("AS445").Offset(0, i) = 1 Then Range("AS445").Offset(0, (i - 1)) = [H445] If Range("AS445").Offset(0, i) = 2 Then Range("AS445").Offset(0, (i - 1)) = [E445-H445] Next