Страницы: 1
RSS
Фиксация значения в ячейке после изменения значения в другой ячейке
 
Добрый день!

Есть ячейка условно "А1", где заносятся числа и есть другие ячейки"В2","С2" и т.д. где значения должны выводиться. Можно сделать так, чтобы данные в ячейке "В2" вывелись и зафиксировались после ввода в "А1", а в  последующем изменении в "А1" следующая ячейка "С2" значение вывелось и зафиксировалось, а в "В2" осталось тем же и т.д. Помогите, пожалуйста.  
 
Код
Sub Copy_value()
   
    my_row = ActiveCell.Row
    my_col = (Cells(my_row, 100).End(xlToLeft).Column) + 1
    current_value = Cells(my_row, 4).Value
    If my_col < 9 Then
        my_col = 9
    End If
    Cells(my_row, my_col).Value = current_value
    
End Sub


Изменено: PDO - 17.07.2020 22:16:12
 
gog843, дд. в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D9")) Is Nothing Then
lcol = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
Cells(Target.Row, lcol) = Target
End If
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Большое спасибо за помощь!!!
Страницы: 1
Наверх