Доброго дня всем, помогите дописать макрос, на листе ввод данных в ячейки A6:P6 вносится в ручную информация, после заполнения нажимаем кнопку внести данные и макрос копирует данные на листы персональные данные и движение. Если нажать еще раз на кнопку внести данные, то макрос опять скопирует эти же данные, нужно чтоб два раза подряд макрос одни и те же данные не мог копировать. Именно два раза подряд.
Код |
---|
Sub Add_Sell() Worksheets("Ввод данных").Range("G6:P6").Copy n = Worksheets("Персональные данные").Range("A100000").End(xlUp).Row Worksheets("Персональные данные").Cells(n + 1, 2).PasteSpecial Paste:=xlPasteValues Worksheets("Ввод данных").Range("A6").Copy 'Worksheets("Персональные данные").Cells(n + 1, 1) Worksheets("Персональные данные").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues With Worksheets("Движение") n = .Range("A100000").End(xlUp).Row Range("A6:G6").Copy '.Range("A" & n) Worksheets("Движение").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues End With End Sub |