Всем доброго дня. Подскажите, возможно ли сделать автоматическую замену значений в одной ячейке, вставляя поочередно значения в других ячейках. Нужно чтобы в ячейку G57 вставлялись поочередно значения столбца Е Заранее спасибо за ответ)
Всем доброго дня. Подскажите, возможно ли сделать автоматическую замену значений в одной ячейке, вставляя поочередно значения в других ячейках. Нужно чтобы в ячейку G57 вставлялись поочередно значения столбца Е Заранее спасибо за ответ)Akmal_31
Значения в Е пока как пример, так как они постоянно меняются. Нужно чтобы после введения значения в ячейке Е3 это значение появлялось в ячейке G57, затем после введения значения в ячейке Е4, оно заменяло значение Е3 в ячейке G57 и вставляло уже значение Е4 и т.д. Возможно ли такое сделать?
Значения в Е пока как пример, так как они постоянно меняются. Нужно чтобы после введения значения в ячейке Е3 это значение появлялось в ячейке G57, затем после введения значения в ячейке Е4, оно заменяло значение Е3 в ячейке G57 и вставляло уже значение Е4 и т.д. Возможно ли такое сделать?Akmal_31
Private Sub Worksheet_Change(ByVal Target As Range) Dim r&, c& r = Target.Row c = Target.Column If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E3:F31")) Is Nothing Then If c = 5 Then Cells(57, 7).Value = Cells(r, 5).Value Cells(57, 7).Select Exit Sub End If If c = 6 Then Cells(62, 7).Value = Cells(r, 6).Value Cells(62, 7).Select End If End If End Sub
[/vba] Ой, подозреваю, что следующий вопрос будет про столбец "В"... Akmal_31, для Вас информация: Cells(строка, столбец), If=ЕСЛИ
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim r&, c& r = Target.Row c = Target.Column If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E3:F31")) Is Nothing Then If c = 5 Then Cells(57, 7).Value = Cells(r, 5).Value Cells(57, 7).Select Exit Sub End If If c = 6 Then Cells(62, 7).Value = Cells(r, 6).Value Cells(62, 7).Select End If End If End Sub
[/vba] Ой, подозреваю, что следующий вопрос будет про столбец "В"... Akmal_31, для Вас информация: Cells(строка, столбец), If=ЕСЛИ_Igor_61