bd proffy
Можно написать примерно след. код в редакторе VBA (вызывается по Alt+F11) для нужного листа:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1"
Then
Range("A1"
.Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet2"
.Range("C1"
End If
End Sub
Вместо A1, C1, Sheet2 нужно поставить свои значения.
