Здравствуйте!
Такая незадача - настроил макрос для листа, а он зараза, копирует дважды одно и то же значение.
Суть: В первую таблицу во второй столбец заносятся числа, слева в первом столбце автоматически вбивается дата,
и идет копирование двух последних ненулевых ячеек во второй лист в первые нулевые ячейки. Счет идет по столбцу 2.
Рассмотрю и другие варианты решения.
Код:
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Target
If Not Intersect(Cell, Range("B2:B1001")) Is Nothing Then
With Cell.Offset(0, -1)
.Value = Now
End With
End If
Dim mRng As Range
Dim ln As Long
ln = Cells(Rows.Count, 2).End(xlUp).Row
Set mRng = Range(Cells(ln, 2), Cells(ln, 1))
mRng.Copy Sheets("Ëèñò2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Range(Cells(ln + 1, 2), Cells(ln + 1, 1)).Select
Next Cell
End Sub |
Пример вложен.
Заранее спасибо.