Страницы: 1
RSS
Если значение в ячейке равно 1, то в рядом стоящую ячейку нужно скопировать значение из др ячейки
 
Добрый день!  
Я у вас новенький, прошу помощи  
Не представлю как сделать  
 
Скрин для лучшего восприятия  
 
 
В общем сия таблица слева будет прирастать месяцами (на скрине видно только июль, август и сентябрь)  
Нужно: чтобы при забивке вручную значения "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
Страницы: 1
Читают тему
Наверх